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

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

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

x

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

各位大侠，帮帮小弟吧。

]' Y9 T/ S1 _
Dim entity As AcadEntity
0 ?$ F9 t# K7 h! d( Q) n% C* Z
Dim objblock As AcadBlockReference/ B: r: m5 J, r7 }+ g
; z0 c' }/ E+ `5 N; p5 ^
For Each entity In ThisDrawing.ModelSpace
$ }4 H1 `* E( ?! a% f
If TypeOf entity Is AcadBlockReference Then
0 M9 V9 R, N: M" T- U$ F9 v
Set objblock = entity) Y- v( s7 d5 q9 z+ j- ~, @' ]7 D
If objblock.Name = "设计标签" Then
( F4 j/ v0 \1 F6 r1 Q3 }
Dim vattr As Variant/ f7 s$ w+ s+ E
Dim i As Integer . K) O" S. p O9 w) I
vattr = objblock.GetAttributes F; A% s9 t8 \
, K! c% H4 S- W3 ]+ w
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
5 g5 v5 n/ }$ X
'遍历属性块的所有属性值，并显示。% c9 Z" F/ \9 g$ m6 B2 N0 |
MsgBox vattr(i).TextString, Y) f1 _& g( I3 k
End If2 k7 s( Z* U8 C* E
Next i. G: ] _) `' X
Exit For
3 p; G5 H M9 `# d o) [! J
Else& ]: W5 O' |" n5 D9 ]! r$ ]3 M
' Do something else
$ e0 \& t9 J5 s; G* w
End If- t+ Z' r+ c4 }% y2 b
: V( N2 ^7 Y+ ^ H2 s& X4 ?
End If+ p" O: B8 e3 c; s! [9 h
Next entity

复制代码

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

复制代码

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

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

通知