如下声明一个选择集及过滤器:2 P6 b4 A" f- Z0 M
Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant6 W, n( N( d, w% B& K, N
再如下声明一个直线临时变量并声明一个直线动态数组,用于存放所选择的直线:! L4 k. _" U7 T2 t: J: P4 W2 Z$ _
Dim L As AcadLine, L1() As AcadLine, e! Q3 m; j- f7 r% V: h
5 E( v% s: ]6 G9 H, u
With ThisDrawing
& u0 R5 f" s/ k 定义选择的对象为直线对象,创建选择集并由用户在屏幕上选择) C0 W8 x) A; U
FT(0) = 00 h" N5 e: O: h5 e' y' e0 z* t" H- _
FD(0) = "line"* y* ~2 q$ X/ j
Set SS = .SelectionSets.Add("SS"), A: _. W4 M; @# g
SS.SelectOnScreen FT, FD
' J. ~* a+ D9 K2 [) A+ X
( S; w& \4 P9 n; y$ ?7 {$ O 在CAD 模型空间选取几条直线后,在以下的遍历选择集中,如何将所选直线分别存入动态数组L1中$ V5 T! y _. ]. @! q
For Each L In SS
0 s$ \+ q2 O+ }9 i! h; W
: k4 o! e! S/ Y ???????????
" h! F% | p4 V) ^/ x8 ~ ?????????????
- q7 b& ~0 F# f( ]6 u; ^# J- K: f# t/ B
Next
9 d9 X `. l Y; X. { d1 yEnd with! P4 l( M6 ^# K/ V) \ H: i, ]8 e
求高手帮助,谢谢 |