如何在圆选择集中高效的分离出同心圆

陨落

(defun delsames(ss tol)
(setq list1 (ss->list ss)
      list2 nil)
  (while (>(length list1) 0)
    (setq en1(car list1)
          centernow (center en1)
          ensame (vl-remove-if-not '(lambda(x)(equal (center x)centernow tol))list1)
          list1(vl-remove-if '(lambda(x)(equal (center x)centernow tol))list1)
          list2(cons (car ensame)list2)
  )
    )
  list2
  )
(defun center(en)
(cdr (assoc 10(entget en)))
)
(defun SS->LIST (SS)
   (if ss
  (vl-remove-if-not '(lambda(x) (= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
     nil)
   )
消除同心圆，凡是同心圆，任意保留一个，返回删除后的图元列表
ss是选择集，必须是圆的选择集，tol是容差
处理5200个大约50s
可以继续写保留最大半径那个

zjlszw

既然是同心圆，肯定是大圆包小圆。我的想法是选择大圆，然后以大圆为边界建立选择集（只选圆对象），看看选择集是否存在，存在则为同心圆

Sylvanas

zjlszw 发表于 2016-7-19 00:28
既然是同心圆，肯定是大圆包小圆。我的想法是选择大圆，然后以大圆为边界建立选择集（只选圆对象），看看选 ...

同心和包含不等价

NetBee

其实你安装CAD时添加ET工具。然后ET工具里有一个消重图元（overkill）的功能，你读一下那个源码就能搞定了。
－－－－－－－－－－－－－－－－
读代码初期很痛苦，但后期是很快乐的。。

【KAIXIN】

先排序 后 比较分类

kozmosovia

(Defun _Filter(ss)
(setq i -1)
(repeat (sslength ss)
   (setq sn (ssname ss (setq i (1+ i)))
            s10 (vl-prin1-to-string (cdr (assoc 10 (entget sn))))
    )
    (if (null (setq val (cdr (assoc s10 rtn))))
        (Setq rtn (cons (list (cons s10 sn)) rtn))
        (setq rtn (subst (cons s10 (cons sn val)) (assoc s10 rtn) rtn))
    )
)
rtn
)

陨落

陨落 发表于 2016-7-18 22:37
(defun delsames(ss tol)
(setq list1 (ss->list ss)
      list2 nil)

还可以优化，可以再缩短大概一半的运行时间

qinleilei

kozmosovia 发表于 2016-7-19 13:59
(Defun _Filter(ss)
(setq i -1)
(repeat (sslength ss)

大师，你这个程序的返回值是 实体名 表，
这些表的实体名  没有区分 同心 于不同心的

qinleilei

kozmosovia 发表于 2016-7-19 13:59
(Defun _Filter(ss)
(setq i -1)
(repeat (sslength ss)

大师，你这个程序的返回值是 实体名 表，
这些表的实体名  没有区分 同心 于不同心的

qinleilei

陨落 发表于 2016-7-19 22:21
还可以优化，可以再缩短大概一半的运行时间

怎么优化？ 大师帮忙支个招。我写的那个就是运算时间太久了，所以想屏弃掉