Rotate 90 in one step??

[archkre]

Is there any Autolisp or script to make rotate selected entity or entities 90 degrees around its center?

Thanks a lot

[MrCAD]

Rotating around the center can be an issue..since there could be plenty of objects or only 1 line..the lisp coding would be different for something like that..but if you can manually select the center then the code is pretty simple

 

(defun C:r90 ()

(setq sel (ssget))

(setq cent (getpoint "\nClick the Center point :"))

(command "rotate" sel "" cent "90")

)

 

With this you can select multiple objects and a manual center..the command is r90

 

hope this helps

 

Meher

http://www.mr-cad.com