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

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

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

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

x

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

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

'查找块
1 T# h S- B! o
Public Sub FindBlock()
4 b% _& q2 o4 q" w; d( V, d
1 \: H* D) z/ v: a
Dim Objblock As AcadBlockReference9 h& j9 X) m" {1 r1 c+ F9 n
m6 H+ T! M) O% [/ U8 F( r
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配3 D7 s8 @, n7 ^$ g: `7 [3 h
If StrComp(Objblock.Name, "属性块") = 0 Then
( t+ E- C1 R9 L3 x5 E# D) H
MsgBox "存在！"
7 Y) c. @0 ]; r& c; @# u Z9 B
Else
/ U. i' p! W1 j. s
MsgBox "不存在！"* f3 L3 I+ B) P' e2 X `8 S9 |
End If
4 j) l! s; ]2 \0 h% l1 q9 Q6 }/ \
Next Objblock
- A2 o2 T0 `7 `- ?/ Y$ |" j/ J0 r
4 n0 x6 B# Q& u r
End Sub

复制代码

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

参考下面代码

( q: _- x9 E+ V" _/ B* `9 v3 L
Sub A()' o( Y+ H8 q- _
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean; }) S* g5 |. a; L/ ^! s. T
For Each E In ThisDrawing.ModelSpace
/ q0 Z* q8 J0 t" D
If E.ObjectName = "AcDbBlockReference" Then
1 Z1 z! l0 a# @
Set BR = E" L* `/ ~# l9 ~( I
If BR.Name = "属性块" Then$ B3 |2 T' ^0 n3 L
B = True& ^& \( \+ {9 y, h
Exit For
- {% l" }. i! v+ c; Z, M! C# {
End If* b( Y4 U& }/ @6 z4 P1 A
End If& n; u: H; p1 h: z5 ~& x
Next) n" B$ i2 i8 v' G) C) _" ~$ z
If B Then
1 g( c1 O2 q7 k) Y7 ]
MsgBox "存在"
- _) J$ s7 F% h* Q' A& @
Else) H, j9 u; z$ m. f6 B3 ]5 x
MsgBox "不存在"
9 O G/ z5 r8 h0 g7 B+ |
End If- F' H8 E; [( n w( t, r- ^4 q! b
End Sub
/ \. Q0 x5 D5 A

复制代码

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

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

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

1 @' ?' a$ {4 ?0 Q" \% ~
Sub A()
" N2 w2 R \7 j" d- V
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
) K5 ?/ Q4 w6 e$ Y3 \& h
For Each E In ThisDrawing.ModelSpace; i8 F$ X% c5 c- X/ M( |
If E.ObjectName = "AcDbBlockReference" Then
# n) X `( o, x) X& x+ I
Set BR = E
- y4 m# T+ Q. d+ Z/ e
Atts = BR.GetAttributes
2 {: x. z3 h' A5 j( w' v' m
If UBound(Atts) >= 0 Then
) @2 D( E- B: [* f; @; Z2 i9 Y
B = True( z/ b( [: ?2 c( O
Exit For& R, R# q5 Q4 Y) ^0 Z0 T, l
End If
6 e4 J( w) `6 w7 {4 H+ x8 f' @5 n
End If
' T; r5 a' T) ]+ s o! A
Next6 u: j4 {9 _6 I
If B Then- M8 ^8 E/ f/ H: U- l
MsgBox "存在"2 ^3 W6 V/ k- c( T5 h1 e
Else% r) Y) m$ x& S6 G2 ?9 e
MsgBox "不存在"* p: \2 J! f2 o0 f; k/ w$ D# a2 ^
End If t7 p! o% t3 s# m, Z2 o6 J
End Sub2 Y2 `1 n- L! U$ q( Q

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块