[討論]分享如何新增快速清除圖面多餘元素與註冊表之巨集-PURGE

不知板內是否有分享該功能，目前我在板內沒搜尋到該教學，若本篇有重複內容也請管理員通知刪除文章
簡易的巨集，不是很難的語法，但是對常在使用PURGE\全部清除的使用者可能有幫助到

關於新增CUI按鈕及新指令，想必板內已有非常詳細的教學，我就大略概過
開啟任意圖檔→輸入指令"CUI"→在[指令清單]中尋找[建立新指令按鈕]並建立新指令→在右側性質內編輯指令名稱→在巨集內輸入以下指令→並在按鈕影像內選擇按鈕圖檔或自行繪製→再將完成的按鈕拉到自訂檔的工具列中
爾後要清理圖面只要按下該按鈕就可以清除圖面多餘的元素和註冊表
各方高手若有更好的建議，也方便留言建議小弟，在此先行感謝~

代碼:

^C^C-Purge;A;*;N;-Purge;R;*;N;^C^C

---

Tiger&蘋果爸 寫到: 謝謝熱心分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

這個「巨集」我也是超愛用～真的很方便喔！
剛好最近的高階課程也有教學，有需要學習的朋友請通知我再來開班～

分享我工作中「一鍵完成」的二個巨集，有興趣歡迎一起討論！

代碼:

[清除全部/比例清單]^C^C-scalelistedit;R;Y;E;-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;QSAVE;
[清除全部/設定依圖層/存檔關閉]^C^C-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;CLAYER;0;CECOLOR;BYLAYER;CELTYPE;BYLAYER;QSAVE;CLOSE;


我的習慣是使用「工具選項板」，然後建立工具指令按鈕，再來就可以設置「巨集」達成「一鍵完成」的需求喔～


▼巨集指令下載▼

感謝蘋果爸無私分享與貢獻~

pc200098 寫到:感謝蘋果爸無私分享與貢獻~

呵呵...大家一起互助一起進步~
雙贏!

感謝蘋果爸分享及此版版主分享~~

感謝蘋果爸及版主分享~~
這篇意外的學到[如何建立工具按鈕]的方法~  美 賣 哦

這些感覺都是2014以上版本適用~
以下的可以使用嗎~

謝謝分享~~
等會來試試看~~

li60830 寫到:這些感覺都是2014以上版本適用~
以下的可以使用嗎~

AutoCAD 2006以上版本都沒問題～

Tiger&蘋果爸 寫到:

li60830 寫到:這些感覺都是2014以上版本適用~
以下的可以使用嗎~

AutoCAD 2006以上版本都沒問題～

感謝蘋果爸~找時間來試試看~

請問各位先進：是否可透過指令執行這種自訂巨集

virage7676 寫到:請問各位先進：是否可透過指令執行這種自訂巨集

想要將「自訂巨集」變成指令方式，就要寫成lisp程式才可以～
這個不難寫，找個時間來寫一下！
剛好讓「高階入門程式班」的同學來試試～

「高階入門程式班」一號同學報到，謹遵老師指示：
;;====================================================================;;
;; Purge.lsp==============================================================;;
;;====================================================================;;
;; [清除全部/比例清單]^C^C-scalelistedit;R;Y;E;-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;QSAVE;
(defun c:Purge1 ()
(command "-scalelistedit" "R" "Y" "E")
(command "-PURGE" "B" "" "N" "" "B" "" "N" "" "A" "" "N" "" "B" "" "N" "" "R" "" "N")
(command "ZOOM" "E")
(command "QSAVE")
)
;;====================================================================;;
;; [清除全部/設定依圖層/存檔關閉]^C^C-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;CLAYER;0;CECOLOR;BYLAYER;CELTYPE;BYLAYER;QSAVE;CLOSE;
(defun c:Purge2 ()
(command "-PURGE" "B" "" "N" "" "B" "" "N" "" "A" "" "N" "" "B" "" "N" "" "R" "" "N")
(command "ZOOM" "E")
(command "CLAYER" 0)
(command "CECOLOR" "BYLAYER")
(command "CELTYPE" "BYLAYER")
(command "QSAVE")
(command "CLOSE")
)
;;====================================================================;;
恭請老師指導~~

Wow....
ㄧ號同學威力哥，真的超威的⋯好認真交功課。

我真是汗顏（掩臉）。

謝謝蘋果爸指導！

;; [清除全部/比例清單]^C^C-scalelistedit;R;Y;E;-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;QSAVE; 寫到:

其實-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;可改成-PURGE;B;*;N;;R;*;N;^Z

pc200098 寫到:

;; [清除全部/比例清單]^C^C-scalelistedit;R;Y;E;-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;QSAVE; 寫到:

其實-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;可改成-PURGE;B;*;N;;R;*;N;^Z

謝謝分享～
因為之前是有碰過「槽狀式」圖塊，所以執行一次「-PURGE;B;*;N;」，還是會有其他圖塊沒有purge，所以所幸多purge幾次，讓他徹底purge乾淨～

wellylin 寫到:「高階入門程式班」一號同學報到，謹遵老師指示：
;;====================================================================;;
;; Purge.lsp==============================================================;;
;;====================================================================;;
;; [清除全部/比例清單]^C^C-scalelistedit;R;Y;E;-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;QSAVE;
(defun c:Purge1 ()
 (command "-scalelistedit" "R" "Y" "E")
 (command "-PURGE" "B" "" "N" "" "B" "" "N" "" "A" "" "N" "" "B" "" "N" "" "R" "" "N")
 (command "ZOOM" "E")
 (command "QSAVE")
)
;;====================================================================;;
;; [清除全部/設定依圖層/存檔關閉]^C^C-PURGE;B;;N;;B;;N;;A;;N;;B;;N;;R;;N;ZOOM;E;CLAYER;0;CECOLOR;BYLAYER;CELTYPE;BYLAYER;QSAVE;CLOSE;
(defun c:Purge2 ()
 (command "-PURGE" "B" "" "N" "" "B" "" "N" "" "A" "" "N" "" "B" "" "N" "" "R" "" "N")
 (command "ZOOM" "E")
 (command "CLAYER" 0)
 (command "CECOLOR" "BYLAYER")
 (command "CELTYPE" "BYLAYER")
 (command "QSAVE")
 (command "CLOSE")
)
;;====================================================================;;
恭請老師指導~~

威力哥
果然很快就上手，其實寫程式對您來說，駕輕就熟吧～

pc200098 所寫的語法教為白話，不難理解，感謝分享!

一種指令有多種寫法，開眼界了。

感謝蘋果爸熱心分享，收下囉。

感謝蘋果爸及各位高手分享~真是大開眼界了~

謝謝各位高手的分享，又學到新的知識。

感謝無私分享 ^^