> すみません、初心者で勉強不足のためスプリクトについてはよく理解していません。
> 当方で作ってみては？という事でしょうか？

いいえ、当方で作った物を添付しますので使ってみて下さい。

鍋CAD７スクリプトの使い方は↓にあります。
http://www.nabetech.com/ntcad/library/NTCAD7SCRIPT.pdf

// ScodeKill 2015/02/07 NabeTech

Program ScodeKill;
var
i, leng : integer;
s : string;

begin // エディタにNCデータを準備しておいて下さい。
leng := EditorLength(); // エディタの行数を取得する
for i:=1 to leng do
Begin
s := EditorRead(i);
if Length(s) < 1 then continue;
if Pos('%', s) > 0 then continue;
if Pos('(', s) > 0 then continue;
if Pos('/', s) > 0 then continue;

if Pos('S', s) > 0 then
EditorWrite(i, '/'+s); // Sがある場合は先頭に/を付ける
End;
End.