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

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

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

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

x

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

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

'查找块
9 G1 t, w! j: K, K1 F# f4 E/ }
Public Sub FindBlock()
( N( R5 D/ b3 u
* w( B/ u/ x; ~8 a
Dim Objblock As AcadBlockReference
* ]0 ?" L, x+ }6 j: [9 V
' E6 e8 ^' T9 b* @7 {& T( J
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配
- b: ]+ Z* z! y, Y
If StrComp(Objblock.Name, "属性块") = 0 Then3 X" o( x. c. E
MsgBox "存在！"
/ f* X- R, F Q: V% s+ y
Else; E4 P+ a1 w" `8 k, b
MsgBox "不存在！"6 }5 k6 t, }" k3 J, ~; |0 t3 `+ C
End If
$ E9 y, U) m! [8 s
Next Objblock) m& E9 B3 {1 [7 H
$ I. a p6 k! C
End Sub

复制代码

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

参考下面代码

. ?; g$ T0 j5 ^+ O2 e5 \
Sub A()4 U+ i! e+ F; S5 E [2 Y
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean& ]4 k$ k i9 m8 e
For Each E In ThisDrawing.ModelSpace
& Q8 g( E$ Z6 m2 y$ ^9 m
If E.ObjectName = "AcDbBlockReference" Then4 k: { I% \) S2 J4 ]: C4 s. S
Set BR = E
* z, H3 I& g+ W# f4 O
If BR.Name = "属性块" Then
( o. P5 A+ o' ~
B = True
& @/ O) E- I! Z
Exit For
7 i' ]8 x. {. k8 i& c$ K" D
End If
0 K' x. t% O! X. E
End If' r; `- S9 A! w& k# s7 _# t
Next
. X8 u, P+ Q" Q
If B Then
1 q# _* N- O3 k7 [
MsgBox "存在"4 X( `6 Y# Z4 W5 c: }! P# B
Else
: r; P/ r7 h8 S& u3 J: H4 e! F
MsgBox "不存在"
# t, G* \4 |! A8 [+ f
End If5 D! _2 f$ J' L" k% c8 p+ R
End Sub/ |; O$ F; t' q# g

复制代码

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

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

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

, W, t# _: a6 K# g4 ~% V' Y/ ~- b
Sub A()& w& y$ D) o% G6 g+ `3 G
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant9 X. ~) R2 m8 a% r
For Each E In ThisDrawing.ModelSpace
+ ]% A/ u1 T: R: n7 T) M& l, ?. j0 O
If E.ObjectName = "AcDbBlockReference" Then. Y0 G) ]7 W1 g# `1 g
Set BR = E: K+ H: F$ `. A$ }" B: H, n, w' Z
Atts = BR.GetAttributes* W$ e% g; R$ W6 v! N8 n+ M! r
If UBound(Atts) >= 0 Then
1 l5 Y5 |* h9 X: k/ u3 ]4 c
B = True
5 H% k0 @1 G) t, ?$ K
Exit For% J- o# k0 o2 r, v
End If
1 X- k) u& D, J) d1 F% G
End If- n( P# z9 v) o1 g1 o
Next- u$ ^0 g# h! U4 M9 e/ ~
If B Then% Z( F/ G$ B: K0 `6 D. k# H0 [9 U
MsgBox "存在"
" t W: _- j A9 }
Else( W- \6 T, T: U5 b3 J" W
MsgBox "不存在"
# \4 h5 R7 B+ G- d; @
End If: e, U6 Q; ]) s* C- a% m, X- z
End Sub
) E9 e0 X0 g l0 Y$ Q" Q0 Y

复制代码

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

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

3# woaishuijia

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

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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