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

winer3086 · 发表于 2010-9-1 19:07:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 woaishuijia 于 2010-9-1 20:17 编辑

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

'查找块
$ M. S1 |% Q7 A" @. t' g+ M
Public Sub FindBlock(); h' I% ?* [' X. E7 m
: {' \5 F% Q" W, E0 ~! p5 M
Dim Objblock As AcadBlockReference7 V. C& b- J% P
0 T+ ~1 e/ C& R) `" X+ y
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配( m5 c: j+ z5 e4 C. o. n
If StrComp(Objblock.Name, "属性块") = 0 Then9 K' r. ? i: _& G8 n0 U
MsgBox "存在！"1 D& `/ D+ J. t2 c* f2 e
Else
) u( R0 k! u1 P3 r0 w9 z0 ~
MsgBox "不存在！"
, v: v; ^0 T4 ]! s& g
End If" @( U; }' O1 y
Next Objblock) Q: B+ D' ]# `+ ~" J' E* H
/ Z P1 X1 \# V5 H. P
End Sub

复制代码

woaishuijia · 发表于 2010-9-1 20:47:27

参考下面代码

, s, n& i9 E. A3 { W8 K) }# _, I
Sub A()
) X+ y, X9 H4 p
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean9 \2 { g& q4 v6 o
For Each E In ThisDrawing.ModelSpace/ J% l' i# ^) v) X
If E.ObjectName = "AcDbBlockReference" Then* c' I6 h/ g& M d+ x/ k$ {
Set BR = E- H+ Y$ m# P8 p5 \
If BR.Name = "属性块" Then/ k5 h7 j. i3 n/ B* p$ `
B = True( [9 [8 C% [/ S' z( w% V
Exit For
9 q: h1 W: Z) K8 Y+ v0 z8 b
End If
$ s; G! h8 `5 R$ a& Z6 `. L
End If
1 u4 i0 {0 A7 F
Next1 [( |+ D+ p- E8 j- z1 W/ V# ]7 W
If B Then/ o0 v, d' v |+ J9 S4 G
MsgBox "存在"' t) V' H9 x# d2 f) [' h& O
Else- b* ?5 E1 Y/ S( F( z
MsgBox "不存在"
2 Y8 R! N! a# Y- @. P4 a
End If
/ G. A1 x" K3 Z3 ~' W( i: H7 K+ j# v
End Sub
% B/ F. R6 r L7 s- g( ^

复制代码

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

woaishuijia · 发表于 2010-9-1 21:07:20

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

% @: @ l+ [ e
Sub A()1 w+ B& B" y& O; h/ [
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
7 b. J2 r1 Y* Y! z7 p
For Each E In ThisDrawing.ModelSpace
$ i3 o' J8 N- N% ?0 r% `$ C4 I
If E.ObjectName = "AcDbBlockReference" Then
' _& e# D" u/ d W* [: a
Set BR = E$ o2 P S% z. M4 ^: e5 X. p
Atts = BR.GetAttributes8 m* Z& `! d/ s6 m. Z3 \
If UBound(Atts) >= 0 Then
9 @ R! m# v/ B, r
B = True
$ Z) g- Y- f* M( i
Exit For! d4 z6 B8 K$ E# w u1 c% l
End If
) ], L ?& E% Z- n! O
End If7 c5 }. @; s5 Y/ U6 X) `6 o
Next* r3 B5 o2 z$ t2 b, k& Q
If B Then
9 N$ e/ h( |6 t4 m) i+ I
MsgBox "存在"
/ m" G& T8 y& v, v! C4 x7 c6 X* B& y0 R
Else
$ M. D p( T" G N( d8 S
MsgBox "不存在"- n; m: j: B( p# A
End If8 o2 r! u) `& e% S' S7 E( e% ^' x
End Sub" q. a7 Q' z; Z9 i( h. k9 z

复制代码

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

winer3086 · 发表于 2010-9-2 09:15:41

3# woaishuijia

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

		自动登录	找回密码
密码			注册

通知

[已答复] VBA 查找属性块代码是这么写的吗？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。