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

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

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

x

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

各位大侠，帮帮小弟吧。

+ l ]' ~& j7 }9 j4 X$ H
Dim entity As AcadEntity
/ g% Z" s* n5 J! W d
Dim objblock As AcadBlockReference
) _- {/ k& Y2 e. j( K
! L8 H+ `0 O1 `! N. P
For Each entity In ThisDrawing.ModelSpace) x" y3 \3 T D, g* q
If TypeOf entity Is AcadBlockReference Then9 a$ M3 M2 E' K0 b v; |- h! O
Set objblock = entity/ Z* I- Q4 ?. u' X3 E3 u: z
If objblock.Name = "设计标签" Then / U' u' [) G: U" G! a& T
Dim vattr As Variant
4 N5 }9 F. E# Y( w0 k2 x
Dim i As Integer 0 ]3 t" b3 W: G9 p: O @
vattr = objblock.GetAttributes$ W3 @" T- b5 B8 h- d8 @- q8 }
9 }% h% ?1 p1 K
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？5 X+ c; u c% W* X% J
'遍历属性块的所有属性值，并显示。
+ m- O* U) x5 v
MsgBox vattr(i).TextString% ^: F9 \& d9 I/ S& D
End If7 I. [$ z$ b! p% D% m& E
Next i
. V) R/ O6 |* e$ C( I$ W2 \% V7 c% S
Exit For
: d7 n0 g- ]4 K4 E. [5 Z
Else3 Q- r: H( f S& c9 L9 o* [ j: @# _
' Do something else
h$ q$ k8 E# r
End If
% E; v) M( Y3 F. ?7 ~* k
+ |5 W& A8 i" x, C
End If
1 V u* \' z( k4 D0 f
Next entity

复制代码

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

复制代码

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

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

通知