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

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

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

x

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

各位大侠，帮帮小弟吧。

, m( ]) ]. c' n5 a9 ]
Dim entity As AcadEntity# \/ m& T. y6 Q, q+ o. h
Dim objblock As AcadBlockReference
7 R3 T& _5 I1 p; l4 q$ y# n
) S, ^$ v1 i _1 Z5 L
For Each entity In ThisDrawing.ModelSpace$ L% d( y( K1 G: }0 N
If TypeOf entity Is AcadBlockReference Then
$ P" m$ G! I1 A$ `& U6 A( u
Set objblock = entity4 w) ~ @* `7 M. O8 V9 i( b" G! S
If objblock.Name = "设计标签" Then
2 W* p8 T9 `! T" t3 S! {# T
Dim vattr As Variant; Z2 ^+ U5 ]/ ~0 B: @5 |. [
Dim i As Integer
( q& ]8 a1 w/ R1 i/ [) j! s
vattr = objblock.GetAttributes
$ l" j( D2 G- a" g
9 `/ E$ ~" Y& a8 _. W/ h Z
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
: p, i+ B6 r# F5 S: R, _
'遍历属性块的所有属性值，并显示。7 ]5 R1 G# h9 T
MsgBox vattr(i).TextString9 _1 W4 N0 S5 _' x4 E+ L A
End If _, Q; J+ d( |3 C% J6 _
Next i% L7 X* O3 \" T5 X C
Exit For
+ J' }6 T$ K" _. C" ]
Else5 r- Z) I4 t0 r, _- r( C+ y
' Do something else
' S! ]) L9 P* E* y" s% f
End If- E% p! J1 E: X, c. ^2 X3 _
/ M9 \. X! P2 [ T
End If
% \6 y' }' J% a
Next entity

复制代码

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

复制代码

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

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

通知