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