求助，如何用一个命令执行多个命令的组合

空谷藏

如题，例如我要达到以下的效果，1.清理图形。2保存退出。这就需要两个命令。总之就是类似的过程，能不能用一个命令搞定。
(defun c:dwg()
(command "cwjt" "dwg" "close")

这样为什么不行

fcut2004

(DEFUN C:ZA () (COMMAND "purge" "a" "*" "n" "ZOOM" "E" "AUDIT" "Y" "qsave") (PRINC))
;清除+全部显示+修复+保存
参照这个，试试

空谷藏

fcut2004 发表于 2012-11-3 19:02
(DEFUN C:ZA () (COMMAND "purge" "a" "*" "n" "ZOOM" "E" "AUDIT" "Y" "qsave") (PRINC))
;清除+全部显示 ...

只能调用cad自带的命令吗，其他的不行吗。

langjs

其他的不行

空谷藏

langjs 发表于 2012-11-3 20:00
其他的不行

怪不得我试了好久都不行。。。谢了

gaics

(defun c:dwg()
......
(c:other1)
(c:other2)
......
)

zhangcan0515

谢谢分享，已经学习到了

78946299

谢谢分享，已经学习到了

jh3030912

gaics 发表于 2012-11-3 23:33
(defun c:dwg()
......
(c:other1)

这个方法不错

金鹅起飞

fcut2004 发表于 2012-11-3 19:02
(DEFUN C:ZA () (COMMAND "purge" "a" "*" "n" "ZOOM" "E" "AUDIT" "Y" "qsave") (PRINC))
;清除+全部显示 ...

我试了这个，不能清除，不知是什么原因