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

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

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

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

x

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

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

'查找块
" F4 f1 P& c6 N0 d) {; z
Public Sub FindBlock()9 f5 ^6 y5 R( v1 N M6 E6 P% Z
1 N% y" R( V5 B L: I) j9 b
Dim Objblock As AcadBlockReference
0 _7 W: Y! C$ M2 e/ |( h
7 G) p4 S- D4 S0 ^' y+ }
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配
) z9 J, }' f& P1 M0 d* {( |2 h
If StrComp(Objblock.Name, "属性块") = 0 Then
: {0 K: K! i* `
MsgBox "存在！"
. o0 Z1 y3 ]! O- T* i3 D
Else$ m ?% `% `/ V* w ~9 @/ J3 q
MsgBox "不存在！"; L8 U4 o5 x$ c& |1 W" C6 b
End If
% e: j4 `% C% t2 A% i) h
Next Objblock
$ a) d) L/ {+ d+ x: ^8 H; b1 F
, k7 n- n# @% d* }9 L
End Sub

复制代码

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

参考下面代码

5 p3 {# F7 ^1 T( |& S, `( ^6 D+ R
Sub A()8 {& [" ~. @5 ?% }
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
- X2 w* w8 F! V* v! K# G8 ]% S
For Each E In ThisDrawing.ModelSpace
. A- D& g" J' y- R0 j& s
If E.ObjectName = "AcDbBlockReference" Then
, r, n$ Z7 x: X. F7 g: l
Set BR = E
1 L. U$ T# z% B8 i
If BR.Name = "属性块" Then
* @3 j. s K2 s/ ~- A
B = True
* ^3 r5 ?6 P) d' U$ J. `
Exit For
8 `% ?8 `1 _( w0 N
End If
+ i O6 F4 ]$ b
End If5 [0 F4 i. C0 z2 m! a: t
Next0 u. \5 ?$ h# K0 f
If B Then
( Z! _* r9 h& T5 Y+ ~& G6 q7 I
MsgBox "存在"
. v0 W! W2 L$ \; ^. i
Else7 |% X6 v( l) r) S
MsgBox "不存在"
/ K7 E9 G4 j* G" g z
End If& X2 O! D$ C: }
End Sub
3 H! W& L3 g' Y$ ]

复制代码

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

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

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

0 J" S& k4 F/ i; `4 P8 N
Sub A()
& H, `% W& ~& Y5 |. s
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant7 u; r, X+ w* q y& N
For Each E In ThisDrawing.ModelSpace, A$ `8 {$ ] I
If E.ObjectName = "AcDbBlockReference" Then
5 j2 Z! l+ d& ~* a- E5 V: P% j
Set BR = E
, K' W% J# W2 ^ J, f/ Z
Atts = BR.GetAttributes4 d9 o' p3 N2 X4 u2 J: O. ?
If UBound(Atts) >= 0 Then
9 R- ^/ y# q' Y7 U; _. ^" I* T
B = True
" y% A6 ]7 V/ f3 Y
Exit For! L; o+ H0 o2 U9 P
End If- {: h6 i5 D4 n
End If, x/ H: Y2 h; ^2 A$ I' s
Next- A3 e3 ` y2 J, ^5 U$ V
If B Then
* z4 {! ~& I" \* ~4 ~( V# `
MsgBox "存在": W! r# g. W; L8 h* g
Else' T' A$ ?4 @% s5 K+ c
MsgBox "不存在"
3 j5 A t' A6 `6 x0 g0 L. _2 g" ]
End If2 n, `& f3 d Z
End Sub
) @( a- a( J6 q, v; c

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块