[求助]请教高手！！另类删重复图元LISP!!!

尘缘一生

自贡黄明儒 发表于 2013-5-19 08:42
这个是我的overkill之路上自己写的东西

delCircleArc

Li_item

ArcJoin

能补上这三个函数吗？

KO你

尘缘一生 发表于 2019-12-27 00:29
delCircleArc

Li_item

这个删除重叠图元scty基本已经有全部重叠对象删除功能
http://bbs.mjtd.com/plugin.php?i ... yNjY2NnwxNzk1Mzg%3D

KO你

尘缘一生 发表于 2019-12-27 00:29
delCircleArc

Li_item

http://bbs.mjtd.com/thread-179538-1-1.html

尘缘一生

尘缘一生 发表于 2019-12-27 00:29
delCircleArc

Li_item

不错，可惜不是源码啊，遗憾

LIULISHENG

路过支持一下

香远益清

三楼的好酷，我要试一下。顶！

lee50310

來源位置:https://forum.bricsys.com/discussion/33192/overkill-in-lisp-routine
試試這段代碼, 可完全删除重叠图元

2. ;;圈选范围,删除重叠图元
   
3. ;;
   
4. (defun c:Test (/ ss item)
   
5.       (if (setq ss (ssget))
   
6.           (progn
   
7.                (command "-overkill" ss "" "Ignore" "lweight" "Ignore" "Layer" "")
   
8.                (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   
9.                          (if (not (entget item))
   
10.                              (setq ss (ssdel item ss))
    
11.                          )
    
12.                 )
    
13.            )
    
14.        )
    
15.                 (princ)
    
16.   )
    

;;圈选范围,删除重叠图元<br /> ;;<br /> (defun c:Test (/ ss item)<br />       (if (setq ss (ssget))<br />           (progn<br />                (command "-overkill" ss "" "Ignore" "lweight" "Ignore" "Layer" "")<br />                (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br />                          (if (not (entget item))<br />                              (setq ss (ssdel item ss))<br />                          )<br />                 )<br />            )<br />        )<br />                 (princ)<br />   )<br />