図形を描く

図形を作図するための手続きにはVectorworksのツールと同じように
さまざまな種類があります。

直線を描く

まず、手続きMoveToを使って直線を描き始める座標(ペン位置)を指定します。
次に手続きLineToを使って直線の終点座標を指定します。
手続き「Line」を使うと相対的な座標で指定できます。
手続きLineTo/Lineで直線を描いた後のペン座標には終点がセットされます。
LineTo/Lineを続けて使えば、連続した直線が描けます。
←　MoveTo　LineToの使い方

PROCEDURE TEST;
BEGIN
		MoveTo(0,0);
		LineTo(50,50);
END;
Run(TEST);

結果は上画像
例題プログラム

PROCEDURE TEST;
BEGIN
		MoveTo(0,0);
		LineTo(50,50);
		LineTo(100,0);
		Line(50,50);
END;
Run(TEST);

上記プログラムの実行結果

多角形を描く

手続きBeginPolyとEndPolyの間の行に手続きAddPointを使って頂点を追加します。
BeginPolyの前に手続きClosePolyを書くと多角形の始点と終点が閉じるようにできます。

例題プログラム

PROCEDURE TEST;
BEGIN
		ClosePoly;
		BeginPoly;
		AddPoint(0,30);
		AddPoint(40,10);
		AddPoint(20,-30);
		AddPoint(-20,-30);
		AddPoint(-40,10);
		EndPoly;
END;
Run(TEST);

上記プログラムの実行結果

円弧を描く

手続き「Arc」を使います。Arcでは6つのパラメータを指定します。
1番目から4番目までのパラメータは円弧に内接する四角形の座標です。
5番目のパラメータは円弧の開始角度です。
最後のパラメータは円弧の角度です。

PROCEDURE TEST;
BEGIN
		Arc(-50,50,50,-50,45,90);
		Arc(-50,50,50,-50,225,90);
END;
Run(TEST);

上記プログラムの実行結果

隅の丸い四角形を描く

手続き「RRect」を使います。
これもパラメータの1〜4番目までは四角形の座標です。
5・6番目のパラメータは隅を丸める円の直径です。

PROCEDURE TEST;
BEGIN
		RRect(-50,60,50,10,20,20);
		RRect(-50,-10,50,-60,30,10);
END;
Run(TEST);

上記プログラムの実行結果

文字を書き入れる

図面に文字を書き入れるには、手続き「TextOrigin」を使って文字を書き入れる座標を指定します。
次に、手続きBeginTextとEndTextの間の行に書き入れる文字をシングルクォーテーション(')で囲んで書きます。

PROCEDURE TEST;
BEGIN
		TextOrigin(0,0);
		BeginText;
		'サンプルテキスト'
		EndText;
END;
Run(TEST);

上記プログラムの実行結果