VS:GetPtL/ja

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

Description

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

PROCEDURE GetPtL(
         p1       :REAL;
         VAR p2   :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