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

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

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

x

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

各位大侠，帮帮小弟吧。

" Y4 _2 b: q( |: V; M, S
Dim entity As AcadEntity* c9 L. T% ?% y" X0 i% ^2 }
Dim objblock As AcadBlockReference+ ^ j6 f' |' ?; u- x) ^: g1 X: h% j
" I( Z5 f( Q1 ~ v
For Each entity In ThisDrawing.ModelSpace, A h$ n* R; d- i
If TypeOf entity Is AcadBlockReference Then* {- T, ]7 C$ y/ g
Set objblock = entity
2 N1 H( l, E/ C: ?% U ~& C
If objblock.Name = "设计标签" Then
7 ~ ~* P$ B( f3 C5 m) m
Dim vattr As Variant
9 ?2 Q5 P" _; W9 W
Dim i As Integer
3 E3 E: |" v9 D) |. w8 @
vattr = objblock.GetAttributes
1 e4 O# x+ N5 P% U" [1 p
7 C' ]" y$ [) C8 O0 E" x
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
' L9 T8 ?: P( I% r) f
'遍历属性块的所有属性值，并显示。' R4 w: W. w: p6 M- o& I
MsgBox vattr(i).TextString9 G1 e0 u* N1 P8 F
End If5 C3 h8 z2 ^5 e7 u
Next i
" }5 E1 g9 ]5 t- L5 a
Exit For# x' G* d7 k0 l$ g$ v7 r7 ?
Else. u8 j9 G |+ w( b; u% T
' Do something else4 b+ b. W0 u2 W; b7 G
End If
9 s2 K5 W* D# e; j! l
# T6 O+ i, F, i0 F, F9 s# V
End If
$ S ?. o( J; y: _) ?5 n
Next entity

复制代码

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

复制代码

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

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

通知