請教存檔降版次加清除的lisp該怎麼寫
5 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- 一般會員
- 文章總數 : 42
年齡 : 32
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 3805
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
shenhung- 高級會員
- 文章總數 : 276
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 7844
威望值 : 1169
注冊日期 : 2009-06-03
回復: 請教存檔降版次加清除的lisp該怎麼寫
沒錯,可以更改設定即可,請參考以下文章:shenhung 寫到:不用寫LISP
在選項內的開啟和儲存.直接設成 你要另存成2000 版次.
然後你以後儲存..CAD都會自動存成2000的格式.
PURGE 其他照一般正常操作就行.
[說明]AutoCAD版本(點我)
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
回復: 請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分則為2004版
所以才想做成按鈕
一鍵purge降版
謝謝
另一部分則為2004版
所以才想做成按鈕
一鍵purge降版
謝謝
cf1032- 一般會員
- 文章總數 : 42
年齡 : 32
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 3805
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
你可以先PU完後,用另存新檔>再選擇版本就好。
jackiehover- 初級會員
- 文章總數 : 151
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 3959
威望值 : 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- 高級會員
- 文章總數 : 276
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 7844
威望值 : 1169
注冊日期 : 2009-06-03
Tiger&蘋果爸 and masao_8 like this post
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝,我又學了一招
____________________________________________________________________________________
djh1006- 中級會員
- 文章總數 : 177
年齡 : 52
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 5950
威望值 : 359
注冊日期 : 2011-06-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝shenhung大
超好用
超好用
cf1032- 一般會員
- 文章總數 : 42
年齡 : 32
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 3805
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
謝謝shenhung大
非常感謝
非常感謝
cf1032- 一般會員
- 文章總數 : 42
年齡 : 32
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 3805
威望值 : 6
注冊日期 : 2014-09-16
回復: 請教存檔降版次加清除的lisp該怎麼寫
cf1032 寫到:請教存檔降版次加清除的lisp該怎麼寫
因一部分廠商需求為2000版
另一部分廠商則為2004版
而小弟公司是2014版
造成每次給廠商圖檔時
都要執行purge清除.
及存檔類型手動選擇降版
所以才想做成按鈕
一鍵purge降版
謝謝
請問各位高手
lisp該如何寫
才能將圖檔先purge後接續存檔成2000版?
謝謝大家
- 附件
cf1032- 一般會員
- 文章總數 : 42
年齡 : 32
來自 : 台北
職業 : 待業
愛好 : 無
個性 : 熱情
使用年資 : 10
使用版本 : 2010
經驗值 : 3805
威望值 : 6
注冊日期 : 2014-09-16
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章