|
|
发表于 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% ^1 k5 `" M7 V& @/ t" h( \+ j
- With ThisDrawing: R+ t! B% _* b' H) n
- P2(0) = 10
% W0 o: l- j$ R. l( U2 e z+ M+ ` - Set firstLine = .ModelSpace.AddLine(P1, P2)
+ O0 z/ i: S+ i - Set firstCircle = .ModelSpace.AddCircle(P1, 5)0 t7 Q7 ^. K' k: {
- Set E(0) = firstLine
1 [" N0 p4 S( l0 N z - Set E(1) = firstCircle
1 C" q3 P# {% P$ b - Set SS = .SelectionSets.Add("SS")6 ?5 o& g3 G N+ U2 y4 E- T
- SS.AddItems E
" w _5 t6 C" {. a+ L1 Q - '
/ r1 `0 x. E# A4 l! B, g - ': T2 _( ^4 I5 D1 G2 C) y0 N
- '7 w1 n! i# @8 e* @9 a5 Q
- SS.Delete1 z d3 c2 l3 g, Q
- End With, n* X8 E& S$ Y& \: B' L _
复制代码 |
|