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

koutx

如下声明一个选择集及过滤器：
    Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant
8 N$ G1 N% D6 R+ K. g- T3 Q/ t再如下声明一个直线临时变量并声明一个直线动态数组，用于存放所选择的直线：
% f6 k* Y0 K: b: C    Dim L As AcadLine, L1() As AcadLine
( K3 g6 d: i5 I& n
With ThisDrawing
# \" t* J* m* U/ k) E& W    定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
) R+ C2 m) ?3 N; I, p' S     FT(0) = 0
6 O+ Y5 O2 s/ @% ^( p( A        FD(0) = "line"
; X% ^7 V% {. D% g* t        Set SS = .SelectionSets.Add("SS")
) x  D5 l+ O  [8 Y( M5 k8 m& @        SS.SelectOnScreen FT, FD

- d3 B4 k- j% K9 G5 ^* x7 H     在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中
        For Each L In SS

                      ???????????
+ X* m* q# k; _" ^5 J; ?3 A4 N: ?                      ?????????????

            Next
End with
$ }: c0 `) Q$ ]! E5 j9 g求高手帮助，谢谢

koutx

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

koutx

最后顶一次。。。

37734532

先看看。。。。。。

woaishuijia

在遍历之前根据选择集中对象数量重定义动态数组
, g% b4 i$ w9 Y8 T6 v/ K

1. 
   
2. If SS.Count>0 Then
   2 G3 m5 j" [+ U6 e( f
3. Dim I as Integer
   ) V3 e  W7 z& [- l6 [; S
4. Redim L1(SS.Count-1)
   4 K+ }$ @# n. y4 Y
5. For Each L In SS
   
6. Set L1(I)=L
   
7. I=I+1
   % J! z9 {+ |3 |- w" v! ]
8. Next
   6 C6 a8 T9 g( ]% V5 ^+ U! n
9. End If
   

复制代码