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，回車，然后選擇所有圖元，回車，就已經完當作了刪除反復圖元的操作。我們再選擇圖形界面的所有圖形，提醒只有三個對象，申明反復圖元已經刪除了，如圖所示。