社区 › AutoLISP/Visual LISP 编程技术 › 新手...多个命令合并无效

NIGOO 发表于 2014-11-9 00:26:40

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

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


为什么最后一行代码


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


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

xiaolv 发表于 2014-11-9 01:28:22

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

自贡黄明儒 发表于 2014-11-9 13:03:21

括号不匹配，

vectra 发表于 2014-11-9 16:47:18

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

查看完整版本: 新手...多个命令合并无效