キーボードより５０と入力して５０ｍｍの直線を
引きたいのですが、操作方法教えてください。

> キーボードより５０と入力して５０ｍｍの直線を
> 引きたいのですが、操作方法教えてください。

コマンド「2点線」であれば、始点座標と終点座標を入力して下さい。
例
0,0
50,0

で長さ50の線が引けますが、長さを指定しての作図は出来ません。
入力ボックスでは四則演算も出来ますので、応用は出来ると思います。

> > キーボードより５０と入力して５０ｍｍの直線を
> > 引きたいのですが、操作方法教えてください。
>
> コマンド「2点線」であれば、始点座標と終点座標を入力して下さい。
> 例
> 0,0
> 50,0
>
> で長さ50の線が引けますが、長さを指定しての作図は出来ません。
> 入力ボックスでは四則演算も出来ますので、応用は出来ると思います。

長さを決めて直線を引く場合は、座標からの計算になるのでしょうか？

> > で長さ50の線が引けますが、長さを指定しての作図は出来ません。
________________________________________*********************************

> 長さを決めて直線を引く場合は、座標からの計算になるのでしょうか？

上記に書いています通り、長さを指定しての直線はかけません。

しかしながら、ＣＡＤ作図においてそのような作図は希であり、適当に線を書いてから、
伸縮（線分調整）・部分除去（トリム）を用いて整形するのが一般的な書き方です。
また、スクリプトを用いれば「長さ指定直線」も当然可能ですが、今のところ需要がありません。

。
________________________________________*********************************
>
> > 長さを決めて直線を引く場合は、座標からの計算になるのでしょうか？
>
> 上記に書いています通り、長さを指定しての直線はかけません。
>
> しかしながら、ＣＡＤ作図においてそのような作図は希であり、適当に線を書いてから、
> 伸縮（線分調整）・部分除去（トリム）を用いて整形するのが一般的な書き方です。
> また、スクリプトを用いれば「長さ指定直線」も当然可能ですが、今のところ需要がありません。


了解しました。

スクリプト投稿コーナーに貼り付けていますので、使ってみて下さい。
記事番号２７６です。

内容はと言うと

// 長さ指定の直線

var
X, Y, A, L : double;

Begin
While True do begin // 永久ループ
message('開始点の座標を入力してください');
if GetPos(X, Y) then Begin
message('角度,長さ を入力してください');
if GetPos(A, L) then Begin
Line(X, Y, X+L*Cos(A), Y+L*Sin(A));
End;
End;
End;
End.

たった、これだけのプログラムで作図できるのです。
あまりマイナーな機能は増やしたくないので、標準で無い機能はスクリプトでカバーします。
それが鍋ＣＡＤなんです。