一个各LISP程序在ACAD14下用得好好的，在2002下却出现如下错误：
错误: 参数值错误: 命令:
经查，执行至子程序的PRIN1一句时出现的，注解掉此句后，可以运行，但在ACAD14下却有些不正常。
附子程序：
;----------压力容器数据表 , 根据 D 查找 H1 W B !
;----------LOOK UP H1 W B ACCORDING D !
;
(DEFUN SET-H1 ( )
(cond ((= D 400) (= D 500) (= D 4000) (setq H1 1000 W 3530 B 400))
)
(cond (( D 3000) (setq H2 50))
(T (setq H2 40))
)
(PRIN1) ;就是它
)
置顶卡
