GetPt

GetPt　　　　　　　User Interactive

Declaration:
　PROCEDURE GetPt　(　VAR　pX　:REAL;
　　　　　　　　　　　　VAR　pY　:REAL
　　　　　　　　　　　) ;

Description:

Procedure GetPt switches the cursor to selection mode and allows the 
user to select a point in a Vectorworks document. 
This cannot be used if there is a function anywhere in the calling chain.

説明

マウスがクリックされるまで待機し、クリックされた点の座標を返します。

Parameters:

Example:

       PROCEDURE Example;
       VAR
       	pt :POINT;
       BEGIN
       	GetPt(pt.x, pt.y);
       	Message(pt);
       END;
       RUN(Example);