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)
|