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

upc1999

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

Dim entry As AcadEntity, blk1 As AcadBlockReference
    For Each entry In activeDoc.ModelSpace
          If entry.ObjectName = "AcDbBlockReference" Then
+ k1 k8 J, f- b. J% S/ E          Set blk1 = entry
1 @& I  k8 O; v% Y          if blk1.name="块名称" then
' }. x& b" w6 s: x……
# ^; i2 j5 ~. J3 @* w' B0 I   next      
8 d7 Z! f0 P4 S" P3 b  ~: E$ |               

SunVei

未学VBA , 此是 Lisp 语句
' I" k& @+ t9 y3 o' |(ssget "X" '((0 . "INSERT") (2 . "A1")))
# ?$ C6 {5 n9 g5 U* O
插入过又删掉的话 返回值为 nil
2 \) W  c! h6 M8 C

upc1999

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
! L4 t) c: ]) g; W9 V2 e6 {2 W4 Y清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
' p# ?% G0 f* z  W! n. a+ _筛选块代码
' Y7 G. X2 [& G5 ^1 hfor each blk1 in thisdrawing.blocks
if bkl1.name="GB_A1" then
% F0 V$ c( ~/ k% {……
+ h) |& _4 i9 ]  M  }' Nend if
1 E6 ]; k" o& B  g/ u, F  L: p7 M1 m* ~3 j

woaishuijia

为什么不用选择集？

1.     Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
   
2.     FT(0) = 0: FD(0) = "INSERT"
   
3.     FT(1) = 2: FD(1) = "块名称"
   4 c5 s6 M4 y0 Q0 {$ P/ {
4.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   5 d% r- a5 Z7 W& l! G
5.     SS.Select acSelectionSetAll, , , FT, FD
   / n& L( ]7 L# s& u
6.     MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
   ' g2 `: K% P. ~/ o; k/ r" ]! {
7.     SS.Delete

复制代码

upc1999

$ j- K* A$ i1 W! j, D. ~3 I7 Z" V版主厉害，代码测试成功。
再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia

upc1999 发表于 2014-7-5 14:48 static/image/common/back.gif
版主厉害，代码测试成功。
5 V9 _- w8 w' }2 K' Y再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其 ...

1.     Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
   - F& ~! V( `' v: }: }
2.     FT(0) = 0: FD(0) = "INSERT"
   4 W" X8 ?2 q  e+ L1 ^
3.     FT(1) = -4: FD(1) = "<or"
   , B4 |+ t" e1 [2 F+ a  A
4.     FT(2) = 2: FD(2) = "块名称1"
   
5.     FT(3) = 2: FD(3) = "块名称2"
   6 s0 f3 g6 G+ u5 `/ H$ @, I4 I# H/ }
6.     FT(4) = 2: FD(4) = "块名称3"
   
7.     FT(5) = -4: FD(5) = "or>"
   
8.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   / P2 \- u. \! Y
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
    6 I* q9 o! Y8 U8 a6 O* C' ^8 \4 _

复制代码

upc1999

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

huwenliang

高手多！