Plan View to Current UCS without zooming

[Barth Bradley]

What I am looking for is a way to change the Plan View to Current UCS WITHOUT automatically zooming to extents. In other words, I would like this operation to behave like a "Rotate>All>...";an operation that is accomplished without affecting the Zoomfactor.

Anyone have a customization that will do this? I would appreciate hearing from you.

Thanks.

 

[Barth Bradley]

Nevermind. I just discovered EXPLAN. A wonderful command! Didn't have this in 2000. Alone worth the upgrade, at least in my world.

Happy New Years!

 

[Paul Turvill]

If you're dealing only with UCS rotations about the Z axis, the following uses a lot less code than EXPLAN, and works a lot less user intervention:

(defun CLANX (/ c h)
(setq c (getvar "viewctr")
h (getvar "viewsize")
)
(command "_.plan" "" "_.zoom" "_c" c h)
(princ)
)

I was hesitant to post this earlier, because you asked for a method that didn't zoom to extents; this, just like the Express Tool EXPLAN, uses (command "_.plan" ...), which *does* zoom extents, albeit only temporarily.
___

 

[Davmt]

Is this a lisp routine and if so, how do I use it?

Thanks,
David

 

[Paul Turvill]

Yes, it's LISP. Copy and paste the contents to a file called (for example) PLANX.LSP in your AutoCAD support path. Then load it with Appload or (load "planx") from the command line; then you can invoke by typing PLANX at the
Command: prompt. You can find more than you'll ever want to know about LISP by pressing F1 and browsing to the Customization Guide.
___

 

[Davmt]

Thanks, I appreciate it.