Name: getangle
Syntax:(getangle
[pt] [prompt])
Description:Prompts the user to select two points to specify an angle and is affected by AngDir and AngBase system variables.
Example(s):(getangle)
0.54539
(setq PT1 (getpoint "\nEnter point: "))
(getangle PT1 "\nPick Second point: ")
0.54539