如何合并两个LISP命令？

ljfzx

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

不知道你这个命令是多少

ljfzx

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

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

baitang36

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

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

479274135

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

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

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

ljfzx

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

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

zhangcan0515

学习一下日后可能要用到

sunwei2009

顶一下，，谢谢楼主的分享