寸法変倍
をテンプレートにして作成
[
ホーム
|
一覧
|
検索
|
最終更新
|
ヘルプ
] [
新規
]
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:
3
開始行:
**寸法変倍 [#e2b9b637]
横寸法変倍
PROCEDURE Propwheel;
{ Version 4J 1992 A&A Co.,Ltd. }
VAR
H : Handle;
Existingm,Desiredm,Percentage : REAL;
Answer,FAnswer, msg: String;
BEGIN
H := FSActLayer;
IF H <> NIL THEN
BEGIN
Existingm := RealDialog ('現在の横の寸法を入れて下さい:...
Desiredm := RealDialog ('希望の横の寸法を入れて下さい:'...
Percentage := (Desiredm/Existingm);
Answer := Num2str(9,Percentage); {this returns 9 decim...
FAnswer := StrDialog('この倍率でよろしいですか:',Answer);
IF YNDialog('選択されている図形を、拡大又は縮小しますか...
Scale(Percentage,Percentage);
END
ELSE AlrtDialog('図形を選択して下さい。');
End;
RUN(Propwheel);
縦寸法変倍
PROCEDURE Propwheel;
{ Version 4J 1992 A&A Co.,Ltd. }
VAR
H : Handle;
Existingm,Desiredm,Percentage : REAL;
Answer,FAnswer, msg: String;
BEGIN
H := FSActLayer;
IF H <> NIL THEN
BEGIN
Existingm := RealDialog ('現在の縦の寸法を入れて下さい...
Desiredm := RealDialog ('希望の縦の寸法を入れて下さい:...
Percentage := (Desiredm/Existingm);
Answer := Num2str(9,Percentage); {this returns 9 deci...
FAnswer := StrDialog('この倍率でよろしいですか:',Answe...
IF YNDialog('選択されている図形を、拡大又は縮小します...
Scale(Percentage,Percentage);
END
ELSE AlrtDialog('図形を選択して下さい。');
End;
RUN(Propwheel);
終了行:
**寸法変倍 [#e2b9b637]
横寸法変倍
PROCEDURE Propwheel;
{ Version 4J 1992 A&A Co.,Ltd. }
VAR
H : Handle;
Existingm,Desiredm,Percentage : REAL;
Answer,FAnswer, msg: String;
BEGIN
H := FSActLayer;
IF H <> NIL THEN
BEGIN
Existingm := RealDialog ('現在の横の寸法を入れて下さい:...
Desiredm := RealDialog ('希望の横の寸法を入れて下さい:'...
Percentage := (Desiredm/Existingm);
Answer := Num2str(9,Percentage); {this returns 9 decim...
FAnswer := StrDialog('この倍率でよろしいですか:',Answer);
IF YNDialog('選択されている図形を、拡大又は縮小しますか...
Scale(Percentage,Percentage);
END
ELSE AlrtDialog('図形を選択して下さい。');
End;
RUN(Propwheel);
縦寸法変倍
PROCEDURE Propwheel;
{ Version 4J 1992 A&A Co.,Ltd. }
VAR
H : Handle;
Existingm,Desiredm,Percentage : REAL;
Answer,FAnswer, msg: String;
BEGIN
H := FSActLayer;
IF H <> NIL THEN
BEGIN
Existingm := RealDialog ('現在の縦の寸法を入れて下さい...
Desiredm := RealDialog ('希望の縦の寸法を入れて下さい:...
Percentage := (Desiredm/Existingm);
Answer := Num2str(9,Percentage); {this returns 9 deci...
FAnswer := StrDialog('この倍率でよろしいですか:',Answe...
IF YNDialog('選択されている図形を、拡大又は縮小します...
Scale(Percentage,Percentage);
END
ELSE AlrtDialog('図形を選択して下さい。');
End;
RUN(Propwheel);
ページ名: