社区 › AutoLISP/Visual LISP 编程技术 › 求助，如何用一个命令执行多个命令的组合

空谷藏 发表于 2012-11-3 18:11:52

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

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

这样为什么不行

fcut2004 发表于 2012-11-3 19:02:11

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

空谷藏 发表于 2012-11-3 19:27:08

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

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

langjs 发表于 2012-11-3 20:00:02

其他的不行

空谷藏 发表于 2012-11-3 20:13:23

langjs 发表于 2012-11-3 20:00 static/image/common/back.gif
其他的不行

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

gaics 发表于 2012-11-3 23:33:54

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

zhangcan0515 发表于 2020-8-30 09:47:35

谢谢分享，已经学习到了

78946299 发表于 2023-5-16 23:27:36

谢谢分享，已经学习到了

jh3030912 发表于 2023-9-17 16:57:21

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


这个方法不错

金鹅起飞 发表于 2023-12-1 17:33:44

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

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

查看完整版本: 求助，如何用一个命令执行多个命令的组合