ΔxΔy
をテンプレートにして作成
[
ホーム
|
一覧
|
検索
|
最終更新
|
ヘルプ
] [
新規
]
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
開始行:
**距離表示 [#rbab14ca]
2点間の距離を表示。x距離、y距離、長さ
|BGCOLOR(white):250|BGCOLOR(white):400|c
|Procedure GetDxyl;||
|VAR||
|X1,Y1,X2,Y2,DX,DY,DL: REAL;||
|DVal,DVal1,DVal2,DVal3: STRING;||
|BEGIN||
|GetLine(X1,Y1,X2, Y2);|マウスで2点を指示されるまで待機し...
|DX:=(X2-X1);||
|DY:=(Y2-Y1);||
|DL:=Distance(X1,Y1,X2,Y2);||
|DVal1:=Num2Str(2,DX);||
|DVal2:=Num2Str(2,DY);||
|DVal3:=Num2Str(2,DL);||
|DVal:=Concat('dX : ',DVal1,' dY: ',DVal2,' dL: ',DVa...
|Message(DVal);|メッセージウインドウに文字列を表示します。|
|END;||
|Run(GetDxyl);||
**プログラム [#i3776378]
Procedure GetDxy;
VAR
X1,Y1,X2,Y2,DX,DY,DL: REAL;
DVal,DVal1,DVal2,DVal3: STRING;
BEGIN
GetLine(X1,Y1,X2, Y2);
DX:=(X2-X1);
DY:=(Y2-Y1);
DL:=Distance(X1,Y1,X2,Y2);
DVal1:=Num2Str(2,DX);
DVal2:=Num2Str(2,DY);
DVal3:=Num2Str(2,DL);
DVal:=Concat('dX : ',DVal1,' dY: ',DVal2,' dL: ',DV...
Message(DVal);
END;
Run(GetDxy);
終了行:
**距離表示 [#rbab14ca]
2点間の距離を表示。x距離、y距離、長さ
|BGCOLOR(white):250|BGCOLOR(white):400|c
|Procedure GetDxyl;||
|VAR||
|X1,Y1,X2,Y2,DX,DY,DL: REAL;||
|DVal,DVal1,DVal2,DVal3: STRING;||
|BEGIN||
|GetLine(X1,Y1,X2, Y2);|マウスで2点を指示されるまで待機し...
|DX:=(X2-X1);||
|DY:=(Y2-Y1);||
|DL:=Distance(X1,Y1,X2,Y2);||
|DVal1:=Num2Str(2,DX);||
|DVal2:=Num2Str(2,DY);||
|DVal3:=Num2Str(2,DL);||
|DVal:=Concat('dX : ',DVal1,' dY: ',DVal2,' dL: ',DVa...
|Message(DVal);|メッセージウインドウに文字列を表示します。|
|END;||
|Run(GetDxyl);||
**プログラム [#i3776378]
Procedure GetDxy;
VAR
X1,Y1,X2,Y2,DX,DY,DL: REAL;
DVal,DVal1,DVal2,DVal3: STRING;
BEGIN
GetLine(X1,Y1,X2, Y2);
DX:=(X2-X1);
DY:=(Y2-Y1);
DL:=Distance(X1,Y1,X2,Y2);
DVal1:=Num2Str(2,DX);
DVal2:=Num2Str(2,DY);
DVal3:=Num2Str(2,DL);
DVal:=Concat('dX : ',DVal1,' dY: ',DVal2,' dL: ',DV...
Message(DVal);
END;
Run(GetDxy);
ページ名: