請教存檔降版次加清除的lisp該怎麼寫

請教存檔降版次加清除的lisp該怎麼寫

因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版

造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版

所以才想做成按鈕
一鍵purge降版

謝謝

請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?

謝謝大家

不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.

shenhung 寫到:不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.

沒錯，可以更改設定即可，請參考以下文章：
[說明]AutoCAD版本(點我)

因一部分廠商需求為2000版
另一部分則為2004版

所以才想做成按鈕
一鍵purge降版

謝謝

你可以先PU完後，用另存新檔>再選擇版本就好。

;簡單寫了一下.

(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大
超好用

謝謝shenhung大
非常感謝

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

https://www.youtube.com/watch?v=8xr8ITc4Zgo
蘋果爸有影片說明教學....

99