eval 这一句，如果换成 apply ，该怎么写呢？
(defun (str)
(alert str)
)
;转换为eval的函数如下:
(setq tt (eval (lambda (str)
(alert str)
)
)
)
(tt "dd") eval 是运行时求值，在编译时会出现问题，能不用就尽可能不用吧，虽然eval确实好用。
(defun c:tt()
(defun abc(tx)(eval(read(strcat"(defun C:+"tx"(/)(TQHZ\"K*+*\"\""tx"\"\"Q\"))"))))
(mapcar 'abc '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "L" "M" "N"))
(princ)
)
xyp1964 发表于 2023-3-16 11:15
不错不错，这个更好读一些。修改起来也容易。
页:
1
[2]