求批量定义函数？

dcl1214

e2002 发碛� 2023-3-15 10:39
eval 这一句，如果换成 apply ，该怎么写呢？

(defun (str)
             (alert str)
)
;转换为eval的函数如下:
(setq tt (eval (lambda (str)
                 (alert str)
               )
         )
)

(tt "dd")

e2002

eval 是运行时求值，在编译时会出现问题，能不用就尽可能不用吧，虽然eval确实好用。

xyp1964

1. (defun c:tt()
   
2.   (defun abc(tx)(eval(read(strcat"(defun C:+"tx"(/)(TQHZ\"K*+*\"\""tx"\"\"Q\"))"))))
   
3.   (mapcar 'abc '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N"))
   
4.   (princ)
   
5. )
   

(defun c:tt()<br />   (defun abc(tx)(eval(read(strcat"(defun C:+"tx"(/)(TQHZ\"K*+*\"\""tx"\"\"Q\"))"))))<br />   (mapcar 'abc '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N"))<br />   (princ)<br /> )<br />

cchessbd

xyp1964 发表于 2023-3-16 11:15

不错不错，这个更好读一些。修改起来也容易。