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

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

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

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

x

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

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

'查找块8 O |7 Q& ^6 s! n% p2 A
Public Sub FindBlock(): n; z3 _. N9 w* J8 d( J
8 z B7 @9 s4 S4 l
Dim Objblock As AcadBlockReference
' U _, p7 `8 |* k2 V- |; s2 W0 U$ w
p" H6 b0 E+ m2 X
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配# C9 D6 E* g# Z! C$ q9 w- ^. G
If StrComp(Objblock.Name, "属性块") = 0 Then
( V4 E4 J& b$ [. \
MsgBox "存在！"
- O. q4 `. b! S* B
Else' p$ y9 F, D' C6 q; _8 P5 p' l* k. U
MsgBox "不存在！"+ i. L. x% C. f! y$ V
End If
1 N) Q8 T7 S6 R2 M% }
Next Objblock$ g( L+ \* W2 c3 |: F9 G
! ]0 k: b; d: W' U
End Sub

复制代码

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

参考下面代码

K2 C! m6 V% _: T
Sub A()
/ O( H2 F% A& A. H# ~ m
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean: u3 g& I I* \. r
For Each E In ThisDrawing.ModelSpace
0 f1 L: Y$ V- D( [' r, K5 {& h
If E.ObjectName = "AcDbBlockReference" Then
y" W7 i6 q4 g; i- P. v( r
Set BR = E* W( }5 Q9 `. b8 C
If BR.Name = "属性块" Then
5 ?' ^: I4 p! ^: ^1 l# z; o( B( h6 {
B = True; P% h( N5 _. L' c
Exit For
+ B9 _' D3 h7 x& q& [/ M
End If
9 m7 W0 V5 }. m0 e
End If
5 G/ g7 X0 j {( X# a
Next
! B \, b3 M0 T! L7 L* _8 t
If B Then" F9 x9 O& g) M" W0 n5 x `8 ^
MsgBox "存在", p5 K" z/ g* A6 o1 [- T* k
Else L# I! W$ M1 l* N$ |1 s
MsgBox "不存在"
, ^- W4 N, ~5 B8 e& Y2 j# I
End If, D! k8 l2 C1 i+ n3 z- Z
End Sub) S3 W- F# F0 T! J: H( w. x, U

复制代码

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

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

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

' r! ?# d$ \: f [
Sub A()% V# N3 {1 V1 V! Z& |+ G/ X
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant& ~# ~; o$ V3 D: d2 O$ Z
For Each E In ThisDrawing.ModelSpace
" C' p1 n; ~1 A2 B
If E.ObjectName = "AcDbBlockReference" Then
3 B! @; H2 g s
Set BR = E
& w; H3 V+ ^- X$ v' ^* w
Atts = BR.GetAttributes: Y/ f/ u2 N6 F
If UBound(Atts) >= 0 Then- q$ Y& R2 j8 p9 @
B = True H9 T5 x! B+ h1 O1 k! g
Exit For
: P! ~7 ?: m1 g6 [& \9 h! j# O
End If
9 h1 B. U+ | i9 y5 G% p* V
End If* ~5 M) G( Z# n! T9 O" Y
Next
/ i& W, E) D6 |# l. m/ Z
If B Then5 ]* G% W" M; O/ h7 Y8 Y
MsgBox "存在". Z9 A9 q; A* F1 J1 {; g2 ~7 @
Else
/ I2 v: V8 i6 h* ~# ~
MsgBox "不存在"
' V& S, r3 s- y$ I. `/ l T( G
End If" @4 x9 a% Y9 K
End Sub( O8 U! S h7 M1 e& w! z

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块