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

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

% L9 v2 _- b+ S# B
If SS.Count>0 Then5 D+ g; Q/ F3 V4 K% w9 h
Dim I as Integer7 i, a4 i% o! n* p
Redim L1(SS.Count-1)3 t5 P9 v v( [& y
For Each L In SS9 j# F6 y* h. e
Set L1(I)=L7 G2 }- ]: T3 d8 t- A, X
I=I+18 L" l3 Y( I9 j# }6 i
Next) q# A* S5 F, N" Y, E w
End If' @6 |3 o# v x4 J G b# E2 K- W

复制代码

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

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

浏览过的版块