|
发表于 2014-7-5 19:07:17
|
显示全部楼层
来自: 中国辽宁抚顺
upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif- c+ ?& Y' B. h" B& @
版主厉害,代码测试成功。
9 E; K, n# j8 G再请教版主,块名称有十几种,开头都是GB,比如GBA1、GBA2、GBA3,图中可能有其 ... - Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant, A/ ~3 ]0 e( Z! n
- FT(0) = 0: FD(0) = "INSERT"
- F% V$ o( A+ @ - FT(1) = -4: FD(1) = "<or"" O2 }5 r6 |4 c+ A6 H. C
- FT(2) = 2: FD(2) = "块名称1"
. q; v& c, Q+ G* j- L- w) \3 V - FT(3) = 2: FD(3) = "块名称2"
$ T7 H ]: K5 ]7 m - FT(4) = 2: FD(4) = "块名称3"9 x& h. u8 W1 h3 ?- t
- FT(5) = -4: FD(5) = "or>"
! s* S/ V5 X% b A$ \ - Set SS = ThisDrawing.SelectionSets.Add("SSS")
, u( n# c; n" U; C1 ~ ?7 [; k - SS.Select acSelectionSetAll, , , FT, FD
; ~- f0 `: @, O5 C8 }2 E- @- [. D - MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly: W! v! W: Z& U; ]# t7 H3 J
- SS.Delete' Y( ~3 I2 ?+ u! m" U# _# U
复制代码 |
|