为什么重复输出两个？

adc · 发表于 2013-9-13 10:47:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:TT (/ width layer SS num)
  (setvar "cmdecho" 0)
  (setq width 19.75)
  (setq layer "rein")
  (setq ss (ssget (list '(0 . "*POLYLINE") (cons 41 width) (cons 8 layer))))
  (setq num (sslength ss))
  (princ "\n")
  (print (strcat "纵筋数量为" (rtos num 2 0)))
)
不知道为什么会同时输出两个结果："纵筋数量为27" "纵筋数量为27"。测试文件详见附件，哪位指点一下？

ysq101 · 发表于 2013-9-13 10:58:11

结束defun 前加个princ

819534890 · 发表于 2013-9-13 14:43:14

第一个输出是，princ的结果，第二个输出是princ的返回值，你想一个输出，那就确保最后一行的返回值是空。例如加多一句没内容的（princ）

adc · 发表于 2013-9-13 16:19:36

ysq101 发表于 2013-9-13 10:58
结束defun 前加个princ

多谢多谢！

adc · 发表于 2013-9-13 17:13:10

819534890 发表于 2013-9-13 14:43
第一个输出是，princ的结果，第二个输出是princ的返回值，你想一个输出，那就确保最后一行的返回值是空。例 ...

谢谢回复，这下明白了

ysq101 · 发表于 2013-9-13 17:35:46

adc 发表于 2013-9-13 17:13
谢谢回复，这下明白了

楼下的解释得更清楚

newer · 发表于 2013-9-13 18:08:28

写LISP程序，最后一个括号前加个 (princ) 是个好习惯。

账号		自动登录	找回密码
密码			立即注册

[求助] 为什么重复输出两个？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评