【求助】同一命令循环执行两个命令

nyistjz · 发表于 2016-2-29 22:47:35

请教大侠，有哪个朋友能写出一个小程序，可以让我实现这样的一个效果：
执行命令“COST"，运行“TOOLBAR 造价常用工具条 s”；
执行命令“COST”，运行“-toolbar ALL H”；
执行命令“COST"，运行“TOOLBAR 造价常用工具条 s”；
执行命令“COST”，运行“-toolbar ALL H”；

以此类推，执行"COST“命令，在“TOOLBAR 造价常用工具条 s”与“-toolbar ALL H”两个命令间循环运行。
另外，希望写出的命令可以用记事本编辑，谢谢。

xinrstar · 发表于 2016-3-1 08:42:10

命令执行前增加判断，检测全局变量cost_faf的值
(if (= cost_faf 0)
  (progn
运行“TOOLBAR 造价常用工具条 s”
(setq cost_faf 1)
  )
  (progn
运行“-toolbar ALL H”
(setq cost_faf 0)
  )
)

陈进佳 · 发表于 2016-3-1 10:14:42

,,,,,,,,,,,,,,,,,,,,,,楼上正解

nyistjz · 发表于 2016-3-6 22:22:28

xinrstar 发表于 2016-3-1 08:42
命令执行前增加判断，检测全局变量cost_faf的值
(if (= cost_faf 0)
(progn

高人您好，我把你写的这个代码复制进了记事本，保存成了如附件的文件，可是运行“cost”时还不行啊，请您再看一下，是不是我什么操作不对啊，谢谢！

xinrstar · 发表于 2016-3-7 08:09:37

nyistjz 发表于 2016-3-6 22:22
高人您好，我把你写的这个代码复制进了记事本，保存成了如附件的文件，可是运行“cost”时还不行啊，请您 ...

那几行代码不是直接就能用的，只是给你一个方法

nyistjz · 发表于 2016-3-7 12:49:24

xinrstar 发表于 2016-3-7 08:09
那几行代码不是直接就能用的，只是给你一个方法

大侠，我是学建筑的，编程方面的是一点也不懂，您这边能否帮忙搞出个可以运行的程序呢？

xinrstar · 发表于 2016-3-7 17:18:26

本帖最后由 xinrstar 于 2016-3-7 17:19 编辑

(defun c:cost ()
(if (= cost_faf 0)
(progn
(command "-toolbar" "造价常用工具条" "s")
(setq cost_faf 1)
)
(progn
(command "-toolbar" "all" "h")
(setq cost_faf 0)
)
)
)

nyistjz · 发表于 2016-3-7 21:45:41

太感动了，不知道能说什么了，只想说“膜拜"!

zq19890201 · 发表于 2019-8-13 11:48:34

太感谢了正好最近被这个功能难为的不行不行的，膜拜

账号		自动登录	找回密码
密码			注册

[源码] 【求助】同一命令循环执行两个命令

本帖被以下淘专辑推荐:

本帖子中包含更多资源