PRIN1是怎样用的？

lwx001

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

meflying

如果是子函数，可以将它删掉。

lockmyeye

标准函数里有PRINL，没有PRIN1。


是不是搞错了？

meflying

prinl?不对吧，是prin1，与princ的区别是：
Command: (prin1 "abc")
"abc""abc" Command: (princ "abc")
abc"abc"