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