vla-put-saveastype
example:
(vla-put-saveastype (vla-get-opensave (vla-get-preferences (vlax-get-acad-object))) ac2018_dwg)
(defun c:savetover2010 nil
(vl-load-com)
; 64 - autocad 2018
; 60 - autocad 2013
; 48 - autocad 2010
; 36 - autocad 2007
; 24 - autocad 2004
; 12 - autocad 2000
(vla-put-saveastype
(vla-get-opensave
(vla-get-preferences
(vla-get-application (vlax-get-acad-object))
)
)
48
)
(vla-Save (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
Miljenko Hatlak
Please note that this only affects the SAVEAS -command default format. Regardless of this setting, the SAVE command will still save in the newest format.
- If that can also be changed, I'd be rather interested to know how...