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

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

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

x

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

各位大侠，帮帮小弟吧。

! E4 D) e* ^# I" {2 g& }2 ~
Dim entity As AcadEntity% W+ O1 A6 `, {
Dim objblock As AcadBlockReference
( q7 ~( q( Z. \( `2 F0 R
" k8 A3 q0 V9 w* f- y8 T
For Each entity In ThisDrawing.ModelSpace
* p: a6 @/ ] f& E* T N, W, Z
If TypeOf entity Is AcadBlockReference Then
$ t. b$ ~, X, `+ G" p
Set objblock = entity" ]8 Y7 v- h' G+ C
If objblock.Name = "设计标签" Then
& E. Z8 ?7 q" Q( k5 w8 K
Dim vattr As Variant
+ G( {% k7 {6 T: b% c0 q% R
Dim i As Integer
( y) @, p, ?, G. s N4 Z
vattr = objblock.GetAttributes) v3 |* Y5 L$ w5 q7 b/ [" G
/ R6 \; k: O4 I( k3 y% N+ [7 S' s
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
: ]& H/ |. q2 v" G
'遍历属性块的所有属性值，并显示。
, e$ H. u- n. ~9 I0 {2 ]7 B; S
MsgBox vattr(i).TextString/ L3 H8 H6 n9 y
End If3 ?' q$ W2 B% d6 s; n
Next i
2 W2 j4 t4 n8 \4 x! |4 L
Exit For
7 ?. E, z3 o. o+ N6 c$ y
Else
6 u: Q" P% |9 l& Q. Y. o9 d
' Do something else- c1 h$ D; n$ x! Y# w& R% b# a: T
End If
|' y* p- ]: M9 G3 N
/ _4 f( l! v+ s( K2 V) C4 E. X$ f
End If3 u8 U2 K9 O7 g. O) o( E" {
Next entity

复制代码

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

复制代码

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

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

通知