求助，怎样列举只存在于图形中的块名称？

upc1999

5 a0 h" k3 n8 e" r0 R6 x4 {! ^2 [我需要筛选特定的块名，比如图框A1，但是如果有插入过又删掉的块，还保留在块列表里，就需要判断这个块是不是在图形中使用。
我搜索到的代码都是先历遍实体，再判断是否为块，效率太低，有没有办法先列举块名称，再判断是不是在图行中使用？

Dim entry As AcadEntity, blk1 As AcadBlockReference
    For Each entry In activeDoc.ModelSpace
" p( w. q. b+ N7 O' L          If entry.ObjectName = "AcDbBlockReference" Then
          Set blk1 = entry
  i$ J2 ?4 T% L7 z# i8 a) m( j- _          if blk1.name="块名称" then
0 f' L% S" L; K7 R6 b! ~4 ]……
   next      
               

SunVei

未学VBA , 此是 Lisp 语句
2 D/ B; p* Z  o$ T7 Q$ O, ^(ssget "X" '((0 . "INSERT") (2 . "A1")))
4 {6 g8 J  b* b! a4 ]
5 N& ^$ X6 C, |; p% ^7 R# G插入过又删掉的话 返回值为 nil
  w3 ]$ \7 Y' p: S/ B! C% }

upc1999

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
! b; D' R6 y% m- S清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
筛选块代码
! w; `# Y9 d3 ]( M' Hfor each blk1 in thisdrawing.blocks
; P+ ?$ y1 F  E2 h9 |; v6 y- G5 X) Y9 Kif bkl1.name="GB_A1" then
……
! r7 p# q- k& `0 _7 ^8 W, Zend if

woaishuijia

为什么不用选择集？

1.     Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
     S! o' D* N  `+ B- q
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = 2: FD(1) = "块名称"
   , q9 v. ^. D% N6 [
4.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   3 J; F& {+ V5 x. k7 ?
5.     SS.Select acSelectionSetAll, , , FT, FD
   2 w+ d# S8 q4 U- H& _- J+ e
6.     MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
   4 d9 _  w* [/ ]$ `; W9 v
7.     SS.Delete

复制代码

upc1999

$ L, g7 C9 K# x4 C6 @; d& }
版主厉害，代码测试成功。
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia

upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
' [1 o( U+ n9 h( I版主厉害，代码测试成功。
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其 ...

1.     Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
   7 q, F% K1 a& V7 t
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = -4: FD(1) = "<or"
   
4.     FT(2) = 2: FD(2) = "块名称1"
   : b$ E5 a* @0 Q
5.     FT(3) = 2: FD(3) = "块名称2"
   
6.     FT(4) = 2: FD(4) = "块名称3"
   
7.     FT(5) = -4: FD(5) = "or>"
   / m' i2 b# o( x
8.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   
9.     SS.Select acSelectionSetAll, , , FT, FD
   
10.     MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly
    * _" P7 `; h) u( R6 E) m
11.     SS.Delete
    * C* d5 u' ?5 k

复制代码

upc1999

再次感谢版主，我今年才开始学习cad开发，还得多学习。

huwenliang

高手多！