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

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

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

x

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

各位大侠，帮帮小弟吧。

/ ^2 }8 F& A0 k1 q; e& U- i
Dim entity As AcadEntity4 [) e, f, d- ~- ~- K
Dim objblock As AcadBlockReference
3 ~$ d# j2 y8 N' Q; ^1 C9 D
- Z* e0 k1 l' I F
For Each entity In ThisDrawing.ModelSpace
! j* h# ?5 e% t+ [: W" @" v3 B
If TypeOf entity Is AcadBlockReference Then
+ ]. {7 C! k& \& e s3 x- `
Set objblock = entity
. C2 E' S. r7 u% b' |
If objblock.Name = "设计标签" Then
( ^) [4 D" E3 \) }
Dim vattr As Variant( G" C- M, v0 w) C" t& x# _
Dim i As Integer
- s* H1 U& l5 M! d- S4 Q
vattr = objblock.GetAttributes) K; a/ U: n8 W5 d/ d3 w8 s7 `1 g
* j/ Z7 @0 {* ?: }2 K
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？2 j$ U3 x- ^2 [* F5 R1 k% H
'遍历属性块的所有属性值，并显示。, F3 d$ A4 d2 F: A0 _
MsgBox vattr(i).TextString
, v- w! s ~7 ^/ `, n
End If
- ^9 |; K5 t2 f2 S( L* j; q& F
Next i2 H9 L9 R9 E: U5 l+ e* M
Exit For' k! E. ~+ B# Z M
Else3 w0 p8 u. M. q t/ o; ?% Y' \
' Do something else- t# a7 N) ?7 n4 S' T/ ]
End If
7 [$ C" ^* T) p" }9 w
2 ^. ^9 Y& E9 M
End If" ], l X1 d Z" L
Next entity

复制代码

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

复制代码

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

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

通知