CAD中VBA给动态数组赋值的问题

koutx

如下声明一个选择集及过滤器：
7 B, [0 _9 Q% q    Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant
$ U1 k- L; V1 o3 S6 e: |5 A( ?  e再如下声明一个直线临时变量并声明一个直线动态数组，用于存放所选择的直线：
    Dim L As AcadLine, L1() As AcadLine
. V' P( t- R. I4 O
2 O4 [1 e2 N9 ]4 T7 y) SWith ThisDrawing
    定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
( ~6 E  u+ Z' W6 u     FT(0) = 0
0 |- x( j. b0 E4 l        FD(0) = "line"
        Set SS = .SelectionSets.Add("SS")
        SS.SelectOnScreen FT, FD
" X3 }3 Z; _$ ?0 S
     在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中
        For Each L In SS
+ ]8 D. S% k; ?1 `& b& T
                      ???????????
                      ?????????????
" w+ u1 M/ s/ y) u
: G) t5 W* S1 L            Next
End with
求高手帮助，谢谢

koutx

希望有人帮助.......

koutx

最后顶一次。。。

37734532

先看看。。。。。。

woaishuijia

在遍历之前根据选择集中对象数量重定义动态数组

1. 
   
2. If SS.Count>0 Then
   1 _; T* d" |* V7 j; k5 [
3. Dim I as Integer
   
4. Redim L1(SS.Count-1)
   
5. For Each L In SS
   
6. Set L1(I)=L
   
7. I=I+1
   4 t1 h: N! C* v3 a
8. Next
   - Z; a- K( }- _! S4 R
9. End If
   9 U; n! v* a( K4 x

复制代码