saveastype _ autolisp vlisp函數

; vlisp 指令名稱 : saveastype

; 設定另存檔案類型的代碼,

; 變數名稱 : opensave

; 13 : 存成 autocad 2000 版本的 dxf 檔案

; 12 : 存成 autocad 2000 版本的 dwg 檔案

; 49 : 存成 autocad 2010 版本的 dxf 檔案

; 48 : 存成 autocad 2010 版本的 dwg 檔案

(setq pos ( vla-get-opensave ( vla-get-preferences ( vlax-get-acad-object )) ) )

; 取得 opensave 變數, 設成 pos 變數

(setq old_saveastype ( vla-get-saveastype pos))

; 取得 opensave 的檔案類型的 saveastype 代碼值

( vla-put-saveastype pos 13)

; 設定 saveastype 為 13 (autocad 2000 版本的 dxf 檔案)

---