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

由 **cf1032** 周一 29 6月 2020, 15:01

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

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

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

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

謝謝

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

謝謝大家

附件

: 賊船篩選踢人表-1.xlsx 您無權下載這里的附件。(640 Kb) 下載 2 次

: 新增 Microsoft PowerPoint 簡報.pptx 您無權下載這里的附件。(30 Kb) 下載 0 次

由 **shenhung** 周一 29 6月 2020, 18:12

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

由 **Tiger&蘋果爸** 周二 30 6月 2020, 09:36

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

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

由 **cf1032** 周四 09 7月 2020, 13:54

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

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

謝謝

由 **jackiehover** 周二 03 11月 2020, 10:07

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

由 **shenhung** 周二 03 11月 2020, 12:19

;簡單寫了一下.

(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