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

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

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

x

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

各位大侠，帮帮小弟吧。

1 z8 c6 d8 I+ t" a2 \& [
Dim entity As AcadEntity2 f0 D& s' j6 A6 N7 [( B
Dim objblock As AcadBlockReference$ y0 t; P% G+ j0 k* D1 x( v0 d
5 Z0 `7 |1 D; q! g. S
For Each entity In ThisDrawing.ModelSpace
. w. K: I& b7 `
If TypeOf entity Is AcadBlockReference Then
# A5 p8 s# `0 z- e; [
Set objblock = entity
3 d0 k) H' `$ y) R
If objblock.Name = "设计标签" Then
* L6 X/ s% j8 B; F
Dim vattr As Variant
# c4 n. s) Q N' V0 N2 ?
Dim i As Integer - v; m. A* D2 t: Y5 B
vattr = objblock.GetAttributes
! {4 h8 f; N+ o
7 ^) e% h4 v2 E+ u
For i = 0 To 2 '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？6 a: L7 l: w) g0 L& c+ [% I5 U3 ~
'遍历属性块的所有属性值，并显示。% H! i, l# p6 W7 x, o/ i t8 _
MsgBox vattr(i).TextString
T1 Z# r3 h6 T
End If
9 L5 j r1 H' S- y
Next i
3 [* h! F7 j- l; G
Exit For! k4 R1 q' v: H1 G+ d- B2 d
Else
; h4 ]# a4 N! o( M8 C( D5 K, A
' Do something else
1 d% `- `" T* A
End If
2 V& k: e$ ~4 `# h
6 ?# V6 Z6 m4 O# I1 C: t
End If8 o) S4 m; K+ g$ B _. v" D% V! \
Next entity

复制代码

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

复制代码

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

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

通知