AutoCAD LISP创建

我想创建一个LISP程序，用新模板更改完整的模板，用于批处理文件。我创建了一个脚本，但它显示了一个错误：

（setq ss（ssget“_X”）（（0.“插入”）（2.“旧块名称”））
（如果为ss（命令“\擦除“ss”））
_净化
_B
“旧块名”
_N
_QSAVE
（命令“\u insert”C:\\Users\\1011848\\Desktop\\new block.dwg“0,0”1“1”0）
_QSAVE

及

（defun c:make_脚本（/prefix file_scr）
（setq）
前缀（strcat（vl文件名目录（GetField“为批处理目录”“dwg”16选择文件图形”）“\\”）
文件\u scr（打开（strcat前缀“batch\u dir.scr”）“w”）
)
（foreach dwg（vl目录文件前缀“*.dwg”1）
（写入行“\ u.open”文件\u scr）
（写入行（strcat“\”前缀dwg“\”）文件\u scr）
开始你的命令
（写入行“（加载\“br.lsp\”）文件\u scr）
你的命令结束了
（写入行“qsave”文件\u scr）
（写入行“\ u.close”文件\u scr）
)
（关闭文件\u scr）
（princ（strcat“\n您可以使用脚本：“prefix”hope.scr”））
（prin1）
)

首先：请将代码格式化为更友好的格式。这很难理解。然后：你得到了什么错误？嗨，李，这是我第一次做lisp代码，我提到的代码是从其他论坛复制的，错误显示是加载lisp后，块将删除并显示“无效评论”。你能帮我写代码一起修改批量图纸的模板吗。