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

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

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

x

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

各位大侠，帮帮小弟吧。

7 E( \3 u9 }: C9 T0 }# P. g
Dim entity As AcadEntity' r. X6 q, V6 v _: S7 Z
Dim objblock As AcadBlockReference
* _9 g* [- g/ d4 I9 n; g% U# k( ^
% P+ Y# i2 m7 y6 I1 t
For Each entity In ThisDrawing.ModelSpace
) m+ t" w1 Y' h! k- B8 J* i
If TypeOf entity Is AcadBlockReference Then
% o5 V1 L5 F& I& I' n1 [9 w$ i) f
Set objblock = entity1 e: h5 g! z/ ]3 ^# |6 w# k- v
If objblock.Name = "设计标签" Then
; Y# v; P0 O8 M, m/ Y) h
Dim vattr As Variant- x U! d6 h: N( w" u
Dim i As Integer
! B# A; X) P% J' o/ i9 O+ |% S
vattr = objblock.GetAttributes
" ~3 r4 o0 ]% o, @
/ q" E% k9 X; X8 [) B4 Z5 Z
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
# G% M' `6 M2 z- V! j0 X0 L
'遍历属性块的所有属性值，并显示。
, t' d6 g: L! a7 W
MsgBox vattr(i).TextString& A" [0 T+ F. K8 x
End If/ v% N' z/ A! f: v
Next i3 E( o. P+ R9 \3 L' @; Y4 s* y
Exit For9 g/ I$ u) F7 `# \$ }# V
Else
8 q0 c" }* f1 M: H9 R
' Do something else
* J6 Z& J% L, [, }( M" r' c6 w
End If
2 u' U; M/ Z5 Z% ~
5 Q) N+ n* l% w \. W/ P) p- }
End If
& t( [, @+ O+ V# f
Next entity

复制代码

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

复制代码

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

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

通知