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

koutx

如下声明一个选择集及过滤器：
    Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant
再如下声明一个直线临时变量并声明一个直线动态数组，用于存放所选择的直线：
    Dim L As AcadLine, L1() As AcadLine

With ThisDrawing
    定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
     FT(0) = 0
1 s, F$ m( O( P( `        FD(0) = "line"
        Set SS = .SelectionSets.Add("SS")
$ c" I" Q/ i8 T# N5 p/ E8 C        SS.SelectOnScreen FT, FD

5 e! S* k& k6 }- P. a& r     在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中
: e, L3 m# p9 e! _        For Each L In SS

- X7 z% X# T  U9 M                      ???????????
: N1 P' f9 l" Z+ k+ v2 T4 _$ H                      ?????????????

" V6 a/ {& m% Y- T, k) }            Next
  E1 G2 A! h0 W( C& }3 k" A; W! qEnd with
8 `; D! F0 C; [! s6 L1 N求高手帮助，谢谢

koutx

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

koutx

最后顶一次。。。

37734532

先看看。。。。。。

woaishuijia

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

1. 
   $ U% J: v+ J# z+ }
2. If SS.Count>0 Then
   
3. Dim I as Integer
   # r; L2 u% U) v" P: m9 W: d
4. Redim L1(SS.Count-1)
   * h8 O# [/ P4 G, ~
5. For Each L In SS
   
6. Set L1(I)=L
   
7. I=I+1
   
8. Next
   7 ^# u! g1 X8 t  q3 \3 Z
9. End If
   

复制代码