getcorner

(getcorner base-point [prompt])

Asks for the opposite corner of a rectangle starting at the base point.

(getcorner p "\nOpposite corner: ")