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

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

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

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

x

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

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

'查找块
8 s3 o- l! h9 d, c1 u$ e
Public Sub FindBlock()7 X" O$ A: f }. V
" K. @8 y8 n5 |9 m3 i/ p# i
Dim Objblock As AcadBlockReference N+ n- p# T) @$ Q H
9 n/ l6 Q+ U; w- L5 f% x
For Each Objblock In ThisDrawing.ModelSpace '这句话出错了，说是错误13，类型不匹配9 N! j K& I, ]' f" ^
If StrComp(Objblock.Name, "属性块") = 0 Then( J, u- G3 b% w
MsgBox "存在！"% |; t( g: Q" ?
Else
1 H; u+ S2 p7 o) W7 m! e
MsgBox "不存在！"
8 {: I1 ~/ Q w3 `8 J- o
End If
: k7 |/ [ v9 V. b: l2 D
Next Objblock& T4 |$ j" W w' F9 N; `! S
; }2 q1 ?2 ?* k; l( l8 S/ m
End Sub

复制代码

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

参考下面代码

8 F' G1 D7 R3 |- O1 ^8 g
Sub A()8 J" B3 ?1 B9 Z! i$ t
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean
* D' G% P, \1 B8 Y9 i8 T" I6 Z
For Each E In ThisDrawing.ModelSpace# M1 p: r/ w7 S; C, e
If E.ObjectName = "AcDbBlockReference" Then
! s. B K7 [ ` A! [0 S
Set BR = E! h* a1 I- d& n- O4 i, e( t
If BR.Name = "属性块" Then3 A& `6 Z, i% U$ P* L
B = True
+ k i" f0 Z4 c% F/ B
Exit For9 J. E: u1 W" c* X2 W+ ?) ~
End If. G" t: m5 L6 z8 i8 F
End If
- R: L) o0 C. \$ q( P! V' f: P
Next. l# w# R G& c( v
If B Then1 D$ @7 R; ^" _% z) u
MsgBox "存在"
$ ~5 P5 W! `2 R* Q' a& Y" f
Else
- W+ f; C0 \0 \6 J8 }
MsgBox "不存在"- E$ a7 p0 r+ d8 f X
End If
( W+ \- V4 G" C5 ^2 D$ h1 B
End Sub
7 ?. N8 ^1 |% v

复制代码

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

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

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

' N( c' _! U7 x6 ~
Sub A()( [' ^& f2 B8 \" ?/ ~* F
Dim E As AcadEntity, BR As AcadBlockReference, B As Boolean, Atts As Variant) t7 G/ M0 J$ g f4 ^3 y* H( v5 P
For Each E In ThisDrawing.ModelSpace2 u3 ] {% e: r0 f
If E.ObjectName = "AcDbBlockReference" Then+ d4 A" `: p, A; T, |# g. N
Set BR = E8 k! x" R3 V9 Q9 `
Atts = BR.GetAttributes8 W$ h6 T7 ?+ P
If UBound(Atts) >= 0 Then' s1 o7 m ^0 a; N
B = True
; {( l5 t6 G- e0 d0 f0 X9 `
Exit For; Z5 h1 k6 k7 d6 Z F8 \, U
End If! B. v# D8 k# x9 \3 p
End If5 }4 v# [2 }, c5 }& {
Next
2 ^, o1 y D& B0 }3 e
If B Then* i8 x4 w3 ~/ l! Q0 \; w+ Q
MsgBox "存在"
; R4 Y2 l# t- m& ]: o
Else* P' G; }+ o8 u4 a
MsgBox "不存在"
7 ~+ E' Q1 i, u7 j( N/ D, e2 j
End If
) N7 a9 S+ _& c6 ]) o2 V
End Sub7 D' i$ O R3 m9 d

复制代码

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

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

3# woaishuijia

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

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

通知

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

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

浏览过的版块