[VBA程序]：刚写的快速修改标注文字的程序

gjliang

这是下午在研究选择集的使用时写的快速修改替换标注文本的程序，程序粘贴的模块里就可以了。
Sub DE()
    Dim ss As AcadSelectionSet
    Set ss = GetSelSet
    Dim Ent As AcadEntity
    Dim h As Double
       For Each Ent In ss
       Dim s As String
       s = ThisDrawing.Utility.GetString(False, "输入新尺寸：")
       If TypeOf Ent Is AcadDimAngular Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimRotated Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimRadial Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimAligned Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDim3PointAngular Then
       Ent.TextOverride = s
       ElseIf TypeOf Ent Is AcadDimDiametric Then
       Ent.TextOverride = s
       End If
       Next
End Sub

Function GetSelSet() As AcadSelectionSet
    Dim ss As AcadSelectionSet
    Set ss = ThisDrawing.PickfirstSelectionSet
    If ss.Count = 0 Then
        Dim ssName As String
        ssName = "strSSet"
        On Error Resume Next
        Set ss = ThisDrawing.SelectionSets(ssName)
        If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
        ss.Clear
        ss.SelectOnScreen
    End If
    Set GetSelSet = ss
End Function
另外，最近老觉得这里的人气不够旺了，要知道我学vba都是在这里学的，虽然现在还在学习中，但还是希望这里能一如既往的红火下去，让更多的新学者都能快速的找到入门的快捷方法。

efan2000

其实，在选择集中加上过滤机制，只选择尺寸标注对象，则效果更好。
如：FilterType(0)=0，FileterData(0)="Dim*"，因为尺寸标注对象都是以Dim开头的，所以可以使用通配符“*”来代替。

ahlzl

是的，这里就没有人气啊！我正在学VBA，望各位高手多多指点！

efan2000

在最新的 AutoCAD 2004 中文版的帮助文件中，第一次包含了中文的开发人员指南，相信有了这个教程的帮助，会有更多的人加入到VBA的开发队伍中，如果能达到Office那样自带的帮助，会极方便学习VBA开发的新人。

gjliang

谢谢斑竹的指点，我把你的建议保存了下来，明天拿到办公室研究：）

淡天

VBA要先学什么呢？
请教

fjw_ok

最近确实有点冷清。

gjliang

好希望各位高手们把自己的关于vba开发的一些经验写成文字出来，那样就可以为那些刚入门的初学者提供一些帮助，最近老看大一些朋友问有关vba程序打包和自动加载的问题，我把自己在这方面的经验写出来供大家参考。也希望朋友们能提供一些关于数据库开发方面的经验。

bravechen

think you