在autocad中如何用VBA修改现有的标注？（特别是如何找到要修改的标注？然后用TextO

lihuanew

在AutoCAD中如何用VBA修改现有的标注？（特别是如何找到要修改的标注？然后用TextOverride去修改它？)[br]在autocad中如何用VBA修改现有的标注？（特别是如何找到要修改的标注？然后用TextOverride去修改它？)

lassic

你可以先遍历标注，然后用SELECT CASE 通过 特定的TEXTOVERRIDE 选定要改的标注，然后修改其TEXTOVERRIDE属性就行

3. Dim ft(0) As Integer
4. Dim fd(0) As Variant
5. Dim sset As AcadSelectionSet
6. If AcadApp.ActiveDocument.SelectionSets.Count = 0 Then
7. Set sset = AcadApp.ActiveDocument.SelectionSets.Add("ss1")
8. Else
9. Set sset = AcadApp.ActiveDocument.SelectionSets.Item(0)
10. sset.Clear
11. End If
12. fd(0) = "DIMENSION"
13. sset.Select acSelectionSetAll, , , ft, fd
14. If sset.Count = 0 Then Exit Sub
15. Dim Ds As AcadDimension
17.     For Each Ds In sset
18.     If Ds.StyleName = "AA" Then
19.         Select Case Left(Ds.TextOverride, 3)
20.             Case "AA"
21.                 Ds.TextOverride = "123456"
22. ........................................

Dim ft(0) As Integer Dim fd(0) As Variant Dim sset As AcadSelectionSet If AcadApp.ActiveDocument.SelectionSets.Count = 0 Then Set sset = AcadApp.ActiveDocument.SelectionSets.Add("ss1") Else Set sset = AcadApp.ActiveDocument.SelectionSets.Item(0) sset.Clear End If fd(0) = "DIMENSION" sset.Select acSelectionSetAll, , , ft, fd If sset.Count = 0 Then Exit Sub Dim Ds As AcadDimension     For Each Ds In sset     If Ds.StyleName = "AA" Then         Select Case Left(Ds.TextOverride, 3)             Case "AA"                 Ds.TextOverride = "123456" ........................................