請教存檔降版次加清除的lisp該怎麼寫
+2
Tiger&蘋果爸
shenhung
6 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
請教存檔降版次加清除的lisp該怎麼寫
請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版
造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版
所以才想做成按鈕
一鍵purge降版
謝謝
請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?
謝謝大家
因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版
造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版
所以才想做成按鈕
一鍵purge降版
謝謝
請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?
謝謝大家
- 附件
cf1032 在 2021-08-02, 14:57 作了第 4 次修改
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8090
威望值 : 1188
注冊日期 : 2009-06-03
回復: 請教存檔降版次加清除的lisp該怎麼寫
沒錯,可以更改設定即可,請參考以下文章:shenhung 寫到:不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
[說明]AutoCAD版本(點我)
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: 請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分則為2004版
所以才想做成按鈕
一鍵purge降版
謝謝
另一部分則為2004版
所以才想做成按鈕
一鍵purge降版
謝謝
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
你可以先PU完後,用另存新檔>再選擇版本就好。
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4206
威望值 : 96
注冊日期 : 2015-08-31
回復: 請教存檔降版次加清除的lisp該怎麼寫
;簡單寫了一下.
(defun c:save2000()
(setq cur_savever (getenv "DefaultFormatForSave"))
(setenv "DefaultFormatForSave" "12")
(command "._purge" "all" "*" "n")
(command "qsave")
(setenv "DefaultFormatForSave" cur_savever)
(prompt "\n***已儲存到2000版本***")
(princ)
)
;=====================================================
(defun c:save2004()
(setq cur_savever (getenv "DefaultFormatForSave"))
(setenv "DefaultFormatForSave" "24")
(command "._purge" "all" "*" "n")
(command "qsave")
(setenv "DefaultFormatForSave" cur_savever)
(prompt "\n***已儲存到2004版本***")
(princ)
)
;用到的系統變數設定.
;(setenv "DefaultFormatForSave" "< value >")
;各儲存版本 Value 值 代表的版本.
;;;
;;;1 -AutoCAD R12 DXF
;;;
;;;12 -AutoCAD 2000 DWG
;;;13 -AutoCAD 2000 DXF
;;;
;;;24 -AutoCAD 2004 DWG
;;;25 -AutoCAD 2004 DXF
;;;
;;;36 -AutoCAD 2007 DWG
;;;37 -AutoCAD 2007 DXF
;;;
;;;48 -AutoCAD 2010 DWG
;;;49 -AutoCAD 2010 DXF
;;;50 -AutoCAD 2010 DWT
;;;
;;;60 -AutoCAD 2013 DWG
;;;61 -AutoCAD 2013 DXF
;;;62 -AutoCAD 2013 DWT
(defun c:save2000()
(setq cur_savever (getenv "DefaultFormatForSave"))
(setenv "DefaultFormatForSave" "12")
(command "._purge" "all" "*" "n")
(command "qsave")
(setenv "DefaultFormatForSave" cur_savever)
(prompt "\n***已儲存到2000版本***")
(princ)
)
;=====================================================
(defun c:save2004()
(setq cur_savever (getenv "DefaultFormatForSave"))
(setenv "DefaultFormatForSave" "24")
(command "._purge" "all" "*" "n")
(command "qsave")
(setenv "DefaultFormatForSave" cur_savever)
(prompt "\n***已儲存到2004版本***")
(princ)
)
;用到的系統變數設定.
;(setenv "DefaultFormatForSave" "< value >")
;各儲存版本 Value 值 代表的版本.
;;;
;;;1 -AutoCAD R12 DXF
;;;
;;;12 -AutoCAD 2000 DWG
;;;13 -AutoCAD 2000 DXF
;;;
;;;24 -AutoCAD 2004 DWG
;;;25 -AutoCAD 2004 DXF
;;;
;;;36 -AutoCAD 2007 DWG
;;;37 -AutoCAD 2007 DXF
;;;
;;;48 -AutoCAD 2010 DWG
;;;49 -AutoCAD 2010 DXF
;;;50 -AutoCAD 2010 DWT
;;;
;;;60 -AutoCAD 2013 DWG
;;;61 -AutoCAD 2013 DXF
;;;62 -AutoCAD 2013 DWT
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8090
威望值 : 1188
注冊日期 : 2009-06-03
Tiger&蘋果爸 and masao_8 like this post
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝,我又學了一招
____________________________________________________________________________________
djh1006- 中級會員
- 文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6152
威望值 : 359
注冊日期 : 2011-06-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝shenhung大
超好用
超好用
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝shenhung大
非常感謝
非常感謝
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
cf1032 寫到:請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版
造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版
所以才想做成按鈕
一鍵purge降版
謝謝
請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?
謝謝大家
- 附件
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
cf1032 寫到:請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版
造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版
所以才想做成按鈕
一鍵purge降版
謝謝
請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?
謝謝大家
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
https://apps.autodesk.com/ACD/zh-TW/Detail/Index?id=3773138176974634673&appLang=en&os=Win32_64
不用寫lisp,下載這支程式就可以達到你的需求.
這支程式是免費的
說明
Good to know ☺
Please note that this app will not work with ☹ AutoCAD LT version
If commands are not working after installation, please read Frequently Asked Questions page
If you are using older versions (2012 to 2021), please continue using version 8.3.0
Drawing Purge Version Autodesk Version Notes
9.0.0 (Current) 2022 to 2025 Current version
8.3.0 2012 to 2021 No updates will be available in future
There are 3 commands for this plug-in
No Command Usage
1 DWG-PURGE To purge the Current Drawing
2 DWG-PURGE-BATCH To purge multiple drawings without opening the files.
3 DWG-PURGE-CONSOLE To run 'Drawing Purge' in script mode
不用寫lisp,下載這支程式就可以達到你的需求.
這支程式是免費的
說明
Good to know ☺
Please note that this app will not work with ☹ AutoCAD LT version
If commands are not working after installation, please read Frequently Asked Questions page
If you are using older versions (2012 to 2021), please continue using version 8.3.0
Drawing Purge Version Autodesk Version Notes
9.0.0 (Current) 2022 to 2025 Current version
8.3.0 2012 to 2021 No updates will be available in future
There are 3 commands for this plug-in
No Command Usage
1 DWG-PURGE To purge the Current Drawing
2 DWG-PURGE-BATCH To purge multiple drawings without opening the files.
3 DWG-PURGE-CONSOLE To run 'Drawing Purge' in script mode
chengshunyi- 高級會員
- 文章總數 : 66
年齡 : 58
來自 : 台北市文山區
職業 : 建築規劃
愛好 : 散步
個性 : 溫和
使用年資 : 15
使用版本 : 2018
經驗值 : 5708
威望值 : 97
注冊日期 : 2010-07-04
Tiger&蘋果爸 likes this post
chengshunyi- 高級會員
- 文章總數 : 66
年齡 : 58
來自 : 台北市文山區
職業 : 建築規劃
愛好 : 散步
個性 : 溫和
使用年資 : 15
使用版本 : 2018
經驗值 : 5708
威望值 : 97
注冊日期 : 2010-07-04
Tiger&蘋果爸 likes this post
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
cf1032- 一般會員
- 文章總數 : 48
年齡 : 33
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 4037
威望值 : 6
注冊日期 : 2014-09-16
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章