[LISP程序]：lisp难题求助,高手快出招

crtrccrt · 发表于 2006-3-9 18:46:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

lisp难题求助,高手快出招
如果用lisp自定义了命令abcd
(defun c:abcd ( / ) (princ "01234")(princ))
在另一lisp程序中(setq a "c:abcd"),如何利用变量a执行程序c:abcd
而不是用(c:abcd)执行程序???
高手快出招.

zhang8755 · 发表于 2006-3-9 19:11:25

试试
(setq a c:abcd)
(a)

雨箭风刀 · 发表于 2006-3-9 20:33:41

(setq a "c:abcd")
(eval(read a))

zhang8755 · 发表于 2006-3-9 21:32:50

楼上的方法在2004下好像不行了
返回 #《USUBR @03ba7ca8 C:ABCD》

zhang8755 · 发表于 2006-3-9 22:15:49

在２００４下这样才行
(setq a "c:abcd")
(setq a (eval (read a)))
(a)

doubao · 发表于 2006-3-14 19:19:52

在ACAD2006里：
(setq a "c:abcd")
(eval(read a))
也不行。
必须这样：
(setq a "c:abcd")
(setq a (eval (read a)))
(a)

其实和版本没关系。
(setq a "c:abcd") 只是把一个字符串 “c:abcd”赋给了变量a
(read a) 只是把变量a中的字符串解析为autolisp 的相应数据。也就是把"c:abcd"字符串解析为C:ABCD
eval 函数只是求值函数。因此，
(eval (read a)) 相当于
(eval C:ABCD) 其结果应该是C:ABCD的值，即如
#<USUBR @03ba7ca8 C:ABCD>
这样的值（其实这是C:ABCD的句柄）
所以，要想执行C:ABCD
只能：
(setq a (eval (read a)))
(a)
------------------------------------------
楼主的这个问题是非常好的，能帮助理解 read 和 eval
函数的意义和应用。

感谢楼上雨箭风刀和 zhang8755
两位的帮助。

aeo · 发表于 2006-3-14 20:54:02

命令: (defun c:abcd ( / ) (princ "01234")(princ))
C:ABCD

命令: (setq a "c:abcd")
"c:abcd"

命令: (apply (read a) '())
01234

crtrccrt · 发表于 2006-3-15 12:14:30

---------------------------------------------
(eval (read (strcat "(" a")")))
---------------------------------------------
((eval (read (strcat a))))
---------------------------------------------
以上两种方法均可

doubao · 发表于 2006-3-15 21:55:56

楼上提出的
方法1： (eval (read (strcat "(" a")")))
和
(方法2：(eval (read (strcat a))))

确实能执行没错。
方法1 的实质就是：(eval (c:abcd))
(c:abcd)是一个lisp表达式，对其求值自然是运行abcd命令。

而方法2 中（strcat a）的结果还是字符串“c:abcd”所以相当于
((eval (read a))) 又等于
((eval c:abcd))

这不又等同于前面的
(setq a "c:abcd")
(setq a (eval (read a)))
(a)

zhang8755 · 发表于 2006-3-15 22:10:53

最初由 crtrccrt 发布
[B]---------------------------------------------
(eval (read (strcat "(" a")")))
---------------------------------------------
((eval (read (strcat a))))
--------------------------------------------... [/B]

其实
((eval (read a)))
即可
现当于
(setq a (eval (read a)))
(a)

雨箭风刀 · 发表于 2006-3-15 23:15:54

ｌｉｓｐ就是表
表就是（）
（。。。）的第一个元素是函数，则求值（以后面的元素为参数）。，非函数则列表

zhang8755 · 发表于 2006-3-16 08:41:41

最初由雨箭风刀发布
[B]ｌｉｓｐ就是表
表就是（）
（。。。）的第一个元素是函数，则求值（以后面的元素为参数）。，非函数则列表 [/B]

(......)LISP对第一个元素不管是什么，都求值。

教父 · 发表于 2006-3-17 16:03:52

你是不是像定义子函数啊？
取消c:改为
(defun abcd()
......
)

以后在程序里就可以直接用(abcd)调用函数了撒

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

[求助] [LISP程序]：lisp难题求助,高手快出招

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子