[求助]LSP编译成VLX错误

kevinchan

(if (not gongyong)
(if (load "gongyong.vlx") ;没有公用文件。; 错误: quit / exit abort
:::如果不编译成VLX.用"gongyong.lsp",则正常
(regfile "test")
(progn
(princ "\n没有公用文件。")
(exit)
)

meflying

程序不完整...建议不要抄程序!

kevinchan

meflying发表于2005-4-28 13:15:00程序不完整...建议不要抄程序!

说得我有点晕了..............我不是在抄程序呀??? 我有很多不懂,希望能得到大家的指教?为什么叫抄程序呢? 以下是整个代码: (defun c:TEST1()
(setvar "cmdecho"0)
(if (not gongyong)
(if (load "gongyong.lsp") ;;;; 如果编译成gongyong.vlx就会出现 错误. ;;;没有找到公用程序
(gongyong "bbb")
(progn
(princ "\n没有找到公用程序。")
(exit)
)
)
(gongyong "bbb")
)
(prin1)
) (defun c:bbb()
(command "circle" (list 2 2) 2)
)
;;;;以下是公用程序 (defun gongyong (funn / a)
(cond
((= funn bbb) (c:bbb))
((= funn dddd) (c:dddd))
)
(setq a (getreal "输入实数:"))
(if (= a 123456)
((eval (read (strcat "c:" funn))))
(t (alert "搞错了!"))
)
(prin1)
)

meflying

我说的抄程序是指在书上看到某些程序,就自己输入电脑来运行,因为有些人对程序不是很懂,会导致一些空格及字符等抄错,,,然后就拿来这里问,有时就是拿一小段来问,让你莫名其妙,无从回答... 你的问题可能是注意(load "gongyong.vlx") 看帮助文件中介绍: 如果成功，则返回值不确定。如果 load 调用失败，则返回 onfailure 的值。如果 onfailure 未定义，失败将导致错误信息。 建议你将gongyong函数改为: (defun gongyong (funn / a)
(cond
((= funn bbb) (c:bbb))
((= funn dddd) (c:dddd))
)
(setq a (getreal "输入实数:"))
(if (= a 123456)
((eval (read (strcat "c:" funn))))
(t (alert "搞错了!"))
)
T)