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

winer3086

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

1. '查找块
   7 Y, u5 D6 L/ f: f- H) o
2. Public Sub FindBlock()
   $ K, W" {7 v/ s
3. 
   # ?2 M0 g) |4 [9 g) V3 C2 K* k
4. Dim Objblock As AcadBlockReference
   * p( g7 Z. f6 L* k
5. 
   ; e  t) D' I$ F* a" L
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   8 p! M7 W1 ?) _% ^' c- m
8.      MsgBox "存在！"
   9 Z  C) M0 D# s# s
9.   Else
   
10.      MsgBox "不存在！"
    * a1 T8 X; s4 ~9 T# X& H
11.   End If
    3 s6 t+ v: `7 e4 Z2 M
12. Next Objblock
    
13. 
    
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   
2. Sub A()
   
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   3 p4 h1 _5 o" L: \6 T/ i, o1 a" A
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   
7.             If BR.Name = "属性块" Then
   4 H, ~: P0 U. a* y: @
8.                 B = True
   ( P9 j/ f/ v, w/ Z
9.                 Exit For
   
10.             End If
    2 `/ v5 [# T% T% Y' a+ W7 t
11.         End If
    
12.     Next
    
13.     If B Then
    ) ~+ A/ q; h1 r4 |' G8 t
14.         MsgBox "存在"
    
15.     Else
    
16.         MsgBox "不存在"
    4 }! e! W$ |' G/ O$ V) C% s
17.     End If
    
18. End Sub
    6 W. a; F& K8 |

复制代码

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

woaishuijia

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

1. 
   % L* {7 Y* v0 o
2. Sub A()
   7 `% T! d$ z- i7 B
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   
4.     For Each E In ThisDrawing.ModelSpace
   
5.         If E.ObjectName = "AcDbBlockReference" Then
   
6.             Set BR = E
   . X9 r0 ^- A/ @) {, w1 n
7.             Atts = BR.GetAttributes
     H% X; d/ n/ L) [
8.             If UBound(Atts) >= 0 Then
   
9.                 B = True
   7 v: b3 B- [& e- S' q+ M# q
10.                 Exit For
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     If B Then
    9 d6 Y5 e6 v6 s
15.         MsgBox "存在"
    : j: b) c6 k! Y9 B. r- M# n
16.     Else
    
17.         MsgBox "不存在"
    
18.     End If
    
19. End Sub
    

复制代码

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

winer3086

3# woaishuijia
/ @/ ?" H1 o9 I1 F
2 d6 n2 M8 c1 a5 ^; J我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。