はじめまして
スクリプトでシンボル貼り付けを行いたいと思い、
皆様の作られたスクリプトをヒントに自分で作ってみましたが
どうにもこうにも小卒並みの頭ではわかりません。

Program SYM;//シンボル貼り付け

var
X, Y, ANGLE : double;
N : STRING;

Begin

AddLabel(140, 20, 80, 13, 'X');
AddLabel(140, 50, 80, 13, 'Y');
AddLabel(140, 80, 80, 13, '角度(A)');
AddLabel(140, 110, 80, 13, 'シンボル名(N)');
AddEdit(1, 230, 20, 50, 21, '');
AddEdit(2, 230, 50, 50, 21, '');
AddEdit(3, 230, 80, 50, 21, '');
AddEdit(4, 230, 110, 50, 21, '');

If ShowDlg(300, 180,'シンボル') <> True Then
Exit;


begin
X := StrToFloat(GetDlgText(1));
Y := StrToFloat(GetDlgText(2));
ANGLE := StrToFloat(GetDlgText(3));

N :=(4); 　　　　　　　　　　　　　


Symbol(X, Y, ANGLE, 1.0, N);　


end;
end.


　Nに入れた文字（シンボル名）をどうやれば
　使えるのでしょうか。教えてください。

　宜しくお願いします。

早速のご回答、ありがとうございました。
直して頂いたスクリプトを使ってみましたが
C:\NTCAD\SYMBOL\M8
となってしまうので

N:=GetDlgText(4);の部分、(4)のあとに

　+'.ns7'

をつけたら上手く動きました。
的確なヒントありがとうございました。
とても勉強になりました。難しいものは作れませんが
簡単なものでも、少しずつ挑戦していきたいと思います。