求助，如何批量定义函数

liuhe

1. (DEFUN L1 ()
   
2.   (SETQ KEY 2)
   
3.   (PRINC KEY)
   
4. )
   
5. (DEFUN L2 ()
   
6.   (SETQ KEY 2)
   
7.   (PRINC KEY)
   
8. )
   
9. (DEFUN L3 ()
   
10.   (SETQ KEY 3)
    
11.   (PRINC KEY)
    
12. )
    
13. (DEFUN L4 ()
    
14.   (SETQ KEY 4)
    
15.   (PRINC KEY)
    
16. )
    
17. (DEFUN L5 ()
    
18.   (SETQ KEY 5)
    
19.   (PRINC KEY)
    
20. )
    
21. (DEFUN L6 ()
    
22.   (SETQ KEY 6)
    
23.   (PRINC KEY)
    
24. )
    
25. 
    

复制代码

如何用循环  把上诉的函数一次性定义？我试了半天，没啥思路。


有没有大神给点方案，还是不能实现？

liuhe

2. (defun LL( / J I) ;;;;;定义函数
   
3. (setq i 6 j 1)
   
4. (repeat        i
   
5.   (eval        (read (strcat "(defun-q"
   
6.                       " "
   
7.                       "l"
   
8.                       (rtos j 2 0)
   
9.                       "(key)(SETQ KEY"
   
10.                       " "(rtos j 2 0)
    
11.                       ")(PRINC KEY))"
    
12.               )
    
13.         )
    
14.   )
    
15.   (setq j (1+ j))
    
16. ))

(defun LL( / J I) ;;;;;定义函数<br /> (setq i 6 j 1)<br /> (repeat        i<br />   (eval        (read (strcat "(defun-q"<br />                       " "<br />                       "l"<br />                       (rtos j 2 0)<br />                       "(key)(SETQ KEY"<br />                       " "(rtos j 2 0)<br />                       ")(PRINC KEY))"<br />               )<br />         )<br />   )<br />   (setq j (1+ j))<br /> ))

已经自行解决



2023.02.18

删除命令，尤其是自定义快捷键更新

(defun DELUSUBR        (/ J I);;;;;删除定义函数
  (setq        i 6
        j 1
  )
  (repeat i
    (IF        (= 'LIST (TYPE (eval (read (strcat "l" (rtos j 2 0))))))
      (SET (read (strcat "l" (rtos j 2 0))) NIL)
    )

    (setq j (1+ j))
  )
)

菜卷鱼

(defun nopadef (exps values)
  (mapcar '(lambda (def_x def_y) (set def_x def_y)) exps values)
)

(nopadef '(lst e l) '( (1 2 3) 2 3))

liuhe

菜卷鱼 发表于 2023-2-15 08:33
(defun nopadef (exps values)
  (mapcar '(lambda (def_x def_y) (set def_x def_y)) exps values)
)

6666666666666

liuhe

菜卷鱼 发表于 2023-2-15 08:33
(defun nopadef (exps values)
  (mapcar '(lambda (def_x def_y) (set def_x def_y)) exps values)
)

你这个我没看懂啊，能不能举个例子， 我没看到我定义了那些函数

tryhi

(foreach n '(1 2 3 4 5 6)
        (eval (list 'defun (read(strcat"L"(itoa n))) nil (list 'setq 'key n)'(princ key) ))
)

liuhe

tryhi 发表于 2023-2-15 11:43
(foreach n '(1 2 3 4 5 6)
        (eval (list 'defun (read(strcat"L"(itoa n))) nil (list 'setq 'key n)'(pr ...

理解 深刻 6666

xyp1964

(mapcar '(lambda (x) (eval(read(strcat "(defun c:l"(itoa x)"(/)(setq key "(itoa x)")(princ key)(princ))")))) '(1 2 3 4 5 6))

magicheno

感谢大佬，学习了

菜卷鱼

liuhe 发表于 2023-2-15 08:55
你这个我没看懂啊，能不能举个例子， 我没看到我定义了那些函数

(nopadef '(lst e l) '( (1 2 3) 2 3))
(nopadef [函数:字符串列表] [各函数对应的值列表])
偷懒用了单引号，单引号代表 quote
相当于 (nopadef (list (read "lst") (read "e") (read "l")) (list (list 1 2 3) 2 3))
定义的函数   lst  e  l
函数的值分别是   (1 2 3) 2 3
lst ==>  (list 1 2 3)
e ==> 2
l ==> 3