[求助]：函数调用问题

winabcd

如定义了一个函数
(defun aaa()
   .....
)
现在我调用它，可以这样
(defun test()
...
   (aaa)
...
)
但如果我先把aaa放入一个变量，再通过变量来调用，可不可以，如：
(defun test()
....
(setq a1 "aaa")
现在通过a1来调用函数aaa
...
)
我用过READ函数，不行，也是试过一些其它的办法，不过没有可行的，
向各位请教。

czg09180274

程序提供的是一个运行环境并返回执行结果，而变量只是参与运算，它们之间是一个包含与被包含的关系，是不能进行简单等同的。

lijiao

最初由 winabcd 发布
[B]如定义了一个函数
(defun aaa()
   .....
)
现在我调用它，可以这样
(defun test()
...
   (aaa)
...
)
但如果我先把aaa放入一个变量，再通过变量来调用，可不可以，如：
(defun test()
....
(setq a1 ... [/B]

1. 
   
2.   [FONT=courier new]
   
3. ((eval (read a1)))
   
4.   [/FONT]
   

复制代码

xiao_longxin

再次受益

ysx810210

试试：
(defun aaa()
    (setq yx 800)
    yx
)
(defun c:test()
   (setq y (aaa))
   (princ y)
   (princ)
)
注：论坛的回帖对LISP的格式好像不支持，会自动删除一行中头部的所有空格

aeo

(setq a1 "aaa")
现在通过a1来调用函数aaa
...
)

一般写成
(set 'a1 aaa)
(a1 ...)

一生有你

你说
【一般写成
(set 'a1 aaa)
(a1 ...)】
我试了试，怎么得不到想得的值，而是地址符啊？  
命令: test
#<USUBR @02ba8e9c AAA>
请问调用函数一般都要用这个格式吗？那调用了怎么获得所求的值？请示例下，谢谢！！

winabcd

前段时间事较多，又出长差，没有回复大家，不好意思，
谢谢大家出的主意。
我一一试过，
aeo斑竹 的方法可以，但我没搞清楚这样为什么可以，
aeo斑竹 能否说明一下。

yjrun

好像不行吧。你为什么要用这个方法呢，应该有别的方法啊