; 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 檔案)