nyistjz 发表于 2018-12-16 20:45:17

优化菜单命令

本帖最后由 nyistjz 于 2018-12-16 23:57 编辑

我相实现如下效果：输入命令“uuu”，
如果有“C2E”这个命令，就直接执行即可；
如果没有“C2E”这个命令，就先加载"UserDataCache\\FSTL\\Program\\TableOut\\C2E.vlx"，再执行“C2E”命令。

这个功能之前看到过，是在菜单中实现的，现在找不到了，还请高人指点，谢谢！

东升铮 发表于 2018-12-16 22:34:58

这么麻烦的？
把程序放入可搜索路径内或在下面写入创建可搜索路径

(defun C:TT()
   (load "C2E.vlx") (C:TT) )

nyistjz 发表于 2018-12-16 23:58:26

东升铮 发表于 2018-12-16 22:34
这么麻烦的？
把程序放入可搜索路径内或在下面写入创建可搜索路径



您这个办法其实不是我想要的效果，我主要是不想重复加载文件，且输入的命令和实际执行的命令不一样 。

东升铮 发表于 2018-12-17 05:52:35

后面的执行命令是可改的！大型的编码工作我都喜欢这样写！
(defun C:TT() ；；定义启动命令
   (load "C2E.vlx")
(C:TT)
)；；后执行命令VLX内部命令！

669423907 发表于 2018-12-17 08:05:37

;判断命令是否存在 ZZXXQQ 2013-10-13 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107967
(defun c:dxff()
(if (= (type c:dxfff) 'SUBR) (c:dxfff)(progn (load "提取对象组码dxfff.lsp")(c:dxfff)) ) )

nyistjz 发表于 2018-12-17 10:42:47

669423907 发表于 2018-12-17 08:05
;判断命令是否存在 ZZXXQQ 2013-10-13 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107967
(defun...

是这个意思，感谢您！
页: [1]
查看完整版本: 优化菜单命令