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

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

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

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

x

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

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

'查找块
7 E( q! W4 P+ ~
Public Sub FindBlock()5 S& W0 F g( t% q: y+ d6 _6 M* V
1 w7 `4 W3 p' @2 K' ]' M2 ?
Dim Objblock As AcadBlockReference
- H" a4 P" I9 i& S7 n5 z% b# o
2 _' O& @ k, Y+ a6 ~( S2 U; _
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配
) |0 ^' h( k' c, L
If StrComp(Objblock.Name, "属性块") = 0 Then
0 a# H/ d* I, j
MsgBox "存在！"
) G0 X! u: L! w' q: u$ s
Else& ^, l, c- ?; u7 Y$ |4 w+ N$ r1 }/ u, x
MsgBox "不存在！"& B3 B5 i$ {! n$ x+ K. C
End If# s1 a9 N |! U& s' D8 H
Next Objblock9 s( _+ b! b( s- x$ }0 N& c
5 W+ t/ k- l$ U+ m
End Sub

复制代码

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

参考下面代码

3 S0 Q6 w: p4 Y" N6 L
Sub A()
$ j5 P* m/ N- e
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
9 ^0 Z( C. l( m7 Z( P- s. e
For Each E In ThisDrawing.ModelSpace6 h( I& s, j- l4 O S8 l
If E.ObjectName = "AcDbBlockReference" Then
+ ^( W# n& K9 c' u$ ]2 o
Set BR = E( c8 g! ^: Q4 H8 k. W/ ~
If BR.Name = "属性块" Then
6 q2 N1 N0 S, B! h* s" _
B = True
5 ?8 c. t( V S
Exit For
4 n2 ^7 e; M8 [, L
End If1 V3 W: k4 X# G4 f
End If9 q. m3 y% o" J4 {1 v2 t" H
Next4 o, V, Y0 Z0 A! O# U8 E/ s
If B Then
; ~# f z O5 K/ K
MsgBox "存在"
: {) h8 H# l5 ^
Else
% k: k- {% @# O, {3 Q
MsgBox "不存在"
5 ~3 ]( E' }) v/ x9 ?
End If' ^9 x6 d9 A. {7 q2 ]
End Sub
! W1 N0 Z0 P9 v! l1 y9 r% ~$ y

复制代码

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

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

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

. t" f# n# y0 f9 a6 J% b
Sub A()
1 H) L% P0 \2 m7 Q/ S
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant
. ?0 q# q* @% ^3 b
For Each E In ThisDrawing.ModelSpace
2 ]: V+ S, N D0 m7 G/ e
If E.ObjectName = "AcDbBlockReference" Then( d8 m. o" `+ d
Set BR = E- z. G. L- a0 \7 ^! f' U
Atts = BR.GetAttributes, I8 {. M( k, f9 h u) |+ N9 E6 h+ E
If UBound(Atts) >= 0 Then0 [+ t, \$ o% Y% g( D, P, x, O5 M
B = True& z. F2 n$ C8 H! V9 ]
Exit For" j4 L1 ^- ^+ `5 \
End If
3 L+ g E8 t G. G: ?, ?3 Z$ w/ c
End If
+ b+ E, b3 a2 x Y
Next, E# S; T7 l5 ^( J$ f$ _
If B Then: }# S4 q. F. I. @& b
MsgBox "存在"3 M! M2 s! G; q B, @
Else
- p- m7 m& D7 @# w ~/ M
MsgBox "不存在"
7 f, m! J# @$ V; \
End If" G- t, b& \2 z! J, }
End Sub
# B# }9 A# o3 g( p+ X: }

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块