新手请教！能否一次删除重叠圆？

浪人

计算用过滤选择的圆时，通常也把重叠的圆计算在内了！
结果就有误了（会多出！）能不能一次删除重叠的圆？
这个问题很困杳我，一个个数真的很要命的！:<

东哥

删除后要留下一个？

浪人

是的！ 一个，。

yesong555

把一个圆放到一关闭的图层里，再删其它圆

浪人

问题是怎样一次框选含有重叠圆的圆的其中一个！因为不能一个一个选！
也就是请教各位老哥的地方，请多多指点！。。。

东哥

框选是不可能只选重叠对象中的一个的。框选的特点就是能够让我们方便选择一组对象。用框选，那些重叠的对象要就是全没选上，要就是全部选项上。如果只选一个，为什么不用点选？

meflying

将以下内容存为*.lsp，用命令APPLOAD加载，后用命令：er，可以删除选择范围内所有重复的圆（留下一个）。
fuzz后面的数字是半径精度

2. 
   
3. 
   
4. (defun c:er( / fuzz ss ss2 i ent ent2 lst pt_old r_old r)
   
5.   (setq fuzz 0.0001)
   
6.   (setq ss (ssget '((0 . "circle"))))
   
7.   (setq i 0)
   
8.   (while (< i (sslength ss))
   
9.     (setq ent (ssname ss i))
   
10.     (setq pt (assoc 10 (entget ent)))
    
11.     (setq r (cdr (assoc 40 (entget ent))))
    
12.     (setq ss2 (ssget "x" (list '(0 . "circle") '(-4 . "=") pt)))
    
13.     (ssdel ent ss2)
    
14.     (setq j 0)
    
15.     (repeat (sslength ss2)
    
16.       (setq ent2 (ssname ss2 j))
    
17.       (if (equal (cdr (assoc 40 (entget ent2))) r fuzz)
    
18.         (progn
    
19.           (entdel ent2)
    
20.           (ssdel ent2 ss)
    
21.         )
    
22.       )
    
23.       
    
24.       (setq j (1+ j))
    
25.     )
    
26.     (setq i (1+ i))
    
27.   )
    
28.   (princ)
    
29. )
    

<br /> <br /> (defun c:er( / fuzz ss ss2 i ent ent2 lst pt_old r_old r)<br />   (setq fuzz 0.0001)<br />   (setq ss (ssget '((0 . "circle"))))<br />   (setq i 0)<br />   (while (< i (sslength ss))<br />     (setq ent (ssname ss i))<br />     (setq pt (assoc 10 (entget ent)))<br />     (setq r (cdr (assoc 40 (entget ent))))<br />     (setq ss2 (ssget "x" (list '(0 . "circle") '(-4 . "=") pt)))<br />     (ssdel ent ss2)<br />     (setq j 0)<br />     (repeat (sslength ss2)<br />       (setq ent2 (ssname ss2 j))<br />       (if (equal (cdr (assoc 40 (entget ent2))) r fuzz)<br />         (progn<br />           (entdel ent2)<br />           (ssdel ent2 ss)<br />         )<br />       )<br />       <br />       (setq j (1+ j))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />

浪人

多谢飞哥！先试下程序！
还有东哥！因为有时大大小小的圆多时会有百个上，点选的话效率就。。。。。
所以有重叠的话就难找了！

浪人

尝试时！有时会出现误删！我传个图上来，你试下！！

wolaikk

可试试晓东工具里的消除重元