[求助]R14的LSP在2002下出现错误

sccat

(defun *error* (msg)
(if(/= msg "Function cancelled")
(if(= msg "quit/exit abort")
(princ)
(princ(strcat "\nError:" msg))
)
(setvar "cmdecho" var1)
(princ)
)
) 错误: 参数太多:

meflying

R14能运行才怪，这是个简单的函数的使用错误，跟CAD版本无关，你再仔细看看（提示:注意if的用法）

sccat

那可能是R14加载时没有检查出问题？在R14可以加载，程序的其余部分也可以运行。但2002连加载都不行。

sccat

仔细看一下，果然有问题 改成 (defun *error* (msg)
(if(/= msg "function cancelled")

(progn
(if(= msg "quit/exit abort")
(progn
(princ)
(princ(strcat "\nError:" msg))
)
)
(setvar "cmdecho" var1)
(princ)
)
)
) 就可以了。 这个是单位以前的人写的程序的开头一个函数，整个程序在R14上运行没有什么问题，只是不能在其他版本运行。不知道是什么原因？难道是2002的加载比14严格吗？这个函数有什么用？好像一般用不到。

meflying

这是错误处理函数，帮助文件中有相关介绍，不知道到底哪儿在2002下不能运行？你不把所谓的不能运行的程序拿上来，光说它不能运行有什么用？