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

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

/ d) I- V! ~. l: o6 U. x: P
If SS.Count>0 Then
L* X P' X y3 _; _3 g$ ?
Dim I as Integer! X+ A: F: P" }( }( I* ?
Redim L1(SS.Count-1)1 Z$ }. P b& W2 a1 x
For Each L In SS
+ N% i" }% t4 \0 G0 Q- [
Set L1(I)=L
& g4 N: s% x5 s1 A: d
I=I+1
+ Q& f" f2 h( d
Next
) F5 t" J3 b3 U, n A [
End If, {3 s6 E' A! i+ h' i. a; A6 A

复制代码

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

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