面積スタンプ

Procedure StampArea;
VAR
x,y:REAL;
polyH:HANDLE;
Begin
polyH:=FSActLayer;	アクティブなレイヤ上で選択されている最上位の図形のハンドルを返します。
IF polyH<>NIL THEN
Begin
GetPt(x,y);	マウスがクリックされるまで待機し、クリックされた点の座標を返します。
TextOrigin(x,y);	作成する文字図形の左上の座標を設定します。
BeginText;	文字図形の作成を開始します。 BeginTextとEndTextの間に文字列を設定します。
Concat(Num2StrF(HArea(polyH)/1000000), ' ㎡≒',Num2StrF(HArea(polyH)/1000000*0.3025),' T')	「Concat」指定したすべての文字列を連結します。「Num2StrF」実数を文字列に変換します。「HArea」ハンドルで指定した図形の面積を返します。
EndText;	文字図形の作成を終了します。
End;
End;
RUN(StampArea);

Procedure StampArea;
VAR
	x,y:REAL;
	polyH:HANDLE;
Begin
	polyH:=FSActLayer;
	IF polyH<>NIL THEN
	Begin
		GetPt(x,y);
		TextOrigin(x,y);
		BeginText;
			Concat(Num2StrF(HArea(polyH)/1000000),' ㎡≒',Num2StrF(HArea(polyH)/1000000*0.3025),' T')
		EndText;
	End;
End;
RUN(StampArea);

面積スタンプ

最新の40件

面積スタンプ