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

winer3086

各位大侠，帮小弟看看这段代码是哪里出问题的。我是参考着书上写的

1. '查找块
   
2. Public Sub FindBlock()
   
3. 
   $ w; g2 G: w9 L: Q8 R. `
4. Dim Objblock As AcadBlockReference
   
5. 
   ( `; s" R0 W% d: J
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   ) P  |/ U  t& q/ N
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   ) n0 [% Q/ V( ]8 _6 x
8.      MsgBox "存在！"
   6 \5 E0 S5 ~$ ]2 }0 K
9.   Else
   
10.      MsgBox "不存在！"
    1 b* f/ J% ?! i$ O$ b/ q* d+ L
11.   End If
    
12. Next Objblock
    
13. 
    
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   0 X3 B0 O, F  [$ l1 C  H. i
2. Sub A()
   1 n- U- u+ J; t; P/ y
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   
4.     For Each E In ThisDrawing.ModelSpace
   7 V3 J- ]! j- d' B- d
5.         If E.ObjectName = "AcDbBlockReference" Then
   4 X0 N( i: W6 C. e1 M$ W. n( f
6.             Set BR = E
   
7.             If BR.Name = "属性块" Then
   * _0 V- I- K) g3 I& [$ u, n8 c
8.                 B = True
   5 u9 h* s1 k# W8 ]; O9 E
9.                 Exit For
   
10.             End If
    ; Z$ j1 M. h0 a8 W/ P
11.         End If
    
12.     Next
    8 K# Y; Z2 g; L, x' J; }) i
13.     If B Then
    , g% i" W. Q+ x. k& @: D$ D
14.         MsgBox "存在"
    
15.     Else
    
16.         MsgBox "不存在"
    
17.     End If
    
18. End Sub
    - g! k. P8 m& I8 X

复制代码

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

woaishuijia

有个问题:你是要查找名为"属性块"的块参照,还是要查找带有属性的块参照?
: n' O5 K& b3 w8 a6 G4 g- o如果是前者,上面的代码就可以了.如果是后者,要用下面的代码

1. 
   0 y3 i" O, T3 p* G
2. Sub A()
   - c4 R4 i" J! j8 e9 W2 t) R
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   
4.     For Each E In ThisDrawing.ModelSpace
   / Z3 D+ W% f2 }. m
5.         If E.ObjectName = "AcDbBlockReference" Then
   5 ~! S  L# v: N* N
6.             Set BR = E
   8 w2 M" y  `1 d* E5 x5 O
7.             Atts = BR.GetAttributes
   
8.             If UBound(Atts) >= 0 Then
   
9.                 B = True
   & _6 _/ A6 j6 K7 J' K
10.                 Exit For
    1 V! y, T" P' d4 Y
11.             End If
    
12.         End If
    5 n# D  w8 o' k! Q
13.     Next
    " N+ ^5 d, w6 J
14.     If B Then
    ' c( j/ t- y& A4 |
15.         MsgBox "存在"
    
16.     Else
    7 H- q4 }+ S( m( g( }
17.         MsgBox "不存在"
    ; S. x# ^# r( t, K5 b
18.     End If
    
19. End Sub
    

复制代码

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

winer3086

3# woaishuijia
8 q- N9 v; x2 w
9 p+ }! J; P" L5 Z- s) B我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。