面積スタンプ
をテンプレートにして作成
[
ホーム
|
一覧
|
検索
|
最終更新
|
ヘルプ
] [
新規
]
VWRR
・
WIKIBOX
建築mome
・
メーカー
最新の40件
2018-07-17
VectorScript
2013-05-25
例題の解説
2011-12-09
ΔxΔy
GetLine
Distance
Num2Str
2011-12-08
寸法変倍
MenuBar
日付スタンプ
Date
面積スタンプ
2011-12-07
HArea
Num2StrF
TextOrigin
GetPt
FSActLayer
FActLayer
Concat
BeginText
EndText
図面の中を検索
ReDraw
MoveObjs
GetKeyDown
ClrMessage
Message
Y方向複製
2011-12-06
キー入力
ダイアログ
2011-12-04
図形の整列
2011-11-26
属性を設定する
Locus
変数
Oval
識別子
定数
基本型
言語仕様
制御命令
IF
total:
0
today:
0
yesterday:
0
now:
1
開始行:
**面積スタンプ [#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;|文字図形の作成を開始します。&br;BeginTextとEn...
|Concat(Num2StrF(HArea(polyH)/1000000),&br;' ㎡≒',Num2Str...
|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(...
EndText;
End;
End;
RUN(StampArea);
終了行:
**面積スタンプ [#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;|文字図形の作成を開始します。&br;BeginTextとEn...
|Concat(Num2StrF(HArea(polyH)/1000000),&br;' ㎡≒',Num2Str...
|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(...
EndText;
End;
End;
RUN(StampArea);
ページ名: