'统一标注样式中的字体
Sub TongyiDimstyleText()
    'On Error Resume Next
    Dim i As Integer
    Dim DimS As AcadDimStyle
    For Each DimS In ThisDrawing.DimStyles
        Set DimS = ThisDrawing.DimStyles(i)
        'DimS.Name = "DimStyle_" & str(i)
        ThisDrawing.ActiveDimStyle = DimS
        ThisDrawing.SetVariable "DimTxSty", "STANDARD"     '指定标注的文字样式
        DimS.CopyFrom ThisDrawing
        i = i + 1
    Next
End Sub

　　IE7的工具条搜索只内置了MSN Search搜索引擎，通过下拉菜单可以在Find More Providers网页中增加AOL Search、Ask Jeeves、Google、Yahoo!Search等大部分搜索引擎，但唯独没有百度搜索引擎。
　　那么如何添加自己喜欢的的常用baidu搜索引擎（或者别的搜索）呢？
　　方法如下：
　　打开注册表，依次展开到 [HKEY_CURRENT_USER /SOFTWARE /Microsoft/Internet Explorer/SearchScopes]
　　1、在“SearchScopes”中右击选择“新建”→“项”，并取名“Baidu”；
　　2、然后在其中新建一个“字符串值”，名称为:“DisplayName”值为“百度”；
　　3、新建一个“DWORD值”，名称为:“SortIndex” 值为:3（这个值取决于SearchScopes下已经有多少个搜索引擎，我的已经使用了msn和google，故增加一个则为3）；
　　4、新建一个“字符串值”，名称为:“URL” 值为“http://www.baidu.com/s?wd={searchTerms}&tn=tiancao1001_pg=3&ie=GB2312”；
　　修改完注册表后，再次打开IE7 你就可以看到搜索引擎中已经有百度搜索引擎了，也可以在“Search settings”中将其设为默认搜索引擎。
    5、修改为默认：
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchScopes]
"DefaultScope"="{6E71E502-B218-4259-86C5-CED6E6306E6C}"
"Version"=dword:00000001

影音源文件地址：http://www.rgstudios.com/main.swf