VBA 查找属性块代码是这么写的吗？

winer3086

* l" w7 ~& b8 {. k各位大侠，帮小弟看看这段代码是哪里出问题的。我是参考着书上写的
- D' u# e* B, U* _4 U% p" J- Q

1. '查找块
   1 O4 z2 x& f% a$ O, X; }
2. Public Sub FindBlock()
   
3. 
   
4. Dim Objblock As AcadBlockReference
   $ Q$ p8 ~& s( C+ a
5. 
   
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   , O* z# B! ~. M7 ~- ~( K1 q
8.      MsgBox "存在！"
   
9.   Else
   0 O% w1 x0 E8 ^& }
10.      MsgBox "不存在！"
    
11.   End If
    
12. Next Objblock
    + H3 T8 t% h# ]4 u1 ^
13. 
    9 u' K: }6 T' L; j1 w3 Q
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   # _6 D: k9 p$ s, s1 y
2. Sub A()
   4 o' @% `: k5 Y
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   
4.     For Each E In ThisDrawing.ModelSpace
   # [3 D: Q" q7 O% H- P: F
5.         If E.ObjectName = "AcDbBlockReference" Then
   3 b+ }& [8 a9 W+ N4 Z  f
6.             Set BR = E
   1 [# q: X' f7 r* G
7.             If BR.Name = "属性块" Then
   6 ~0 F0 }  k" M
8.                 B = True
   $ n3 ]5 B5 ~* u; i6 z
9.                 Exit For
     ]3 G. y. @1 Q0 \) v0 d2 d
10.             End If
    
11.         End If
    
12.     Next
    
13.     If B Then
    
14.         MsgBox "存在"
    ) F) f  ]6 y3 s1 y2 `, Q% ]
15.     Else
    
16.         MsgBox "不存在"
    
17.     End If
    
18. End Sub
    

复制代码

"For Each XX In ThisDrawing.ModelSpace....Next"是循环遍历模型空间所有图元对象,而你的循环变量声明为块参照对象.假如模型空间只有块参照一种对象,那你的代码就不会出错.如果模型空间中存在多种图元对象,那当然会出现"类型不匹配"错误了.所以,遍历模型空间要使用"AcadEntity"型变量或者"Object"甚至是"Variant".
上面的代码中用"AcadEntity"型变量做循环变量遍历模型空间,检查每个图元的"ObjectName"属性,当发现"AcDbBlockReference"(块参照)图元时,再进一步检查是否是所要查找的块参照.

woaishuijia

有个问题:你是要查找名为"属性块"的块参照,还是要查找带有属性的块参照?
8 `1 W6 N: t7 J6 Q6 O8 D! Q如果是前者,上面的代码就可以了.如果是后者,要用下面的代码

1. 
   - ^8 J7 g9 e) @# E
2. Sub A()
   4 D8 s5 T! s9 O& a
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   ! l: L" B6 K, y/ p
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   
7.             Atts = BR.GetAttributes
   
8.             If UBound(Atts) >= 0 Then
   
9.                 B = True
   / Y3 ]/ l+ h, A* z+ ~5 x
10.                 Exit For
    ; J4 S& ?/ W) a, D& L: X' L
11.             End If
    ; y4 P; ]7 p) o- r( R/ Y
12.         End If
    * C$ c8 s  @8 ]/ N6 J0 X3 Z# U* I
13.     Next
    
14.     If B Then
    
15.         MsgBox "存在"
    
16.     Else
    
17.         MsgBox "不存在"
    ( e( @* {7 K0 `( q) h7 i
18.     End If
    
19. End Sub
    

复制代码

先声明一个变体变量,用块参照对象的"GetAttributes"方法获得块参照对象的属性数组并存放在这个变体变量中,再检查这个数组的下标,如果是-1则说明数组为空,该块参照对象没有属性;如果数组下标大于或等于0,则说明该块参照有属性.

winer3086

3# woaishuijia

! p9 E+ }! A0 ^) C4 S我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。