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

winer3086

5 v3 [  E2 s# a2 V
各位大侠，帮小弟看看这段代码是哪里出问题的。我是参考着书上写的

1. '查找块
   
2. Public Sub FindBlock()
   8 u- \* U: B4 [6 R2 ~( w' N
3. 
   
4. Dim Objblock As AcadBlockReference
   
5. 
     ?; U6 g4 j4 G% {7 x- x
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   9 ~9 u  O+ i& I
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   
8.      MsgBox "存在！"
   
9.   Else
   
10.      MsgBox "不存在！"
    
11.   End If
    
12. Next Objblock
    9 V) |6 s8 o  B" R5 b% ^+ X& p+ y
13. 
    0 ~$ a% \4 T7 a3 |. U# O; {
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   
2. Sub A()
   
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   & h6 s1 I& d5 r) N% e& N$ Z5 b) L8 \0 K
4.     For Each E In ThisDrawing.ModelSpace
   8 Q8 [; c; Y. ?6 o7 u: |1 d/ B3 m
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   
7.             If BR.Name = "属性块" Then
   
8.                 B = True
   9 k+ B" Y; S  }6 Y% \$ m* H
9.                 Exit For
   ' C" z: I9 d2 H$ g6 Y$ W
10.             End If
    
11.         End If
    . U: x3 S! a1 P# B+ K' W
12.     Next
    ; g4 U! W! g- Q/ {: O
13.     If B Then
    8 }  s" v1 ^% p- }' m  ~2 G
14.         MsgBox "存在"
    
15.     Else
    * Q. z8 |1 |5 }( a: v
16.         MsgBox "不存在"
    
17.     End If
    
18. End Sub
    

复制代码

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

woaishuijia

有个问题:你是要查找名为"属性块"的块参照,还是要查找带有属性的块参照?
* p9 {" H3 w8 g1 e$ v如果是前者,上面的代码就可以了.如果是后者,要用下面的代码

1. 
   
2. Sub A()
   9 `' ]" M* W1 H9 O& P4 S3 T$ n
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   5 p2 f9 M5 ^3 C4 ?" s
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   7 J3 g9 y; W( X( a5 n
6.             Set BR = E
   , o; l( n$ e+ E% E5 B
7.             Atts = BR.GetAttributes
   
8.             If UBound(Atts) >= 0 Then
   0 q) j" L0 `* q! ^
9.                 B = True
   
10.                 Exit For
    0 U+ d& I- t+ z! q; ?5 O  m8 f
11.             End If
    
12.         End If
    
13.     Next
    
14.     If B Then
    6 T. y0 p6 V- }, q  g
15.         MsgBox "存在"
    
16.     Else
    
17.         MsgBox "不存在"
    # ^6 J1 }% `4 l5 ^
18.     End If
    
19. End Sub
    

复制代码

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

winer3086

3# woaishuijia
: O5 U' }2 R( s, E5 l
; r, u' Y7 l% n  {我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。