How to Auto Zoom Extents when saving?

[Darken99]

I remember there being a dialog box to enter script in when you are saving, but I am unable to locate it now. Anyone have any tips?

Thanks

 

[lpseifert]

Make a toolbar button and use this as the macro:
^C^CZOOM;E;QSAVE;

 

[Darken99]

Thanks

 

[112275]

Is there a way to make it go to model space then zoom then save?

 

[CalvFR]

create a new vba project ...

double click "thisdrawing" on the left tree.

a window will be opened.

then search for the "AcadDocument_BeginSave" method

add this in the begin save code

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
ThisDrawing.SendCommand "^^Ctm 1 "
ThisDrawing.SendCommand "^^Cz e "
End Sub

 

[cfee]

ipsieferts' post is the key.
add "ms_" where the "underscore" is a "space (or semicolon-";" will do) just after the "^c^c" combo. You don't need any visual basic scripts or such. 3 characters added to the beginning if the qsave script in ipsiefert's and you're done.

 

[112275]

THANKS GUYS