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

upc1999

: n* a* d) u% t我需要筛选特定的块名，比如图框A1，但是如果有插入过又删掉的块，还保留在块列表里，就需要判断这个块是不是在图形中使用。
  M- p0 D0 E/ s% _7 V我搜索到的代码都是先历遍实体，再判断是否为块，效率太低，有没有办法先列举块名称，再判断是不是在图行中使用？
4 I' w/ [; |5 J: _
Dim entry As AcadEntity, blk1 As AcadBlockReference
- F: b9 g9 R# j' }. ?; S$ S    For Each entry In activeDoc.ModelSpace
          If entry.ObjectName = "AcDbBlockReference" Then
2 Y/ X1 T! n9 Y          Set blk1 = entry
- g% n0 _. t" X/ y" ^' x% @          if blk1.name="块名称" then
! O. ^2 U3 E- J5 w……
3 u- j9 R$ V- U& B* H   next      
               

SunVei

未学VBA , 此是 Lisp 语句
1 n4 m$ @9 U4 T9 x* A- S(ssget "X" '((0 . "INSERT") (2 . "A1")))
$ \7 s3 K) i) m8 u5 {+ ]1 a
. G5 x1 f: I# d' }6 _插入过又删掉的话 返回值为 nil

upc1999

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
7 W  G) [: Z5 T: @8 J+ B筛选块代码
for each blk1 in thisdrawing.blocks
if bkl1.name="GB_A1" then
1 X: S3 E9 @/ p* w" [7 ?9 @. V+ `……
8 R3 s" ?9 w% xend if
2 A2 k4 X- }7 F* @2 T

woaishuijia

为什么不用选择集？

1.     Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
     d* u8 e% `: y% \" F( S
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = 2: FD(1) = "块名称"
   + L- [- k( u/ X. E* r
4.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   
5.     SS.Select acSelectionSetAll, , , FT, FD
   
6.     MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
   % x5 a" D! Y# F6 r! e# N
7.     SS.Delete

复制代码

upc1999

版主厉害，代码测试成功。
4 }* i' E% A$ i4 p- N4 \$ O2 n再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia

upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
* A6 d" j1 E1 W0 m$ R版主厉害，代码测试成功。
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其 ...

1.     Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
   # x( F' n& \! g$ k* Y/ {4 g/ p" u; z
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = -4: FD(1) = "<or"
   
4.     FT(2) = 2: FD(2) = "块名称1"
   
5.     FT(3) = 2: FD(3) = "块名称2"
   " h# v8 k1 L8 ?8 ?+ [
6.     FT(4) = 2: FD(4) = "块名称3"
   
7.     FT(5) = -4: FD(5) = "or>"
   & H6 a/ G# q( E6 v
8.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   & q' D* R) @/ I
9.     SS.Select acSelectionSetAll, , , FT, FD
   4 v8 V6 W  }5 X) {$ j
10.     MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly
    & ~4 I6 M+ s, Y. ?  Q2 t# E% C
11.     SS.Delete
    

复制代码

upc1999

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

huwenliang

高手多！