[求助]：大家给看看问题出在哪

c3a139

(defun c:()
  (setq Tfile (qf_getFolder "选择文件夹:"))
  (setq zktfile (qf_getFolder "指定文件夹:"))
  (if Tfile
　(progn
　(setq bbb(vl-directory-files Tfile))
　(setq bbb(cdr(cdr bbb)))
(setq sm(length bbb))
(setq i 0)
(repeat sm
   (setq mb (nth i bbb))
   (setq TXT(strcat "*" "TXT"))
   (setq txt(strcat "*" "txt"))
   (if (or (wcmatch mb TXT) (wcmatch mb txt))
   (progn
   (setq mb1 (strcat Tfile "\\" mb))
   (zt mb1)
   (setq mb2 (vl-string-right-trim ".txt" mb))
   (setq mb3 (strcat zktfile "\\" mb2))
   (command "qsave" mb3)
   (close)
   (command "_new" "C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\chs\\Template" "")
   )
     )
   (setq i (1+ i))
   )
大家给看看，为什么command后的命令不执行？单独调试为nil

Underway

调试用资料不全 ....

您且先试到此段的叙述句
(command "qsave" mb3)      ; 不同的新旧图状况
(close)                                         ;  ????

zml84

你的函数没有名字啊？！
将第一行换一下试一试：

2. 
   
3. (defun c:()
   
4. ========》》》
   
5. (defun c:test()
   

<br /> (defun c:()<br /> ========》》》<br /> (defun c:test()<br />

c3a139

我正在编一个循环的程序，还没编完，上面的单独调试能过，生成一个图形文件后，另存，关闭后，再生成另一个图形文件前需调用模板，但用command无法调用模板，是怎么回事？

dwg001

还有：
1, ZT子函数？
2,缺少至少3个闭括号。

zml84

LISP函数是有限制的，一般来说，它的生命周期仅存在于加载它的当前图档内。
而楼主的需求则是要跨图档运行，这就需要其它方法来帮助了。
比如：SCR脚本文件。
<br>
另外：楼主对LISP语言特性的认识上还存在误解，例如：
TXT变量名称是不区分大小写的。

c3a139

另外：楼主对LISP语言特性的认识上还存在误解，例如：
TXT变量名称是不区分大小写的。
谢谢!正在学习中
我想知道(command "_new" "C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\chs\\Template" "")为什么不运行

zml84

换上下面这句试一试：

2. 
   
3. ;;;(close);这一句可以删去
   
4. (setvar "SDI" 1)
   
5. (command "_new" "C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\chs\\Template\\acad.dwt")
   

<br /> ;;;(close);这一句可以删去<br /> (setvar "SDI" 1)<br /> (command "_new" "C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\chs\\Template\\acad.dwt")<br />

<br>
你非要使用NEW命令新建图形，其后果是之后的代码是不会被执行的。
<br>
建议可以考虑在一个DWG文件内绘制多个图形，这样更容易后续管理。

c3a139

明白了，谢谢!
但一个文件里放多个图形，文件就太大，若其中一个图形有问题重新生成也麻烦