为何在打印提示时有时候会多出一条命令行?

congcong

例如编写一个求累计总长的程序，在用princ打印提示信息的时候有时候会多也一个命令行。如:
command:*** total = 500.00 ***
command:
command:

我希望的结果是下面这个样子的
command:*** total = 500.00 ***
command:
请各位大侠赐教,(注意程序运行后不能出现*cancel*等这样的提示语句)。

CAD菜鸟

(setvar "cmdecho" 0),改变“回显”系统变量的值。

congcong

还是不行啊，而且我编了很多程序都没有我所提到的问题，唯独这个程序出现这个问题。可以排除代码错误的可能。

秋枫

congcong

(defun c:ttl(/ st n cd dis a1 a2 a3)
(SETVAR "CMDECHO" 0)
(SETVAR "LUPREC" 2)
(VL-LOAD-COM)
(SETQ ACADOBJECT (VLAX-get-acad-object))
(setq st (ssget)
      n 0 dis 0 cd 0)
(if (/= st nil)
  (progn
(repeat (sslength st)
(setq a1 (ssname st n)
      a2 (cdr (assoc 0 (entget a1)))
  )
(if (or (= a2 "LINE")(= A2 "ARC")(= A2 "CIRCLE")(= A2 "SPLINE")(= A2 "LWPOLYLINE"))
(PROGN
(SETQ A3 (VLAX-ename->vla-object a1)
      dis (vlax-curve-getdistatparam a3 (vlax-curve-getendparam a3))
))
(setq dis 0)
)
(setq cd (+ cd dis)
      n (+ n 1)
)
);end repeat
))
(setq cd (rtos cd))
(princ "\n*** Designer : cong cong ***")
(princ)
(princ (strcat "\n*** Total length =" cd " ***))
(princ)
)

代码是在网吧抄上去的，可能有输入错误

龙龙仔

……
(setq cd (rtos cd))
(princ "\n*** Designer : cong cong ***")
(princ)
(princ (strcat "\n*** Total length =" cd " ***"))
(princ)
)


我出现如下面?????没有你说的情况

指令: ttl

选取对象: 1 找到

选取对象:

*** Designer : cong cong ***
*** Total length =174.32 ***

指令:

congcong

*** Designer : cong cong ***
*** Total length =174.32 ***
command:
command:

看，上面的最后一个command:是当前命令行，而另外一个则是多出来的,
想不通是为什么会多出来一个

zhuqi75

使用下边的句子，活用一下，就可以了，你可要谢我
(prompt (strcat "\n*** Total length =" cd " ***))

ZHUQI75

使用下边的句子，活用一下，就可以了，你可要谢我
(prompt (strcat "\n*** Total length =" cd " ***))

congcong

当把princ改成prompt后，运行结果仍是多出一条命令行，但是如果在princ
函数之前加上一句(command)的话，就不会多出一条命令行，但是会多打印出
一条*(cancel)*
请各位把程序拷回去运行一次，帮我解决这个烦扰我好几个月的问题吧!!!
我希望的运行结果是这样的
command:*** total length = 500.00 ***
command:
最后的command是当前命令行