|
发表于 2014-7-5 19:07:17
|
显示全部楼层
upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
+ t4 R% J0 l% X4 _版主厉害,代码测试成功。4 T; |0 ~& q' q+ b' B
再请教版主,块名称有十几种,开头都是GB,比如GBA1、GBA2、GBA3,图中可能有其 ... - Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant2 C; ?: }: {7 g* m$ X
- FT(0) = 0: FD(0) = "INSERT"
5 g- y U7 z! f E4 _ - FT(1) = -4: FD(1) = "<or"1 p& U: C# ]% A6 n+ E
- FT(2) = 2: FD(2) = "块名称1"
' B# G/ `& ~( }3 x; y8 t - FT(3) = 2: FD(3) = "块名称2"$ L( ]! y' d# q# H
- FT(4) = 2: FD(4) = "块名称3": {# a# S7 K, I, W# V' ?' ~0 Z
- FT(5) = -4: FD(5) = "or>". ~- H! Q; P0 I% @ D
- Set SS = ThisDrawing.SelectionSets.Add("SSS")
1 W! h+ d4 |/ P9 a- @ o+ W7 X - SS.Select acSelectionSetAll, , , FT, FD: k3 @2 i/ }! F0 W q
- MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly2 P2 s# m( P% k1 z% G0 r
- SS.Delete- v& m2 o* r* u& i* R d
复制代码 |
|