请教个Defun的偏门问题

artken

请教个Defun的偏门问题，一般情况下DEFUN的写法是(defun sym ([arguments] [/ variables...]) expr...) ，如：

(defun c:abc ()

  (princ "hello!") 

)

定义了abc这个命令。

请问，这个sym函数名如果是个变量，比如是$com1之类的，有办法执行吗？怎么写？

也就是上例中abc这个命令，或者说是c:abc，是由程序中的一个变量$com1而来的

(setq $com1 "c:abc")    ????这地方怎么写

(defun  $com1 ()  ??????这地方怎么写

  (princ "hello!") 

)

能实现吗？谢谢

nonsmall

楼主先学习以下几个函数:

set

eval

read

就可以轻松实现

artken

谢谢高手

水平菜，试了一下，还是没能试出来

nonsmall

函数无非就是表

特定的格式表可以认为是函数

参考 defun-q 函数

在用上面提到的函数就可以实现

artken

解决了

感谢大师

snddd2000

还望大师们明示。

snddd2000

1. (setq colorlist        (list '(1 "红色")
   
2.                       '(2 "黄色")
   
3.                       '(3 "绿色")
   
4.                       '(4 "青色")
   
5.                       '(5 "蓝色")
   
6.                       '(6
   
7.                         "洋红色"
   
8.                        )
   
9.                       '(7 "白色")
   
10.                 )
    
11. )
    
12. (foreach color colorlist
    
13.   (setq        colornum  (car color)
    
14.         colorname (cadr color)
    
15.   )
    
16.   (set 'defunname (read (strcat "C:" (itoa colornum))))
    
17.   (eval
    
18.     (cons 'defun
    
19.           (list        defunname
    
20.                 ()
    
21.                 (alert (itoa colornum))
    
22.                 (alert colorname)
    
23.           )
    
24.     )
    
25.   )
    
26. )

(setq colorlist        (list '(1 "红色")<br />                       '(2 "黄色")<br />                       '(3 "绿色")<br />                       '(4 "青色")<br />                       '(5 "蓝色")<br />                       '(6<br />                         "洋红色"<br />                        )<br />                       '(7 "白色")<br />                 )<br /> )<br /> (foreach color colorlist<br />   (setq        colornum  (car color)<br />         colorname (cadr color)<br />   )<br />   (set 'defunname (read (strcat "C:" (itoa colornum))))<br />   (eval<br />     (cons 'defun<br />           (list        defunname<br />                 ()<br />                 (alert (itoa colornum))<br />                 (alert colorname)<br />           )<br />     )<br />   )<br /> )

请问上边的代码只有在加载的时候执行一遍，当命令里输入数字时，没有运行，
如果将两个alert改成princ，则只出现后一个princ的内容。好像只返回最后一句代码的返回值。

望各位指教，如何完整执行代码。

snddd2000

清晨灵感乍现，想到怎么解决，立刻起床。

1. (setq colorlist        (list '(1 "红色")
   
2.                       '(2 "黄色")
   
3.                       '(3 "绿色")
   
4.                       '(4 "青色")
   
5.                       '(5 "蓝色")
   
6.                       '(6
   
7.                         "洋红色"
   
8.                        )
   
9.                       '(7 "白色")
   
10.                 )
    
11. )
    
12. (foreach color colorlist
    
13.   (setq        colornum  (car color)
    
14.         colorname (cadr color)
    
15.   )
    
16.   (set 'defunname (read (strcat "C:" (itoa colornum))))
    
17.   (eval
    
18.     (cons 'defun
    
19.           (list        defunname
    
20.                 ()
    
21.                 (read (strcat "(alert \"" (itoa colornum) "\")"))
    
22.                 (read (strcat "(alert \"" colorname "\")"))
    
23.           )
    
24.     )
    
25.   )
    
26. )

(setq colorlist        (list '(1 "红色")<br />                       '(2 "黄色")<br />                       '(3 "绿色")<br />                       '(4 "青色")<br />                       '(5 "蓝色")<br />                       '(6<br />                         "洋红色"<br />                        )<br />                       '(7 "白色")<br />                 )<br /> )<br /> (foreach color colorlist<br />   (setq        colornum  (car color)<br />         colorname (cadr color)<br />   )<br />   (set 'defunname (read (strcat "C:" (itoa colornum))))<br />   (eval<br />     (cons 'defun<br />           (list        defunname<br />                 ()<br />                 (read (strcat "(alert \"" (itoa colornum) "\")"))<br />                 (read (strcat "(alert \"" colorname "\")"))<br />           )<br />     )<br />   )<br /> )

qyming

干什么用的？请指教

革天明

谢谢楼主分享