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

winer3086

: i4 S8 t0 z4 u9 B# I) b; X0 [- D. f
9 |7 U1 ~% e+ `" f( J各位大侠，帮帮小弟吧。

1. 
   
2. Dim entity As AcadEntity
   7 Q) R2 {' F5 S) s5 ?
3. Dim objblock As AcadBlockReference
   2 C1 e, l# {  }7 r. D1 c: ]! a# [
4. 
   $ i; G4 K4 r0 g& F
5. For Each entity In ThisDrawing.ModelSpace
   0 J) a$ g* }- n# k
6. If TypeOf entity Is AcadBlockReference Then
   
7.     Set objblock = entity
   1 t" ~- e" o: |+ r. E
8.     If objblock.Name = "设计标签" Then  
   ' Q% w. o( b4 l" P% c/ K
9.         Dim vattr As Variant
   4 {& x; W& c7 @) s% @% U8 _7 l5 Y
10.         Dim i As Integer   
    
11.         vattr = objblock.GetAttributes
    
12. 
    ; d! t) Z3 i  e' J
13.         For i = 0 To 2    '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
    5 J1 b: B+ |6 L/ v1 d9 p& y
14.         '遍历属性块的所有属性值，并显示。
    
15.         MsgBox vattr(i).TextString
    ; j+ O" g+ w7 i1 u( R( C
16.         End If
    . x5 e. P8 b# c8 C. A) M( }
17.         Next i
    
18.         Exit For
    
19.     Else
    , `7 u; f4 I3 J- u+ n
20.         ' Do something else
    * q% f  c2 E2 y# M8 p+ @$ [
21.     End If
    
22. 
    ( r1 o& G2 c6 o% y6 v
23. End If
    / \6 k  X/ T/ o! m- q8 M& j
24. Next entity

复制代码

woaishuijia

1. 
   
2. For i = 0 To UBound(vattr)
   * [5 [$ K  }0 r: q) i

复制代码

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