run the wheel command with reference through a script

[jim78b]

I often have to use the rotate command then select the object then make a reference and then still give back 2 moving points, is there not a script or something that removes the boring operation to press r and make sure to select the reference immediately?

 

[confutatis]

proof questo:

(defun c:rotr (/ crane)
(setq crane)

(if crane)
(progn)
(command "_rotate" crane")
(princ "\nbase point and first corner point: "
(command pauses)
(command (getvar "lastpoint")
(princ "\nsecond corner point: "
(command breaks)
(princ "\nangolo finale: "
(command breaks)
)
)

(princ)
)

 

[jim78b]

thank you so much six and be the best always available and efficient!