急！寻找程序，删除同心圆的lisp程序。

yxp

两个圆（或三个等）因某种原因重合在一起，半径相同，圆心相同，如何删去一个？

有没有这方面的程序，我有大量的图需要处理，每个图有4000-5000个圆，少量是重复的，所以无法正常编号和统计数量。

yxp

算了自力更生

(defun c:da ()
  (setvar "cmdecho" 0)
  (setq ss (ssget '((0 . "circle"))))
  (setq n 0)
  (while (< n (sslength ss))
       (setq ssa (cdr (assoc 10 (entget (ssname ss n)))))
       (setq m (+ n 1))
       (while (< m (sslength ss))
          (setq ssb (cdr (assoc 10 (entget (ssname ss m)))))
          (setq de (cdr (assoc -1 (entget (ssname ss m)))))
          (if (and (= (car ssa) (car ssb))(= (cadr ssa) (cadr ssb)))
             (if de (command "ERASE" de "")))
           (setq m (+ 1 m))
      )(setq n (+ 1 n))
  )(princ)
)

记得好像不能依赖command的返回来做一件事情，

因为command执行起来比较慢，而lisp的循环执行的快时会不会有的圆被跳过？

应该不会有这种事情发生吧。

另外这个算法也比较烂，如果有1000个圆，

循环的次数将是1000的阶乘，对于5000多个圆来说岂不是天文数字？

应该有更好的解决办法，希望高手的关注。

qjchen

:)

可以先试试 express tool 里面 的overkill 命令。

若一定要算法稍快的话，是否可以这样，假设圆位置是随机分布的话（要是分布太集中的话，此法就不一定很好）

得出圆心 xmax xmin ymax ymin，x，y向分别分为按照(xmax-xmin)/n和(ymax-ymin)/n的方格子[比如n=sqrt(总圆数))个区格]

然后，将圆列表按照圆心位置先分配到这n*n个子表中去。再对子表判断分治处理。说不定会好些。

yxl88168

好东西，又学了一点