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

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

　+'.ns7'

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