各位老大，帮忙解决一下一个问题。

wgij007

程序是在调用论坛里的

(defun c:tt1 nil (c:xopen)(prin1))
这个会出现
tt1 ; 错误: no function definition: C:XOPEN
不能用,用 COMMAND 也一样


(eval (read (strcat "(defun c:""tt2" "()((command \"xopen\")))" )))
出现这句话，
选择外部参照: ; 错误: no function definition: nil
能用，但连续用会出现卡死

各位老大，可以解决吗。

nzl1116

(defun c:tt1 nil (c:tt2)(prin1))
(eval (read (strcat "(defun c:" "tt2" "() (command \"xopen\"))")))

wgij007

nzl1116 发表于 2020-3-1 11:59
(defun c:tt1 nil (c:tt2)(prin1))
(eval (read (strcat "(defun c:" "tt2" "() (command \"xopen\"))")))

太感谢了.
(defun c:s1 nil (c:xopen)(prin1))
(eval (read (strcat "(defun c:" "xopen" "() (command \"xopen\"))")))