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

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

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

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

x

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

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

'查找块
8 L0 i; e2 }+ m9 `/ `; m
Public Sub FindBlock()
2 r0 A7 x+ J/ l( v" l) q
) H( J3 E, l7 s8 ~4 p6 w
Dim Objblock As AcadBlockReference& Z1 Q/ Y: { |+ m _7 `: a* ]
+ r f6 N, N8 [, [
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配& P( V/ Z- r! |
If StrComp(Objblock.Name, "属性块") = 0 Then, {6 S' Q) O, Q3 Q5 m( t7 E, q; j# E
MsgBox "存在！"
4 w6 L6 t3 k$ b. p* D. R$ A8 d
Else
" o; D$ W5 q# p0 l% W; N# X
MsgBox "不存在！"
4 v- _0 W o, f( G" _1 I
End If# n' @5 D& p) m; B
Next Objblock
7 ~! L ^- L8 M, b# X: W
U, e* g! G: s9 S
End Sub

复制代码

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

参考下面代码

2 k" N \3 w# u+ u
Sub A()
1 _ R' Q& I0 S u: G% Z
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean/ R0 }; Y* }1 i% K2 w+ {
For Each E In ThisDrawing.ModelSpace
. i. G- o6 I5 O* {; Z% a* e
If E.ObjectName = "AcDbBlockReference" Then
/ R1 U i' I4 {
Set BR = E
, F( A* l/ {$ S! `
If BR.Name = "属性块" Then
7 H. n$ \9 n# @
B = True
6 r0 ^- ^4 @" R/ M3 g2 x
Exit For- m" X9 l" A4 M9 `4 ]
End If3 S' U6 \4 S- Z
End If
9 B1 ?$ s' u1 `
Next. ~3 _- R* b( l% g
If B Then2 P( Z8 M# l2 q: \, r
MsgBox "存在"6 ~7 _' e# Y- z
Else8 o- v% Q1 ~/ Y2 z2 @# i
MsgBox "不存在"* {7 \! d- M2 `7 ?, U o
End If
( ?8 I" w+ _& Q
End Sub% X: ]2 { E; R* l) R8 s

复制代码

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

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

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

% _2 ?# Z( c$ d5 m
Sub A()
0 U4 c) V; [/ G
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
" ^' K' Y; Y' A
For Each E In ThisDrawing.ModelSpace; x4 u# N8 ^9 M+ T! i6 w! ^
If E.ObjectName = "AcDbBlockReference" Then
* a! \: y7 ^& t' W g
Set BR = E( ]1 t' E. S; u; s8 n" ~8 d. A
Atts = BR.GetAttributes' Z; I3 [2 ~# y8 [% B9 J
If UBound(Atts) >= 0 Then8 K: Q9 j- _% X' ?/ G) H* ?1 V
B = True+ g7 t8 i# u- d6 o. F! O
Exit For
. R1 |& v( k! g) Q8 }6 s
End If$ ]8 R/ F6 O) a ~# `; B
End If/ p4 |5 g2 _/ I) R; p `9 J. o, {
Next+ a9 G$ l7 I7 d5 w
If B Then& w/ s' A+ `/ A# N9 C2 o
MsgBox "存在") D' r, h4 Z g, c/ z/ \& I* B
Else
, z0 ]3 }/ T0 C, j
MsgBox "不存在"
3 O2 i$ z, t: ?" E% g/ e' [
End If
! o9 D& t* c8 k- F
End Sub9 P* p9 s U9 A4 ~1 h" z. f

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块