以前、スクリプトでシンボル貼り付けで投稿した者です。
Program SYM;
var
X, Y, ANGLE : double;
N : STRING;
Begin
While True do
Begin
AddLabel(20, 20, 80, 13, 'X');
AddLabel(20, 50, 80, 13, 'Y');
AddLabel(20, 80, 80, 13, '角度(A)');
AddLabel(20, 110, 80, 13, 'シンボル名(N)');
AddEdit(1, 100, 20, 50, 21, '');
AddEdit(2, 100, 50, 50, 21, '');
AddEdit(3, 100, 80, 50, 21, '0');
AddEdit(4, 100, 110, 50, 21, '');
If ShowDlg(210, 180,'シンボル') <> True Then
Exit;
begin
X := StrToFloat(GetDlgText(1));
Y := StrToFloat(GetDlgText(2));
ANGLE := StrToFloat(GetDlgText(3));
N := GetDlgText(4)+'.NS7';
Symbol(X, Y, ANGLE, 0, N );
end;
end;
end.
管理人さまの回答を参考に上の文で落ち着いたのですが、
ローカル座標をONにしても、貼り付ける位置が原点からに
なってしまいます。
このスクリプトのやり方でローカル座標での
張り付け方法はありますか？