GetPt の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• GetPt へ行く。
• GetPt の差分を削除

**GetPt　　　　　　　User Interactive [#w1bf3318]
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:
| p 	|Returns coordinates of mouse click.| 	座標|

Example:

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