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

winer3086

各位大侠，帮帮小弟吧。
% n& I) F+ o$ c: X

1. 
   
2. Dim entity As AcadEntity
   
3. Dim objblock As AcadBlockReference
   
4. 
   
5. For Each entity In ThisDrawing.ModelSpace
   
6. If TypeOf entity Is AcadBlockReference Then
   & @( F0 {3 \0 C- G  R3 R1 I
7.     Set objblock = entity
   
8.     If objblock.Name = "设计标签" Then  
   # A& w% a6 I0 E5 ]. {( b$ v
9.         Dim vattr As Variant
   " w, `8 U; F4 G+ ]1 r$ {- |
10.         Dim i As Integer   
    " N9 J4 S" @# O8 m, I1 d
11.         vattr = objblock.GetAttributes
    
12. 
    . @- K1 Y: a' F" c$ f% f
13.         For i = 0 To 2    '这里是我想变化一下的。我想不要把程序写死了，有没有办法把“2”改为根据vattr动态变化的方法呢,如vattr.count之类的？
    8 P$ ~% G2 z# O7 @& @4 X" \
14.         '遍历属性块的所有属性值，并显示。
    
15.         MsgBox vattr(i).TextString
    - B; X/ }* I3 i- A+ V7 N- S3 w
16.         End If
    / h8 l6 Z+ H% J8 x. S6 h
17.         Next i
    0 c6 r/ \% }1 T  Y& [
18.         Exit For
      J+ x( s& L6 o# `8 U6 d' Y
19.     Else
    ; v& |' Y: A' m, X/ m
20.         ' Do something else
    
21.     End If
    
22. 
    $ Q, c% g. a. Q6 {
23. End If
    % D3 @& n( x) o  \8 _% V/ R8 O
24. Next entity

复制代码

woaishuijia

1. 
   : u8 ]+ J& F0 J. G) h
2. For i = 0 To UBound(vattr)
   ' w( j. _1 q  y( [1 C; K

复制代码

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