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

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

delCircleArc

Li_item

ArcJoin

能补上这三个函数吗？

KO你 发表于 2019-12-27 05:03:31

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

Li_item


这个删除重叠图元scty基本已经有全部重叠对象删除功能
http://bbs.mjtd.com/plugin.php?id=imc_attachplug:attachad&aid=MTA0NjA1fGNjZGQ3MjM1fDE1NzczOTQxMzF8NzMyNjY2NnwxNzk1Mzg%3D

KO你 发表于 2019-12-27 05:04:34

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

Li_item


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

尘缘一生 发表于 2019-12-27 08:25:27

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

Li_item


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

LIULISHENG 发表于 2020-2-16 23:28:10

路过支持一下

香远益清 发表于 2020-2-17 15:20:40

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

lee50310 发表于 2020-2-18 23:41:12

本帖最后由 lee50310 于 2020-2-18 23:59 编辑

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

;;圈选范围,删除重叠图元
;;
(defun c:Test (/ ss item)
      (if (setq ss (ssget))
          (progn
               (command "-overkill" ss "" "Ignore" "lweight" "Ignore" "Layer" "")
               (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                         (if (not (entget item))
                           (setq ss (ssdel item ss))
                         )
                )
         )
       )
                (princ)
)
页: 1 [2]
查看完整版本: [求助]请教高手！！另类删重复图元LISP!!!