|
|
发表于 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 s; R6 L; k+ B# ~5 U' i - With ThisDrawing I* J% [2 V1 ^/ B- L
- P2(0) = 10' g, W4 X" |% E3 O, w1 o$ p
- Set firstLine = .ModelSpace.AddLine(P1, P2)" b# @' X% d' J: D* j' v6 f
- Set firstCircle = .ModelSpace.AddCircle(P1, 5)3 t" A0 A( ?( g3 A8 y, T; [
- Set E(0) = firstLine, g" \7 F) M, t3 k: o
- Set E(1) = firstCircle
) @, }; l3 O5 ]: ~' v - Set SS = .SelectionSets.Add("SS")
% c9 {8 L! F" `. \' q& E - SS.AddItems E
& p1 u- [6 b. E2 v' u) h( t - ': U+ m6 t ]/ l+ E
- '
' c: v# P& f$ [) j( B - '/ Z, V3 Z4 v: }+ G
- SS.Delete) p, l+ g. w' h& a$ Z: ?6 y
- End With/ d$ i% B/ C9 P7 _
|
|
发表于 2011-12-10 08:52:57