怎样可以获得属性块参照中的属性个数

winer3086 · 发表于 2010-9-3 07:03:01

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

x

本帖最后由 woaishuijia 于 2010-9-3 22:02 编辑

各位大侠，帮帮小弟吧。

, ?: s( `+ h6 V. p; x. z: j
Dim entity As AcadEntity2 e1 h. d9 [ U
Dim objblock As AcadBlockReference- I% C) b1 J6 L( f" D" r
0 @* h+ s5 F" p" X- o
For Each entity In ThisDrawing.ModelSpace0 ^5 }7 `2 ~8 o
If TypeOf entity Is AcadBlockReference Then9 h* L* K6 I5 z, `( I
Set objblock = entity \4 d' s9 O0 b: h$ r p; g
If objblock.Name = "设计标签" Then ! k F1 }" i$ z. b# R
Dim vattr As Variant$ f/ Z3 c4 D( T
Dim i As Integer
$ M o u+ ?; }( z3 B
vattr = objblock.GetAttributes0 ^6 {0 h, [6 l) w# x9 i
2 S; ~* X* I- d+ U( ^ P5 j
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？& _3 H$ B8 O: _3 j" z& z. s7 y
'遍历属性块的所有属性值，并显示。' F8 n0 F+ F4 D; n) l, h3 f; D
MsgBox vattr(i).TextString
2 b# |! \2 e5 k! `+ j0 z/ Q
End If
, _5 L" u- c' H) T* f. {) y
Next i" \$ L3 C1 E5 X8 K6 c0 ]
Exit For4 X( a! e, g e4 e9 Y) }# ^
Else
2 _0 Y; j4 }* g
' Do something else
4 G1 \' i# a, r/ z% ~+ |
End If
4 L: ]* @4 x( M% m6 ]9 s
+ v' J& H! x' y6 ]! G. i/ l
End If" h; {. K4 b7 G1 Q: ^ D4 ~
Next entity

复制代码

woaishuijia · 发表于 2010-9-3 22:12:37

复制代码

变体变量vattr接收了属性集后就变成了数组,数组本身没有属性,查看它的元素数可以用UBound()函数获取它的最大下标.如果数组中没有元素(也就是块中没有属性)则最大下标为-1,有一个元素则最大下标为0,两个元素为1....依此类推.
另外,你在msgbox这行的下面多了一个end if

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

通知