Use Saveas Command from a Lisp Routine

[CADdancer]

Hello AUGI Members:

Is there a way to envoke the SaveAs command from inside a lisp routine and still get the Save Drawing As dialog box to select the folder and drawing name of the new file. When I attempt to do this I only get the command line prompt and I would like to have the ability to interactively select the target folder and file name.

Thank you for any assistance in this matter.....!!!!

Regards,
Vince

[madcadder]

(DEFUN c:sas ()
  (COMMAND "_saveas" "" "~")
  (PRINC "\nSaveAs Complete:")
  (PRINC)
) ;_ end of DEFUN

[CADdancer]

Tod:

Thank you for your quick response.......your code seems to be working exactly the way I need it to accomplish my objective.

Thanks again for your help....!!!

Regards,
Vince

[madcadder]

Nadda problem... Have a good one.

[ElpanovEvgeniy]

(vla-SaveAs (vla-get-ActiveDocument(vlax-get-acad-object)) "d:\\test_1.dwg" ac2004_dwg)

last argument - format file:

acR14_dwg
ac2000_dwg
ac2000_dxf
ac2000_Template
ac2004_dwg
ac2004_dxf
ac2004_Template
ac2007_dwg
ac2007_dxf
ac2007_Template
acNative

[palmtreedeprived]

(command "saveas" "2000" "" "_Y")


saves to the 2000 format

[rkmcswain]

(DEFUN c:sas ()
  (COMMAND "_saveas" "" "~")
  (PRINC "\nSaveAs Complete:")
  (PRINC)
) ;_ end of DEFUN

If you pick an existing file (with the intent of overwriting it), and the file happens to be read-only (or the user otherwise does not have write access) - then nothing happens and the user will get a misleading "SaveAs Complete"