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

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

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

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

x

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

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

'查找块
) Y J7 t; w# D/ f, ~) t
Public Sub FindBlock()
7 U4 X8 z2 R" m6 |
8 i$ V1 G/ [- _- B
Dim Objblock As AcadBlockReference
4 [# u$ Z% S$ f" k) f" ~4 z% g) }( ^
2 s, D; \7 [$ D1 V& r
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配1 d: H' X y' G
If StrComp(Objblock.Name, "属性块") = 0 Then' y2 E# `0 |1 ]7 p
MsgBox "存在！"
# |4 C2 ?$ u) ^! A8 d& c1 `( i/ h3 G
Else( b: }# B2 _, n' K1 E5 X3 J
MsgBox "不存在！"
1 R" R& C3 H& X9 p B" C
End If
/ C7 s9 P# D) z4 b: J6 [
Next Objblock! u: C- M- w& E, {1 T/ l3 R
8 e% _5 x) R' ^* G; m
End Sub

复制代码

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

参考下面代码

8 |: w# J9 g q2 u' f
Sub A()% T, H0 Y8 S0 ], |9 |4 z
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean% |0 B+ I8 ^4 c5 Q6 {
For Each E In ThisDrawing.ModelSpace% d/ S1 Z7 v, T# j
If E.ObjectName = "AcDbBlockReference" Then
: F8 i+ o& }& a3 W
Set BR = E
( h* \0 t& Q8 x- W d
If BR.Name = "属性块" Then5 S- u `5 h7 n X0 t6 {
B = True$ _; C9 A1 L1 G
Exit For
5 T: Y9 i, U% t7 q4 O4 d
End If3 d% c% C% z5 K, X% F
End If& c& J l! _- D5 F
Next
8 ]/ ?2 ?. `7 V$ \
If B Then
- q1 |1 l9 T) {# m) O
MsgBox "存在"
( S# ~) Z. s' ^( T$ @/ c
Else
- w: V3 }$ s+ c: Y, n$ r4 ~7 |7 }
MsgBox "不存在"
2 u2 g1 B9 F, y
End If
8 j' y, W% N1 a0 N, m. T; U. _
End Sub' B2 @3 u. q; h9 g

复制代码

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

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

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

. @1 o) Q2 E: `6 \! J3 y8 C1 ?
Sub A()
' q7 z! l9 w& Z2 f. f1 J
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
2 H2 v/ O: l& r% {3 q6 }% Y
For Each E In ThisDrawing.ModelSpace
$ Z& d, z, a& F. }8 |. E# g
If E.ObjectName = "AcDbBlockReference" Then
F( J4 \2 e, @" t" E& u4 M8 v. a
Set BR = E; I! ?$ f. {: r9 V! Z* [
Atts = BR.GetAttributes
, K3 T9 j. K/ ]% b w6 Q+ M3 |
If UBound(Atts) >= 0 Then8 u9 W a' M; g) t2 V* [& X
B = True2 z- ^, u8 n3 q. _0 G; t- g
Exit For; R7 m; T/ O; C
End If- F. D& X' @4 w3 ^% D
End If
1 F; z, E# }# V
Next
8 P/ a' P7 [9 ?) E1 ]1 t% {# n
If B Then( p. `' f: R. s1 U9 E H
MsgBox "存在", C' ~6 H) c8 v; d. d6 K* `
Else1 ?+ ^9 d8 V0 u8 b1 u1 D& f
MsgBox "不存在"
: |& p- X* |2 Z& B
End If
/ g: E3 d5 M' N! D
End Sub5 t# h9 Z& x0 o, p

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块