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

winer3086

  ^7 X2 H" t4 k) `
- a5 Y" J7 ^6 [, f( q6 c( t各位大侠，帮小弟看看这段代码是哪里出问题的。我是参考着书上写的

1. '查找块
   8 w8 K  K' S, P
2. Public Sub FindBlock()
   - x" |* X4 W( U0 P$ e, N
3. 
   
4. Dim Objblock As AcadBlockReference
   4 d4 d* `* f$ f7 B5 e
5. 
   
6. For Each Objblock In ThisDrawing.ModelSpace     '这句话出错了，说是错误13，类型不匹配
   
7.    If StrComp(Objblock.Name, "属性块") = 0 Then
   3 |2 T! z8 {1 F2 b, P: n
8.      MsgBox "存在！"
   - a# D6 T9 e  {1 @$ l$ I% f$ ^# W
9.   Else
   
10.      MsgBox "不存在！"
    
11.   End If
    
12. Next Objblock
    - X, B6 c6 [" o& ?3 D
13. 
    
14. End Sub

复制代码

woaishuijia

参考下面代码

1. 
   
2. Sub A()
   5 }' K; q, }7 Q) F( }2 E
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
   ! d/ ?% P0 X! w! i3 `
4.     For Each E In ThisDrawing.ModelSpace
   2 k( g$ O% F0 s
5.         If E.ObjectName = "AcDbBlockReference" Then
   5 n7 V: D" o7 Q0 t2 z+ ^7 S
6.             Set BR = E
   
7.             If BR.Name = "属性块" Then
   
8.                 B = True
   4 K5 ~. ]4 g1 z! h, }! A0 P9 V" }
9.                 Exit For
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If B Then
    
14.         MsgBox "存在"
    ( \+ f6 H# }( P% Y
15.     Else
    5 [1 n2 `' d! o4 j' R9 H
16.         MsgBox "不存在"
      L: i+ h6 _7 f( x9 Y. ?
17.     End If
    " S. h$ d& m: L( ?
18. End Sub
    

复制代码

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

woaishuijia

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

1. 
   
2. Sub A()
   5 U4 L' ]9 n0 @0 [5 @
3.     Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
   $ F( i# T  A4 @' @$ \8 J/ g
4.     For Each E In ThisDrawing.ModelSpace
   8 R( K6 X7 P. L, h# x6 `7 @$ q
5.         If E.ObjectName = "AcDbBlockReference" Then
   1 V& B! V5 m; ~: U5 ~
6.             Set BR = E
   
7.             Atts = BR.GetAttributes
   
8.             If UBound(Atts) >= 0 Then
   2 {$ X; ]' L9 b
9.                 B = True
   ) o8 \8 ^; X; N. M- y+ Z, t
10.                 Exit For
      o, J* j/ b- K8 s; f
11.             End If
    
12.         End If
    
13.     Next
    4 z9 h" Y7 e1 d; ~9 N
14.     If B Then
    7 @& ?( \  `6 @" H% O5 O: ^$ Y0 f
15.         MsgBox "存在"
    & |8 i% |/ z. B) P$ q$ O! n; L
16.     Else
    
17.         MsgBox "不存在"
    
18.     End If
    
19. End Sub
    + ^6 N9 Z* g8 s; g

复制代码

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

winer3086

3# woaishuijia

我是想查找名字为“属性块”的块。谢谢老大的支持，小弟感激万分。