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

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

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

x

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

各位大侠，帮帮小弟吧。

6 x6 u3 ~! V9 @- w' w* Q
Dim entity As AcadEntity3 T& s5 p4 ?& G3 y8 t7 I) @3 O
Dim objblock As AcadBlockReference
+ K" E B/ Z$ t4 G( g
5 p9 J# h5 x2 [$ m/ F
For Each entity In ThisDrawing.ModelSpace
9 O7 @+ q A+ r C% |/ w! G8 H
If TypeOf entity Is AcadBlockReference Then) @8 l! \# e+ D! F5 _0 G v
Set objblock = entity3 l+ H) t* T) R9 _' W/ d/ C2 t7 B
If objblock.Name = "设计标签" Then
7 O& _* p2 _2 W1 u0 y1 ~) l
Dim vattr As Variant) k: d2 n- a7 d' n1 T
Dim i As Integer 5 g; p7 {" ]9 H
vattr = objblock.GetAttributes
( e* [! _! P% Q
- g# L' i2 ^4 ~- K5 X% Z) t
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？$ E# v) ?$ n2 W) g6 F) S
'遍历属性块的所有属性值，并显示。% u( q7 b0 p: v6 h1 A
MsgBox vattr(i).TextString# P0 @4 h- x! w3 i) \
End If2 Y: M% M4 j) d+ V# A* R& }+ x( w' N
Next i
: E4 Z" p" c9 d5 C# _) I O
Exit For3 ^& A3 y" q X. p4 k! h j" F6 G
Else: H* G) Q* W$ K* U* o9 c" V
' Do something else
7 {0 `8 i! Q' K n% ?% p/ O
End If
) S! j# ?( x% V* b/ K
End If
+ L8 H9 y6 Q( h( m! D, @
Next entity

复制代码

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

复制代码

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

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

通知