Name: getcorner

Syntax:
(getcorner pt [prompt])

Description:
Allows the user to drag a rectangular window to the opposite corner off the point that is provided.

Example(s):
(setq pt1 (getpoint \nSelect point: ")) (getcorner pt1 "\nOpposite corner: ")
(54.2347 12.2985 0.0)