AutoCAD开发6--修改高程

 1 '定义过滤器
 2
 3     Dim pType, pData
 4
 5
 6
 7     'BuildFilter pType, pData, 0, "BlockReference", 8, "GCD", 62, 3 '建立图层是JZD?颜色为绿色的多段线过滤器
 8
 9
10
11
12
13     BuildFilter pType, pData, 8, "GCD"
14
15     '定义选择集
16
17
18
19     Dim sset As AcadSelectionSet
20
21     Set sset = CreateSelectionSet
22
23     '
24
25
26
27     '根据以上指定的过滤器建立选择集
28
29
30
31     sset.Clear
32
33     sset.Select acSelectionSetAll, , , pType, pData
34
35
36
37     Dim pEntity As Object
38
39     Dim pBlock As AcadBlockReference
40
41     Dim pAttr As Variant
42
43
44
45     Dim pCoords As Variant
46
47
48
49     For Each pEntity In sset
50
51         If pEntity.ObjectName = "AcDbBlockReference" Then
52
53             Set pBlock = pEntity
54
55
56
57             If pBlock.Name = "gc200" Then
58
59                 pAttr = pBlock.GetAttributes
60
61                 For i = 0 To UBound(pAttr)
62
63                     pAttr(i).TextString = ChangeH(pAttr(i).TextString)
64
65                 Next i
66
67             ElseIf pBlock.Name = "GC022y" Then
68
69                 pCoords = pBlock.InsertionPoint
70
71
72
73                 If pCoords(2) <> 0 Then
74
75                     pCoords(2) = 0
76
77                     pBlock.InsertionPoint = pCoords
78
79                 End If
80
81             End If
82
83         End If
84
85     Next pEntity
86
87
88
89     sset.Delete
90
91     MsgBox "修改完成"