ljfzx 发表于 2019-1-22 16:38:09

669423907 发表于 2019-1-21 20:02
(defun hss()
(setq bhzg nil)



不知道你这个命令是多少

ljfzx 发表于 2019-1-22 16:39:24

baitang36 发表于 2019-1-21 16:29
为啥要按空格呢。直接弄成一个文件，变成一个命令不好？

两个命令是不同的功能，一个是开一个是关，不是连续执行的关系

baitang36 发表于 2019-1-22 16:45:22

ljfzx 发表于 2019-1-22 16:39
两个命令是不同的功能，一个是开一个是关，不是连续执行的关系

那就加个判断，比如输入回车执行第一个，输入别的执行第二个

479274135 发表于 2019-1-23 19:52:12

ljfzx 发表于 2019-1-22 16:39
两个命令是不同的功能，一个是开一个是关，不是连续执行的关系

(defun c:tt ()
(if (= 4_tt 0)
    (progn
      (c:程序1)
      (setq 4_tt 1)
    )
    (progn
      (c:程序2)
      (setq 4_tt 0)
    )
)
(princ)
)循环两个命令的话可以这样


ljfzx 发表于 2019-1-25 09:19:33

479274135 发表于 2019-1-23 19:52
(defun c:tt ()
(if (= 4_tt 0)
    (progn


用了你这个程序有一个小问题，就是第一次输入命令的时候是没有反应的，第二次输入才可以执行程序1,再输入执行程序2

ljfzx 发表于 2019-1-25 09:21:12

479274135 发表于 2019-1-23 19:52
(defun c:tt ()
(if (= 4_tt 0)
    (progn


把两个命令反过来就可以了，非常感谢

zhangcan0515 发表于 2020-10-9 10:33:52

学习一下日后可能要用到

sunwei2009 发表于 2020-10-12 14:16:04

顶一下，，谢谢楼主的分享
页: 1 [2]
查看完整版本: 如何合并两个LISP命令？