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

winer3086

! H0 C. h; Q2 ^# H- Y' v, K! L, S/ H8 Q各位大侠，帮帮小弟吧。

1. 
   
2. Dim entity As AcadEntity
   
3. Dim objblock As AcadBlockReference
   
4. 
   , w& [8 x+ N- n8 {1 V9 x0 w! P  V
5. For Each entity In ThisDrawing.ModelSpace
   
6. If TypeOf entity Is AcadBlockReference Then
   ; b0 [1 q3 ^6 T
7.     Set objblock = entity
   ' a- z( d6 e, n3 Y2 W+ G; G
8.     If objblock.Name = "设计标签" Then  
   
9.         Dim vattr As Variant
   + _! {  x) B* _
10.         Dim i As Integer   
    
11.         vattr = objblock.GetAttributes
    ; Z" u' u* R/ D# s: M' {9 k
12. 
    $ @" c+ n9 ^& f/ B8 A+ o& y+ Q
13.         For i = 0 To 2    '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
    " ~9 X+ C, J8 a! ^! P; B
14.         '遍历属性块的所有属性值，并显示。
    ; d- F2 a4 A! f$ G4 h
15.         MsgBox vattr(i).TextString
    9 l! |9 u+ ^/ M
16.         End If
    ; N$ t7 \$ H3 x6 I
17.         Next i
    
18.         Exit For
    
19.     Else
    
20.         ' Do something else
    ; }/ i- p2 b7 J' F$ M
21.     End If
    1 t$ x* b+ p. _' j' t' L, `- `
22. 
    
23. End If
    
24. Next entity

复制代码

woaishuijia

1. 
   2 V4 |( f' M- Y" j5 G" y3 o
2. For i = 0 To UBound(vattr)
   

复制代码

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