; aRotate rotates a selection set by vertex and sweep points or vertex and degrees.
; It prompts for two points, the first of which is the vertex of the rotation angle.
; The second input is either the angle in degrees or the start point of the sweep.
; You can always enter a number instead of a point in response to (getpoint).
; Normally the number's interpreted as distance from origin toward cursor.
; But with (initget 128) = arbitrary input it's treated as a string.
; Then convert that string to a real number with (atof).
; If p2 is a number, i.e. (if (= 'str (type p2)), it's passed to the Rotate command.
; If not, point p2 is passed to the Rotate command, which prompts for a third point.
(defun c:aRotate
(/ ss1 p1 p2 n1
) (setq p2
(getpoint p1
"\nPick start point of sweep or Enter angle in degrees: ")) )
)