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

koutx · 发表于 2009-2-23 11:32

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

With ThisDrawing
定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
   FT(0) = 0
      FD(0) = "line"
      Set SS = .SelectionSets.Add("SS")
      SS.SelectOnScreen FT, FD

   在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中
      For Each L In SS

                  ???????????
                  ?????????????

         Next
End with
求高手帮助，谢谢

koutx · 发表于 2009-2-23 15:48

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

koutx · 发表于 2009-2-23 17:25

最后顶一次。。。

37734532 · 发表于 2009-9-26 08:58

先看看。。。。。。

woaishuijia · 发表于 2010-1-30 12:12

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

2 M; M: I2 R8 a" |
If SS.Count>0 Then2 L5 U8 N) y8 j' e
Dim I as Integer6 d: z( j9 @: \8 e4 o8 U5 U y6 J7 r
Redim L1(SS.Count-1)
* h) N6 k6 R# I0 [
For Each L In SS9 ?& Y- ]4 s' L$ P+ X3 Q& f# `
Set L1(I)=L9 K. s3 O- H, A8 P( a* S. C7 c
I=I+1( b7 A5 n/ `1 t. ]5 o& X
Next7 ^/ c6 W k4 G& m1 N: D
End If
6 ]/ @9 N5 u6 J. n" w/ I& `$ S4 G

复制代码

		自动登录	找回密码
密码			立即注册

[求助] CAD中VBA给动态数组赋值的问题