gavvy 发表于 2011-3-1 12:53:53

[讨论]通过文本重定义为命令

如何通过文本重定义为命令

EG:
从TXT文件中读取了 字符串 "APPLE"
或 (SETQ A "APPLE")

(DEFUN A
(PRINT "AA")
)

结果为 输入
(APPLE)
输出 "AA"

caoyin 发表于 2011-3-1 15:57:23

(SETQ A "APPLE")


(set (read A)
   (lambda()(PRINT "AA"))
)

gavvy 发表于 2011-3-13 19:21:36

谢谢大大!我对你的敬仰之情犹如涛涛江水绵绵不绝!又如黄河泛滥一发不可收拾!用一个字来概括
“高”

wdq10105 发表于 2011-4-8 00:17:40

回复 caoyin 的帖子

这种情况下，要在命令栏里面输入（apple）才能显示"AA” ，有不有什么办法直接在命令栏输入apple 就可以达到效果呢，谢谢！

zark 发表于 2011-4-10 00:11:32

有点意思，期待中。

gavvy 发表于 2012-5-20 12:28:25

wdq10105 发表于 2011-4-8 00:17 static/image/common/back.gif
回复 caoyin 的帖子

这种情况下，要在命令栏里面输入（apple）才能显示"AA” ，有不有什么办法直接在命令栏 ...

上面版主已经给出答案了,直接用READ 就可以实现重定义命令
页: [1]
查看完整版本: [讨论]通过文本重定义为命令