Name: getpoint

Syntax:
(getpoint [pt] [prompt])

Description:
Allows the user to select a single point and also to create a point in reference to the total input from the user.

Example(s):
(setq pt1 (getpoint \nSelect point: ")) (getpoint pt1 "\nSelect other point: ")
(15.75 25.985 0.0)