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

upc1999

$ w' N- r& t' O" j) R# J# r, ^
9 i/ @3 h" W! A4 W- R, P我需要筛选特定的块名，比如图框A1，但是如果有插入过又删掉的块，还保留在块列表里，就需要判断这个块是不是在图形中使用。
% u* X" ]0 k0 ]9 c) x" s, s: I我搜索到的代码都是先历遍实体，再判断是否为块，效率太低，有没有办法先列举块名称，再判断是不是在图行中使用？

( z  T1 t' [8 d" P: H6 M, aDim entry As AcadEntity, blk1 As AcadBlockReference
    For Each entry In activeDoc.ModelSpace
3 E! I! V* a; e- C; ?2 w# O8 U1 V          If entry.ObjectName = "AcDbBlockReference" Then
# W) H$ @8 ?- j$ @          Set blk1 = entry
          if blk1.name="块名称" then
, s% D9 y5 Z, h* k……
   next      
               

SunVei

未学VBA , 此是 Lisp 语句
(ssget "X" '((0 . "INSERT") (2 . "A1")))

: D5 N7 I" \4 s2 e7 ^2 T) H6 a插入过又删掉的话 返回值为 nil

upc1999

谢谢沙发，我用另一种方法解决了这个困扰我很久的问题，先清理块，这样块集合里就只有在图形里使用的块了，再筛选块名称。
清理块代码
ThisDrawing.SendCommand "-purge" & vbCr & "B" & vbCr & vbCr & "N" & vbCr
, c3 {( B- N' Z; T! Q筛选块代码
for each blk1 in thisdrawing.blocks
* M  ~) V+ o( J, e( A* K3 Sif bkl1.name="GB_A1" then
……
2 _4 y2 e2 e) J$ }% N8 Rend if

% \: Y$ h' `  [" D  P$ n

woaishuijia

为什么不用选择集？

1.     Dim SS As AcadSelectionSet, FT(1) As Integer, FD(1) As Variant
   
2.     FT(0) = 0: FD(0) = "INSERT"
   ; b3 z* F3 K6 m% F, _
3.     FT(1) = 2: FD(1) = "块名称"
   ! f- r; f8 e9 ^3 F& a
4.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   
5.     SS.Select acSelectionSetAll, , , FT, FD
   3 R9 r% X3 y9 J8 \& ?; @0 \# e
6.     MsgBox "图形中包含有名为" & Chr(34) & "块名称" & Chr(34) & "的块参照" & SS.Count & "个", vbOKOnly
   
7.     SS.Delete

复制代码

upc1999

7 T  ?6 D- S7 o+ v2 O' A9 e
版主厉害，代码测试成功。
6 S* o& y: ]. j) V! }1 }+ n再请教版主，块名称有十几种，开头都是GB，比如GBA1、GBA2、GBA3，图中可能有其中的一种或者多种，我要统计图里这样的块分别有多少个，只用选择集能实现吗？

woaishuijia

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

1.     Dim SS As AcadSelectionSet, FT(5) As Integer, FD(5) As Variant
   5 d: z" h7 x! N6 w! J
2.     FT(0) = 0: FD(0) = "INSERT"
   - S* b* f: |9 i( K
3.     FT(1) = -4: FD(1) = "<or"
   5 I( `/ z0 E* O. O. `9 _7 Z
4.     FT(2) = 2: FD(2) = "块名称1"
   
5.     FT(3) = 2: FD(3) = "块名称2"
   0 I3 N! P- D& {5 K
6.     FT(4) = 2: FD(4) = "块名称3"
   3 U8 l$ F; |: R
7.     FT(5) = -4: FD(5) = "or>"
   * u& m4 Y% `; E3 B& O8 g1 a
8.     Set SS = ThisDrawing.SelectionSets.Add("SSS")
   
9.     SS.Select acSelectionSetAll, , , FT, FD
   , C6 x: M9 d1 O# i( N7 A
10.     MsgBox "图形中包含有名为" & Chr(34) & "块名称1" & Chr(34) & "或" & Chr(34) & "块名称2" & Chr(34) & "或" & Chr(34) & "块名称3" & Chr(34) & "的块参照共" & SS.Count & "个", vbOKOnly
    $ M8 Q8 {$ B4 ~( \- |
11.     SS.Delete
    

复制代码

upc1999

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

huwenliang

高手多！