Mode:
Duration:
1
2
3
4
5
6
7
(defun c:RotateObjects ()
(setq ss (ssget))
(setq base (getpoint "\nBase point: "))
(setq angle (getangle base "\nRotation angle: "))
(command "_.ROTATE" ss "" base angle)
(princ)
)Coding works best on desktop or with an external keyboard.