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

upc1999

我需要筛选特定的块名，比如图框A1，但是如果有插入过又删掉的块，还保留在块列表里，就需要判断这个块是不是在图形中使用。
9 {" P, l% V" q: @% J; T9 A我搜索到的代码都是先历遍实体，再判断是否为块，效率太低，有没有办法先列举块名称，再判断是不是在图行中使用？
+ f0 b6 p" I6 ~+ v* K9 E
- o0 P3 }- i( G5 QDim entry As AcadEntity, blk1 As AcadBlockReference
    For Each entry In activeDoc.ModelSpace
# n, e: L# s+ F* ]% h8 F          If entry.ObjectName = "AcDbBlockReference" Then
( j% g/ W, j. r( @& k          Set blk1 = entry
          if blk1.name="块名称" then
' t8 ~: M& b  D……
4 |1 i+ u5 Q) C; U3 d! `   next      
! q& i9 N4 l8 R, L6 T               

SunVei

未学VBA , 此是 Lisp 语句
- j) R! K, s: r(ssget "X" '((0 . "INSERT") (2 . "A1")))

- }" b' e7 Z, n4 g5 |8 R. F+ N插入过又删掉的话 返回值为 nil

upc1999

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
+ p( b. [- T* q% M/ I清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
筛选块代码
for each blk1 in thisdrawing.blocks
if bkl1.name="GB_A1" then
' r) T" @% J! ^$ L  @) L……
end if
& ~5 D; o1 u# l" J5 W
# v4 ?$ d" S4 y

woaishuijia

为什么不用选择集？

1.     Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
   , y3 g# l% Q* }: t
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = 2: FD(1) = "块名称"
   0 X- f! g4 h- v: H! M$ J
4.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   
5.     SS.Select acSelectionSetAll, , , FT, FD
   % E, q! M# W7 [3 t! E0 A
6.     MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
   
7.     SS.Delete

复制代码

upc1999

; b; D# H: V- w
% x  K  l( C; @  {- X) m版主厉害，代码测试成功。
8 M5 Z3 d" ^% Q# f, r! w9 L" }+ _再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia

upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
" ?5 G  }4 g1 b9 ^4 {+ f- o7 v版主厉害，代码测试成功。
3 q  z- ]6 L3 N, E再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其 ...

1.     Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
   , V9 W+ p# U8 \& ]% C$ `, w
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = -4: FD(1) = "<or"
   + x" x: N! F( `
4.     FT(2) = 2: FD(2) = "块名称1"
   $ [% ~* Z9 Y! O! M4 o+ b$ @
5.     FT(3) = 2: FD(3) = "块名称2"
   , A8 D$ B( i* d- H) U2 a
6.     FT(4) = 2: FD(4) = "块名称3"
     J1 ~( d4 H' V- n- f, p( M
7.     FT(5) = -4: FD(5) = "or>"
   
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
    
11.     SS.Delete
    

复制代码

upc1999

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

huwenliang

高手多！