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

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

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

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

x

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

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

'查找块
* n$ G7 J# l3 k/ [. E
Public Sub FindBlock()
5 t9 E8 a; u" _) R( g
8 ?0 j5 Y( r7 k3 a5 h7 e$ z* e
Dim Objblock As AcadBlockReference
9 Z0 z% i- H! |
+ f% o D: f! W1 D1 p+ G- ~
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配: o Q4 g3 D- j. p. }
If StrComp(Objblock.Name, "属性块") = 0 Then
5 W, d2 R/ n1 H" _
MsgBox "存在！"! e7 f2 V% I% f7 ^0 M9 [2 B3 U
Else$ h- K4 J8 ]1 o
MsgBox "不存在！"
6 n- ^1 Z/ B7 B- @
End If( w7 n7 t, x' ~3 y" `7 u
Next Objblock
# M9 I- O8 o% ?0 s4 {( g
$ U- S6 v' i# J; q. L
End Sub

复制代码

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

参考下面代码

1 O4 @) Z# F( I; E
Sub A()2 A4 R& v/ h% o% E$ ]: X3 }5 t
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean- [, K# J! y) N' U# B; `& L
For Each E In ThisDrawing.ModelSpace
1 N( ?/ t& r+ V8 @) ]7 w( Z
If E.ObjectName = "AcDbBlockReference" Then% J3 S, O3 n9 S- V& l( a0 j
Set BR = E# ^* d W9 L# s7 ?' A" K& J) A
If BR.Name = "属性块" Then) l/ Y- z: k3 K% l8 m9 I! B# I+ h4 n
B = True
( `7 Q1 i6 l% u, n0 J! a
Exit For
3 J4 k ]" b0 t- ^6 b
End If
3 F; ~0 q+ E" O" y7 r7 l
End If
+ y0 o4 w$ C3 }# ^' e' M
Next% H( X: {2 Q; H2 B- w
If B Then
! [' ?, P3 g: g; o) t
MsgBox "存在"" i) X3 ]) H7 x4 j8 Y
Else H7 k$ v6 f4 H V! g2 U/ N
MsgBox "不存在"2 n& I( t7 V; E8 x# M' G0 d
End If
M5 P. H3 F2 h( V! Y7 k7 p
End Sub
[2 \2 b) A# N! `' D4 o7 b

复制代码

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

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

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

" T; W( l; f- i/ u4 L, t
Sub A()
9 N" u4 Y7 m' ]5 w/ u; G9 m+ Q/ S
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
. s$ Z' R! } ~
For Each E In ThisDrawing.ModelSpace, d# J! e, J, \: N, w, q. }9 h7 w
If E.ObjectName = "AcDbBlockReference" Then
7 z. k; z8 r. @/ O5 I0 j: E
Set BR = E! p, R7 A4 \2 r
Atts = BR.GetAttributes5 L' A) q: N# c* z4 W
If UBound(Atts) >= 0 Then
3 \0 O# _1 E" o9 l( T" z$ w- \
B = True
2 n9 b+ M$ m% X O$ K
Exit For# p9 L) t- o+ E! U3 a
End If" H) p$ [; `, p& K8 e4 H4 f9 K
End If- P; l: A; @7 }' ?' K
Next
4 @ y( B9 J( d) E& g* w) n
If B Then
( o# j' Q% E6 e* x7 a$ V
MsgBox "存在"
. v: j' U* k1 `5 Z7 d
Else$ M7 ~# G' T. i8 {( b: k
MsgBox "不存在". s$ x1 \8 P1 E( y) l: r5 N5 q' z
End If% v# G* p( T) U, e* f' g/ A
End Sub+ i- ]5 q7 Z3 V2 o( l) Z- ?

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块