面積スタンプ Edit

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')		「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);
リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS