面積スタンプ の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 面積スタンプ へ行く。
• 面積スタンプ の差分を削除

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