如下声明一个选择集及过滤器:
7 B, [0 _9 Q% q Dim SZ As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant
$ U1 k- L; V1 o3 S6 e: |5 A( ? e再如下声明一个直线临时变量并声明一个直线动态数组,用于存放所选择的直线:, ?5 V3 T$ i- `, {
Dim L As AcadLine, L1() As AcadLine
. V' P( t- R. I4 O
2 O4 [1 e2 N9 ]4 T7 y) SWith ThisDrawing6 W' n8 T# B" b* H- b
定义选择的对象为直线对象,创建选择集并由用户在屏幕上选择
( ~6 E u+ Z' W6 u FT(0) = 0
0 |- x( j. b0 E4 l FD(0) = "line"+ i. p4 P$ u. d+ h
Set SS = .SelectionSets.Add("SS")% Z$ Q6 {$ i: A7 g6 d( `
SS.SelectOnScreen FT, FD
" X3 }3 Z; _$ ?0 S' `& y7 R6 e( n9 W7 }7 n
在CAD 模型空间选取几条直线后,在以下的遍历选择集中,如何将所选直线分别存入动态数组L1中0 U; ]: s9 h" d, u
For Each L In SS
+ ]8 D. S% k; ?1 `& b& T$ X& i; @; f" Q6 r7 I( B3 K
???????????. l( o/ J0 F# e9 ?4 I6 g
?????????????
" w+ u1 M/ s/ y) u
: G) t5 W* S1 L Next1 M u3 T; {& |
End with5 \" M4 v3 B( i/ `! Q4 p* u
求高手帮助,谢谢 |