|
发表于 2014-7-5 19:07:17
|
显示全部楼层
upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif; H* O {- K+ F* h
版主厉害,代码测试成功。( z* D) i) a/ q; F- a( m
再请教版主,块名称有十几种,开头都是GB,比如GBA1、GBA2、GBA3,图中可能有其 ... - Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant+ `1 L+ @' t# a" d, D* b
- FT(0) = 0: FD(0) = "INSERT", i" [1 U0 U& m
- FT(1) = -4: FD(1) = "<or"9 |2 D/ e* x; |; F
- FT(2) = 2: FD(2) = "块名称1"; @% {9 v0 w8 A: ]5 X1 x
- FT(3) = 2: FD(3) = "块名称2"
' n, e3 D3 k6 U - FT(4) = 2: FD(4) = "块名称3"& c* A2 M) w2 Y8 z$ Y
- FT(5) = -4: FD(5) = "or>". [2 K" X2 } }6 q) a0 J
- Set SS = ThisDrawing.SelectionSets.Add("SSS")
, W, Y! x$ B. b; }) I) L+ f - SS.Select acSelectionSetAll, , , FT, FD# s$ _7 \" R7 g$ V( a7 t
- MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly. ?" _% M7 Q1 u U
- SS.Delete+ [5 b- W# b* W" ^( F% y# ] s
复制代码 |
|