如下声明一个选择集及过滤器：$ }3 M5 ?# d5 w9 s' L
Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant4 y3 x- v1 E! \/ {: w- k2 p
再如下声明一个直线临时变量并声明一个直线动态数组，用于存放所选择的直线：
. o% d6 `; ]% A1 S; v! I9 [ Dim L As AcadLine, L1() As AcadLine
, E& L5 s2 n" s0 T% U" C; O( O% @0 X0 p2 a- \
With ThisDrawing- n' I9 r( _/ S3 ^( _% K# m- ?
定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择
8 d# `/ ~, V4 `" R/ s: \ FT(0) = 0, ^$ M" C# N. A5 i. y) O
FD(0) = "line"
* I8 `# k) i# a& V/ { Set SS = .SelectionSets.Add("SS")
) o: ]9 A8 R( i: G SS.SelectOnScreen FT, FD; I7 O$ A4 O8 x4 R; n
& ~1 T1 A# |0 B4 d$ s
在CAD 模型空间选取几条直线后，在以下的遍历选择集中，如何将所选直线分别存入动态数组L1中1 L2 M# `% w5 }, Z2 j! c
For Each L In SS/ W: i9 z D1 x2 ~1 K
/ V9 G) |: p3 [/ b ???????????
! e& _& I- s' ?$ |. v' _3 W ?????????????
( \0 ^( F& v+ ~) @9 S5 t) ~ t% a3 ^% Z( G, u
Next b4 c6 l3 T4 u% A
End with
( j- U3 J- c5 b5 X% G! v) i求高手帮助，谢谢 |
发表于 2009-2-23 11:32
楼主