Save and Close Macro

[mviall681618]

We currently have a button that will do a zoom extents and then save and close a drawing. We just have the following macro under the button:

^C^CZOOM;E;_qsave;CLOSE;

I would like to add in an extra step that switches the layout back to model space and then do a zoom extents, save and close. I tried the following macro:

^C^CLAYOUT; S; MODEL; ZOOM;E;_qsave;CLOSE;

But that requires user input instead of doing everything automatically.

Any direction would be greatly appreciated.

Thank you,
Mike

[Tharwat]

Maybe ...

tilemode;1

[Tom Beauford]

Unless the viewport is locked doing a zoom extents while in one and saving will have undesirable results.

I'd recommend switching to Paper Space if in a viewport. Then if in Paper Space zoom extents before switching to Model tab. Finish with zoom Extents save and close. This macro should do the trick:

$M=$(if,$(eq,$(getvar,tilemode),0),$(if,$(eq,$(getvar,cvport),1),Z;E,PS;Z;E));tilemode;1;Z;E;_qsave;CLOSE

[mviall681618]

Thank you for the replies! Since sometimes our viewports end up getting unlocked for one reason of another, I ended up going Tom's macro and it works great, thank you!

[mviall681618]

Tom,

The macro you provided works perfectly when a drawings is in paper space, but do you know how to edit the macro so that when the drawing is in model space it just does a zoom, extents, save and close and does not require user input?

Thank you,
Mike

[Tom Beauford]

Tom,

The macro you provided works perfectly when a drawings is in paper space, but do you know how to edit the macro so that when the drawing is in model space it just does a zoom, extents, save and close and does not require user input?

Thank you,
Mike

Sorry, tested for each circumstance this time try it now:

$M=$(if,$(eq,$(getvar,tilemode),0),$(if,$(eq,$(getvar,cvport),1),Z;E;,PS;Z;E;))tilemode;1;Z;E;_qsave;CLOSE

[Tom Beauford]

Updated to bring up saveas dialog box for untitled drawings:

$M=$(if,$(eq,$(getvar,dwgtitled),0),saveas,$(if,$(eq,$(getvar,tilemode),0),$(if,$(eq,$(getvar,cvport),1),Z;E;,PS;Z;E;))tilemode;1;Z;E;_qsave;CLOSE)

It was saving them as close.dwg

[mviall681618]

Thank you so much, this will be a big time saver and also save a lot of confusion, especially with new hires!