|
|
发表于 2011-12-10 21:48:11
|
显示全部楼层
来自： 中国辽宁
SelectionSet 对象的 AddItems 方法,参数是要添加到选择集中的对象数组.- Dim firstLine As AcadLine, firstCircle As AcadCircle, P1(2) As Double, P2(2) As Double, E(1) As AcadEntity, SS As AcadSelectionSet% r. V) O9 q" m' M2 r: Z; g8 i* x
- With ThisDrawing
! A# w. f5 I: F `' W - P2(0) = 10
/ K: X7 P w8 H8 u - Set firstLine = .ModelSpace.AddLine(P1, P2)1 Z! V1 A u8 _7 z& s- o9 z2 J, B
- Set firstCircle = .ModelSpace.AddCircle(P1, 5)
" J8 j. x% |& p% w* \: @ - Set E(0) = firstLine
( x( T, h; H( s/ K+ v% q - Set E(1) = firstCircle }! a. ?* ~% I: V
- Set SS = .SelectionSets.Add("SS")
7 g0 S, e+ U7 X' t - SS.AddItems E
+ s4 p4 |1 I6 d - '
( C7 f0 n: E) ~. Q$ P - '
s4 O* C: V+ o4 W$ `! ` - '* u/ C& \% b3 A- K: }
- SS.Delete0 H5 U+ s: W$ e+ y+ _
- End With+ M9 F4 |# T; X, r% f
|
|
发表于 2011-12-10 08:52:57