|
发表于 2010-1-23 22:03:55
|
显示全部楼层
圆心(点)是数组,得分别比较三个坐标才行.- 5 m" s6 M2 g" e
- Dim SS As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant, C1 As AcadCircle, C2 As AcadCircle, I As Long, J As Long
% W' W! [% |7 K& k: S - FT(0) = 0: FD(0) = "Circle"% E( q) a$ b7 y! J
- Set SS = ThisDrawing.SelectionSets.Add("SS")2 d9 A# {9 Q8 z9 x- Y& W' A( X$ X
- SS.Select acSelectionSetAll, , , FT, FD
+ n/ q: t5 H* n4 O5 E - If SS.Count > 1 Then
0 m) t* {! D; S2 X& g1 l - For I = SS.Count - 1 To 1 Step -18 `4 A9 M% m1 Y4 O
- Set C1 = SS.Item(I)
% s9 ]- W7 O* Q8 F% J2 X - For J = I - 1 To 0 Step -1
% g: i4 U+ M& I- M. k - Set C2 = SS.Item(J)/ N; C0 q0 L: l w
- If C1.Center(0) = C2.Center(0) And C1.Center(1) = C2.Center(1) And C1.Center(2) = C2.Center(2) And C1.Radius = C2.Radius Then
( t% v" l/ u8 i# x9 ~6 m' }6 T2 D6 J - C1.Delete( ^; X) O& `! I. c
- Exit For
0 M$ Z8 V5 o2 W! D3 y: Z - End If/ g, ^) X2 I* v3 u
- Next u+ w- Y' L }8 K
- Next- W$ K% z# _7 v7 ?/ K/ x
- End If1 D& I$ V' i- P! M, t1 X2 Z
- SS.Delete8 S! r4 o* s5 Q, w
复制代码 |
|