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

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

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

x

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

各位大侠，帮帮小弟吧。

7 q1 e5 U/ D5 ^# Q8 J
Dim entity As AcadEntity
9 m( b7 O# [- m
Dim objblock As AcadBlockReference6 w' b& D2 F3 e" e3 H" D, x
, ?. p# Y5 B( A) @9 E+ r8 t+ I
For Each entity In ThisDrawing.ModelSpace7 P+ R/ O+ H3 G
If TypeOf entity Is AcadBlockReference Then0 g: F v- Y/ r
Set objblock = entity8 w0 L9 d+ \/ e
If objblock.Name = "设计标签" Then 9 o- Q- D" X4 s7 F- b5 d& j
Dim vattr As Variant: U, d6 v( L9 }6 ]" R) c
Dim i As Integer Z, \7 N' I" {9 l; |* ]' z# p
vattr = objblock.GetAttributes
# g, U- N4 {$ E0 Z
# T, Y+ @+ G D0 t
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？) y: T% t% F1 P. L$ S5 y5 _# n
'遍历属性块的所有属性值，并显示。
" N q( [8 A9 M7 B
MsgBox vattr(i).TextString+ q: k- l' ~7 ?
End If7 G# Y; p1 Z/ I# q+ A. w
Next i- L! v2 A0 m7 `9 |- ]
Exit For
6 H4 D& }: P4 d4 }* N/ e+ ?! C" R
Else
1 x' s& z# q; R5 r6 r
' Do something else
& ?1 f/ ] X C* i% h
End If
% a6 ]# u5 ~' o" W
9 V& q6 _% u; o+ x
End If0 k' ^* Q5 P+ J K( a' }
Next entity

复制代码

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

复制代码

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

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

通知