はじめまして
スクリプトでシンボル貼り付けを行いたいと思い、
皆様の作られたスクリプトをヒントに自分で作ってみましたが
どうにもこうにも小卒並みの頭ではわかりません。
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に入れた文字(シンボル名)をどうやれば
使えるのでしょうか。教えてください。
宜しくお願いします。