请问,怎么在lisp中修改命令名?

wyl219 · 发表于 2019-10-14 21:01

类似贱人工具箱的设置方式,是用什么方式实现的呢?

wgij007 · 发表于 2020-2-27 09:14

菜卷鱼发表于 2019-10-15 08:41
(defun c:新命令 nil (c:原命令)(prin1))

这个就很好用呀

菜卷鱼 · 发表于 2019-10-15 08:41

(defun c:新命令 nil (c:原命令)(prin1))

烟盒迷唇 · 发表于 2019-10-15 10:39

就是在原命令外再套新的命令

水吉空 · 发表于 2019-10-15 11:47

我也想知道

wyl219 · 发表于 2019-10-16 17:34

烟盒迷唇发表于 2019-10-15 10:39
就是在原命令外再套新的命令

但是在写程序的时候这个命令名是不确定的,怎么能在运行的时候修改代码呢?

mocheng · 发表于 2019-10-16 20:16

怎么弄啊？？

1291500406 · 发表于 2019-10-16 21:52

本帖最后由 1291500406 于 2019-10-19 16:10 编辑

无评论，回复撤销了

wang_cn10 · 发表于 2019-10-17 09:56

(eval (read (strcat "(defun c:" (命令名) "()(" (自定义函数) "))" )))

wyl219 · 发表于 2019-10-17 10:49

本帖最后由 wyl219 于 2019-10-17 10:56 编辑

wang_cn10 发表于 2019-10-17 09:56
(eval (read (strcat "(defun c:" (命令名) "()(" (自定义函数) "))" )))

解决了,谢谢.
不过有两个小错误,第一个命令名应该是字符串或者格式为字符串的变量.
后面的自定义函数也应该是字符串类型的.否则strcat函数会报错

例如
(eval (read (strcat "(defun c:" "he2" "()((command \"line\")))" ))),即给line命令设置个he2的别名.

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

[提问] 请问,怎么在lisp中修改命令名?

点评