新手...多个命令合并无效

NIGOO

2. ;-----------------------------------------------------1
   
3. (defun c:q1 ()
   
4. (setvar "TILEMODE" (1- (getvar "TILEMODE")))
   
5. (princ)
   
6. )
   
7. ;-----------------------------------------------------2      CSS自动切换布局保存
   
8. (Defun c:css nil
   
9. (setvar 'tilemode (nth (getvar 'tilemode) '(0 0)))
   
10. (princ)
    
11.   ((= 1 (Getvar 'DWGTITLED))
    
12.     (COMMAND "ZOOM" "E")
    
13.     (COMMAND "ZOOM" "0.8X")
    
14.     (COMMAND "PURGE" "ALL" "" "N")
    
15.     (vl-cmdf "zoom" "e")
    
16.     (vl-cmdf "QSAVE")
    
17.     (vl-cmdf "close" "n")
    
18.   )
    
19.   (princ)
    
20. )
    
21. ;-----------------------------------------------------3
    
22. (Defun c:sss nil
    
23. (setvar 'tilemode (nth (getvar 'tilemode) '(0 0)))
    
24.     (COMMAND "PURGE" "ALL" "" "N")
    
25.     (vl-cmdf "QSAVE")
    
26.   )
    
27. (princ)
    
28. )
    
29. ;-----------------------------------------------------4
    
30. (Defun c:cxx nil
    
31.     (vl-cmdf "close" "Y")
    
32.   )
    
33.   (princ)
    
34. )
    
35. 
    
36. 
    

;-----------------------------------------------------1<br /> (defun c:q1 ()<br /> (setvar "TILEMODE" (1- (getvar "TILEMODE")))<br /> (princ)<br /> )<br /> ;-----------------------------------------------------2      CSS自动切换布局保存<br /> (Defun c:css nil<br /> (setvar 'tilemode (nth (getvar 'tilemode) '(0 0)))<br /> (princ)<br />   ((= 1 (Getvar 'DWGTITLED))<br />     (COMMAND "ZOOM" "E")<br />     (COMMAND "ZOOM" "0.8X")<br />     (COMMAND "PURGE" "ALL" "" "N")<br />     (vl-cmdf "zoom" "e")<br />     (vl-cmdf "QSAVE")<br />     (vl-cmdf "close" "n")<br />   )<br />   (princ)<br /> )<br /> ;-----------------------------------------------------3<br /> (Defun c:sss nil<br /> (setvar 'tilemode (nth (getvar 'tilemode) '(0 0)))<br />     (COMMAND "PURGE" "ALL" "" "N")<br />     (vl-cmdf "QSAVE")<br />   )<br /> (princ)<br /> )<br /> ;-----------------------------------------------------4<br /> (Defun c:cxx nil<br />     (vl-cmdf "close" "Y")<br />   )<br />   (princ)<br /> )<br /> <br /> <br />

为什么最后一行代码


(Defun c:cxx nil
    (vl-cmdf "close" "Y")
  )
  (princ)
)


单独另存一个文件就能运行，多个命令合并就无效呢？

xiaolv

这就是一条关闭CAD的命令吧。
合并命令后得有一个保存命令才能关闭CAD.
同是新手！个人见解

自贡黄明儒

括号不匹配，

vectra

我猜测，CLOSE命令前的一条命令QSAVE 如果还在执行过程中，CLOSE会失败。