autolisp 如何删除重叠图形

1、首先打开CAD，命令栏输入vlide，打开lisp编辑器，如图所示。

2、在Lisp编辑器中点击新建，再点击保存，保存为Lisp源文件，命名为“删除重复图元”，点击保存，如图所示。

3、再编辑器中输入一下代码：

(defun c:delrepeat()

  (setq name (ssget))

  (command "-overkill" name "" "d")

  (princ)

  )

点击保存，再点击加载，如图所示。

4、关掉编辑器窗口，再CAD自行画几个图形，我们看到的图形界面只有两个圆，一条线段，但选中后显示有七个对象，这是因为有重复图元，如图所示。

5、在命令栏输入delrepeat，回车，然后选择所有图元，回车，就已经完成了删除重复图元的操作。我们再选择图形界面的所有图形，提示只有三个对象，说明重复图元已经删除了，如图所示。