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

hpy

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

phoenixdjq

给你一个网上下载的删除重线的程序，谁做的我忘了

你可以先把多余的圆删除，然后再计算，就可以了

 

183017064

phoenixdjq 发表于 2006-12-29 20:47
给你一个网上下载的删除重线的程序，谁做的我忘了你可以先把多余的圆删除，然后再计算，就可以了 

好用，谢谢大佬分享，学习了。居然是18年前的东西，太强了

Andyhon

Express Tools 内之 Overkill如何 ?

phoenixdjq

如果两个圆的圆心和半径一样，那就是重复的圆了

写个程序就可以了

鬼魔

不用工具的土招

先拷直线出来,在用BO,然后炸了

hpy

phoenixdjq发表于2006-12-28 22:38:00如果两个圆的圆心和半径一样，那就是重复的圆了写个程序就可以了

请问：应该怎么写？

无痕

;; 仅限本例作为参考．

2. (defun c:cnum(/ ss i e cpt pts)
3.   (setq ss (ssget '((0 . "CIRCLE")))
4. i -1)
5.   (while (setq e (ssname ss (setq i (1+ i))))
6.     (setq cpt(cdr(assoc 10 (entget e))))
7.     (if(not(member cpt pts))
8.       (setq pts(cons cpt pts))
9.     )
10.   )(length pts)
11. )

(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) )

oyxx1023

很精简的代码。P服。loushang.

hpy

谢谢无痕！。程序很精简，但如果有重复的圆，程序依然不能统计出正确的数量。看来得用phoenixdjq提供的程序先消除重复圆，再统计数量了。谢谢phoenixdjq！

killer9806

得到了一个学习的好程式，谢了。