VS:GetPtL/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

指定した始点から直線が描かれ、マウスで終点が指示されるまで待機します。

PROCEDURE GetPtL(
         p1X,p1Y       :REAL;
         VAR p2X,p2Y   :REAL);

def vs.GetPtL(p1):
    return p2

Parameters

p1		REAL		始点の座標
p2		REAL		終点の座標

Example

PROCEDURE Example;
VAR
	pt1, pt2 :VECTOR;
BEGIN
	GetPt(pt1.x, pt1.y);
	GetPtL(pt1.x, pt1.y, pt2.x, pt2.y);
	MoveTo(pt1.x, pt1.y);
	LineTo(pt2.x, pt2.y);
END;
RUN(Example);

Version

利用可能バージョン: MiniCAD