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

内容はと言うと

// 長さ指定の直線

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.

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