CAD 保存版本 变量是啥？

bikeboy

用CAD2017版 时默认保存的其他低版本经常打不开，每次手动改太麻烦，请大神指点保存版本的变量是啥？ 用怎么用lisp限制一下？要求始终保存的都是2000版的。

marting

(vla-get-saveastype
  (vla-get-opensave
    (vla-get-preferences
      (vlax-get-acad-object)
      ) 
    ) 
 )

保存用

 (vla-put-saveastype.......)

enum AcSaveAsType
    {        acUnknown        = -1,
        acR12_dxf        = 1,
        acR13_dwg        = 4,
        acR13_dxf        = 5,
        acR14_dwg        = 8,
        acR14_dxf        = 9,
        ac2000_dwg        = 12,
        ac2000_dxf        = 13,
        ac2000_Template        = 14,
        ac2004_dwg        = 24,
        ac2004_dxf        = 25,
        ac2004_Template        = 26,
        ac2007_dwg        = 36,
        ac2007_dxf        = 37,
        ac2007_Template        = 38,
        acNative        = ac2007_dwg,
        acR15_dwg        = ac2000_dwg,
        acR15_dxf        = ac2000_dxf,
        acR15_Template        = ac2000_Template,
        acR18_dwg        = ac2004_dwg,
        acR18_dxf        = ac2004_dxf,
        acR18_Template        = ac2004_Template
    }         AcSaveAsType;

newer

获得

(getenv "DefaultFormatForSave")




设置：

(defun c:tt (/ SaveVrs)
  (setq        SaveVrs        "36")                        ; 24 for 2004; 36 for 2008
  (setenv "DefaultFormatForSave" SaveVrs)
  (princ)                                
)

longer1000

啥也不说了，感谢楼主分享哇！