AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

上一篇主題 下一篇主題 向下

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

發表 由 pc200098 于 2017-01-03, 10:04

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

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

代碼:
^C^C-Purge;A;*;N;-Purge;R;*;N;^C^C



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

文章總數 : 46
年齡 : 32
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 2738
威望值 : 55
注冊日期 : 2011-03-10
男 天秤座 牛

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-05, 03:23

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

好開心 分享我工作中「一鍵完成」的二個巨集,有興趣歡迎一起討論!
代碼:
[清除全部/比例清單]^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;

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


▼巨集指令下載▼
附件
PURGE設置.zip 您無權下載這里的附件。(1 Kb) 下載 70 次

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 pc200098 于 2017-01-05, 06:23

感謝蘋果爸無私分享與貢獻~
avatar
pc200098
初級會員
初級會員

文章總數 : 46
年齡 : 32
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 2738
威望值 : 55
注冊日期 : 2011-03-10
男 天秤座 牛

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-05, 06:35

pc200098 寫到:感謝蘋果爸無私分享與貢獻~
呵呵...大家一起互助一起進步~
雙贏!
感激

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 cheng1976 于 2017-01-06, 01:01

感謝蘋果爸分享及此版版主分享~~
avatar
cheng1976
初級會員
初級會員

文章總數 : 37
年齡 : 41
來自 : 新北市
職業 :
愛好 : 美食
個性 : 內向
使用年資 : 8
使用版本 : 2005
積分 : 2
經驗值 : 2054
威望值 : 54
注冊日期 : 2012-11-08
男 射手座 龍

回頂端 向下

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

發表 由 MK WU 于 2017-01-06, 02:21

感謝蘋果爸及版主分享~~ 謝謝囉
這篇意外的學到[如何建立工具按鈕]的方法~  美 賣 哦 超開心
avatar
MK WU
初級會員
初級會員

文章總數 : 56
年齡 : 45
來自 : 台灣台北
職業 :
愛好 : 看電視
個性 : 隨緣
使用年資 : 1年
使用版本 : 2013
積分 : 1
經驗值 : 2286
威望值 : 51
注冊日期 : 2012-07-02
藍鵲672號
男 天蝎座 鼠

回頂端 向下

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

發表 由 li60830 于 2017-01-06, 02:38

這些感覺都是2014以上版本適用~
以下的可以使用嗎~
avatar
li60830
初級會員
初級會員

文章總數 : 312
年齡 : 46
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 2
經驗值 : 3337
威望值 : 310
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

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

發表 由 MICHELLE.LO 于 2017-01-06, 03:15

謝謝分享~~
等會來試試看~~
avatar
MICHELLE.LO
一般會員
一般會員

文章總數 : 13
年齡 : 46
來自 : 桃園市
職業 : 繪圖
愛好 : 旅遊
個性 : 溫和, 有時想太多
使用年資 : 20
使用版本 : 2013
經驗值 : 724
威望值 : 0
注冊日期 : 2016-02-15
女 金牛座 豬

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-06, 04:19

li60830 寫到:這些感覺都是2014以上版本適用~
以下的可以使用嗎~
AutoCAD 2006以上版本都沒問題~
微笑

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 li60830 于 2017-01-06, 10:06

Tiger&蘋果爸 寫到:
li60830 寫到:這些感覺都是2014以上版本適用~
以下的可以使用嗎~
AutoCAD 2006以上版本都沒問題~
微笑

感謝蘋果爸~找時間來試試看~ 竊喜
avatar
li60830
初級會員
初級會員

文章總數 : 312
年齡 : 46
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 2
經驗值 : 3337
威望值 : 310
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

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

發表 由 virage7676 于 2017-01-06, 13:28

請問各位先進:是否可透過指令執行這種自訂巨集
avatar
virage7676
一般會員
一般會員

文章總數 : 21
年齡 : 40
來自 : 台中市北屯區
職業 : 自由業
愛好 : 慢跑
個性 : 寡言
使用年資 : 10
使用版本 : CAD2006
經驗值 : 2048
威望值 : -9
注冊日期 : 2012-08-04
男 射手座 龍

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-06, 16:07

virage7676 寫到:請問各位先進:是否可透過指令執行這種自訂巨集
想要將「自訂巨集」變成指令方式,就要寫成lisp程式才可以~
這個不難寫,找個時間來寫一下!
剛好讓「高階入門程式班」的同學來試試~
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 wellylin 于 2017-01-06, 18:58

「高階入門程式班」一號同學報到,謹遵老師指示:
;;====================================================================;;
;; 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")
)
;;====================================================================;;
恭請老師指導~~
附件
PURGE設置_lisp_welly_20170107.zip 您無權下載這里的附件。(1 Kb) 下載 7 次
avatar
wellylin
初級會員
初級會員

文章總數 : 41
年齡 : 50
來自 : Taiwan Keelung
職業 : GIS and MIS
愛好 : Program Game
個性 : 隨和
使用年資 : 1年
使用版本 : AutoCAD Map 3D 2012
積分 : 4
經驗值 : 2242
威望值 : 62
注冊日期 : 2012-06-20
經典問與答讀者 藍鵲462號
男 處女座 羊

回頂端 向下

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

發表 由 YU HSIANG 于 2017-01-07, 01:27

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

我真是汗顏(掩臉)。

謝謝蘋果爸指導!
avatar
YU HSIANG
初級會員
初級會員

文章總數 : 140
年齡 : 39
來自 : 新北市
職業 : 繪圖
愛好 : 上網
個性 :
使用年資 : 12
使用版本 : AUTO CAD 2010
積分 : 9
經驗值 : 3125
威望值 : 195
注冊日期 : 2011-05-05
顧問外掛程式 經典問與答讀者 藍鵲52號
2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 女 巨蟹座 馬

回頂端 向下

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

發表 由 pc200098 于 2017-01-07, 04:08

;; [清除全部/比例清單]^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
avatar
pc200098
初級會員
初級會員

文章總數 : 46
年齡 : 32
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 2738
威望值 : 55
注冊日期 : 2011-03-10
男 天秤座 牛

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-07, 13:21

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乾淨~
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2017-01-07, 13:24

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")
)
;;====================================================================;;
恭請老師指導~~
威力哥
果然很快就上手,其實寫程式對您來說,駕輕就熟吧~
過獎了

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 Beck 于 2017-01-08, 23:52

pc200098 所寫的語法教為白話,不難理解,感謝分享!
avatar
Beck
一般會員
一般會員

文章總數 : 58
年齡 : 53
來自 : 新竹
職業 : 配管系統設計
愛好 : 郊遊
個性 : 和善
使用年資 : 25 年
使用版本 : 2010/2012
經驗值 : 2621
威望值 : 78
注冊日期 : 2011-08-16
男 天秤座 龍

回頂端 向下

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

發表 由 kia.lin 于 2017-01-09, 15:35

一種指令有多種寫法,開眼界了。
avatar
kia.lin
一般會員
一般會員

文章總數 : 8
年齡 : 40
來自 : 新北市樹林區
職業 : 工程
愛好 : 戶外運動
個性 : 中等
使用年資 : 3year
使用版本 : 2002
經驗值 : 794
威望值 : 0
注冊日期 : 2015-11-14
男 天秤座 蛇

回頂端 向下

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

發表 由 jackiehover 于 2017-01-25, 03:34

感謝蘋果爸熱心分享,收下囉。
avatar
jackiehover
初級會員
初級會員

文章總數 : 125
年齡 : 31
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至2017/03
使用版本 : 2014、15、16
積分 : 1
經驗值 : 1481
威望值 : 84
注冊日期 : 2015-08-31
藍鵲699號
男 水瓶座 虎

回頂端 向下

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

發表 由 jae.angel 于 2017-02-13, 15:07

感謝蘋果爸及各位高手分享~真是大開眼界了~
avatar
jae.angel
一般會員
一般會員

文章總數 : 23
年齡 : 36
來自 : Tainan Taiwan
職業 : 營造內業工程師
愛好 : 聽音樂、攝影
個性 : 內向
使用年資 : 初學
使用版本 : 2010
經驗值 : 1542
威望值 : 0
注冊日期 : 2013-12-25
女 處女座 雞

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章