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

winer3086

0 ]  ^+ r; C5 u% ?* }" n& W
8 z8 T- {+ O* D# O各位大侠，帮小弟看看这段代码是哪里出问题的。我是参考着书上写的
$ x7 e, F8 e! R5 Y

1. '查找块
   6 H  R; }" w3 Y) B# p$ J/ _
2. Public Sub FindBlock()
   6 E5 E; ?9 T. g0 T$ H! v3 z, Q8 R8 n' I
3. 
   - x7 u) x3 w, {) F
4. Dim Objblock As AcadBlockReference
   2 z, f  D$ ?6 I; h
5. 
   
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   4 h1 j7 \) E8 V: e/ J/ V: x
8.      MsgBox "存在！"
   
9.   Else
   ; F. r1 Y- c& N; f4 z# d7 d4 W6 W
10.      MsgBox "不存在！"
    $ U7 P6 x. Z# w& `6 p, w" G
11.   End If
    # A- ^, K+ D7 p9 X* B
12. Next Objblock
    
13. 
    
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   5 y, _& q8 C( H- E
2. Sub A()
   
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   
7.             If BR.Name = "属性块" Then
   3 d8 \6 X% X  A( |% z& V
8.                 B = True
   
9.                 Exit For
   
10.             End If
    
11.         End If
    ; Z) L- j- Q: J1 Q, y# D4 V: n
12.     Next
    
13.     If B Then
    
14.         MsgBox "存在"
    
15.     Else
    
16.         MsgBox "不存在"
    1 ]* O6 t  w% f: `6 a
17.     End If
    7 P: K. m! T2 a7 M5 |5 J
18. End Sub
    " l( t5 T$ N) q# g7 @

复制代码

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

woaishuijia

有个问题:你是要查找名为"属性块"的块参照,还是要查找带有属性的块参照?
' X$ J2 |; \0 \4 c9 ]1 s如果是前者,上面的代码就可以了.如果是后者,要用下面的代码

1. 
   ( Q+ T0 @9 O, D- N- y) @  \
2. Sub A()
     f, v( z  i1 H$ Y' _% k" f9 L
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   % D5 y/ s- Y9 b5 y" `- t" {4 I
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   
7.             Atts = BR.GetAttributes
   5 s, p  v4 O* v, Y
8.             If UBound(Atts) >= 0 Then
   - s* Z0 w& f, l! J, o$ s
9.                 B = True
   
10.                 Exit For
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     If B Then
      v( Q4 w0 ?1 ^7 t- X8 C' y
15.         MsgBox "存在"
    " G  d2 I' h1 S% K9 m/ ?
16.     Else
    
17.         MsgBox "不存在"
    * N9 P8 |8 b; @+ z6 E
18.     End If
    8 |8 [( t9 U5 U% b
19. End Sub
    

复制代码

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

winer3086

3# woaishuijia
$ ]1 U2 l0 f! L) Q2 i7 M
我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。