autolisp 如何删除重叠图形

小编给大家介绍一种通过AutoLisp编程语言解决删除重叠图形的小技巧。

东西/原料

1
起首打开CAD，号令栏输入vlide，打开lisp编纂器，如图所示。
2
在Lisp编纂器中点击新建，再点击保留，保留为Lisp源文件，定名为“删除反复图元”，点击保留，如图所示。
3
再编纂器中输入一下代码：
(defun c:delrepeat()
(setq name (ssget))
(command "-overkill" name "" "d")
(princ)
)
点击保留，再点击加载，如图所示。
4
关失落编纂器窗口，再CAD自行画几个图形，我们看到的图形界面只有两个圆，一条线段，但选中后显示有七个对象，这是因为有反复图元，如图所示。
5
在号令栏输入delrepeat，回车，然后选择所有图元，回车，就已经完当作了删除反复图元的操作。我们再选择图形界面的所有图形，提醒只有三个对象，申明反复图元已经删除了，如图所示。