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

koutx

如下声明一个选择集及过滤器：
    Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant
再如下声明一个直线临时变量并声明一个直线动态数组，用于存放所选择的直线：
    Dim L As AcadLine, L1() As AcadLine
( D" N9 b' L' b$ f0 i  m: g, g
With ThisDrawing
    定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
     FT(0) = 0
        FD(0) = "line"
        Set SS = .SelectionSets.Add("SS")
6 K4 q/ e% V4 U        SS.SelectOnScreen FT, FD
4 p- C' e4 V# _" R( V( p
! o6 C' C; `# G2 {8 d3 U     在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中
, Z8 _: e. v. r0 M/ r: \$ K3 ]        For Each L In SS
3 C" C' N2 g( @+ [6 A
6 X! P7 B( S# m7 @* \3 ~                      ???????????
& h: ]$ ~, |  p( }                      ?????????????
* E8 ^  T# x4 X+ x6 u" n
            Next
End with
6 N. @$ a! J7 C. x# K求高手帮助，谢谢

koutx

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

koutx

最后顶一次。。。

37734532

先看看。。。。。。

woaishuijia

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

1. 
   
2. If SS.Count>0 Then
   $ o" r8 t+ h* I
3. Dim I as Integer
   
4. Redim L1(SS.Count-1)
   + Y+ T. N# ]6 H2 ?9 [7 ?- R* j
5. For Each L In SS
   # i& u2 H1 r6 |3 I: a
6. Set L1(I)=L
   
7. I=I+1
   
8. Next
   8 E; [4 }. C* d- _1 S/ [
9. End If
   ! @, D+ `1 v$ y2 O3 w

复制代码