GetRect
Prompts the user to click 2 points on the active plan to define a rectangle, then returns the coordinates in p1 and p2.
...
Returns 1 if the function is successful or 0 if the user cancels.
Syntax:
Procedure: GetRect(Var p1x: double; Var p1y: double; Var p2x: double; Var p2y: double; Hint: String): Integer;
...