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

winer3086

0 L9 {( S5 @+ Z0 _0 Z3 _
, I8 z$ t6 A' @  y! I: N, [1 r各位大侠，帮帮小弟吧。

1. 
   4 _7 F) I4 h4 j5 W8 y1 t8 d3 X& E
2. Dim entity As AcadEntity
   
3. Dim objblock As AcadBlockReference
   $ i9 W2 w# {$ e, r4 l- t7 s/ V0 o
4. 
   $ \) s$ a6 k; v9 i2 N: `
5. For Each entity In ThisDrawing.ModelSpace
   $ \( G" S& X; S+ e% W1 B
6. If TypeOf entity Is AcadBlockReference Then
   
7.     Set objblock = entity
   6 K% U2 D( l8 q) M# w- }; W
8.     If objblock.Name = "设计标签" Then  
   , y1 O, q( A* _! F# ^" G. u0 U  L$ I
9.         Dim vattr As Variant
   
10.         Dim i As Integer   
    
11.         vattr = objblock.GetAttributes
    4 a) U, N' D6 t/ ~) F$ f) F! H) @
12. 
    6 e7 L# @' p" X4 F2 [; h
13.         For i = 0 To 2    '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
    
14.         '遍历属性块的所有属性值，并显示。
    - j$ o* n# j, `" q" b
15.         MsgBox vattr(i).TextString
    
16.         End If
    
17.         Next i
    & @* Y* U0 ]# N) |
18.         Exit For
    2 P- S3 _1 k. X, G. o
19.     Else
    
20.         ' Do something else
    ' L5 X5 ~8 n4 D4 R  \9 G0 @
21.     End If
    - l4 a! R4 O6 x" U8 x% @
22. 
    
23. End If
    ! ]1 @; o6 c8 e, [7 k
24. Next entity

复制代码

woaishuijia

1. 
   + |, ]" i9 ^# p) q" s
2. For i = 0 To UBound(vattr)
   . Q; L! i. N% C8 y

复制代码

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