[求助]：恳请帮助：在统计圆数量时如何去掉重复圆

ycao

在统计小圆数量时，如何把重复的小圆数量去掉，而得到正确的数量呢？
比如：如图所示，小圆正确的数量为187个，但如果其中有重复的小圆数量
就会超过187个，如何把重复的小圆数量找出来，而得到正确的数量187个呢？
恳请高手帮助写一下相关lisp代码。在此，先说一声谢谢！

tdgc

刚才别处看到的,如下:
(defun c:cnum (/ ss i e cpt pts)
  (setq ss(ssget '((0 . "CIRCLE")))
  i -1)
  (while(setq e(ssname ss(setq i(1+ i))))
   (setq cpt (cdr(assoc 10(entget e))))
   (if(not (member cpt pts))
   (setq pts (cons cpt pts))
   )
   ) (length pts)
)