社区 › AutoLISP/Visual LISP 编程技术 › 有谁知道(princ "\010")怎样运用,我总是达不到退格显示的效果?

byghbcx 发表于 2006-11-15 17:57:00

有谁知道(princ "\010")怎样运用,我总是达不到退格显示的效果?

<P>(defun wait_bz ( / )<BR>&nbsp; (if (not #spin)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq #spin "-")<BR>&nbsp; );if<BR>&nbsp; (cond<BR>&nbsp;&nbsp; ((equal #spin "-") (setq #spin "\\"))<BR>&nbsp;&nbsp; ((equal #spin "\\") (setq #spin "|"))<BR>&nbsp;&nbsp; ((equal #spin "|") (setq #spin "/"))<BR>&nbsp;&nbsp; (T (setq #spin "-"))<BR>&nbsp; );cond close<BR>&nbsp; (princ (strcat (chr 8) #spin))<BR>)</P>
<P>这是一个执行动态显示函数,我在函数中运用的时候总是分行显示</P>
<P>_</P>
<P>\</P>
<P>|</P>
<P>/</P>
<P>-</P>

skg123 发表于 2015-9-10 22:45:16

试试(princ "\n 010")

Gu_xl 发表于 2015-9-11 08:27:59

(princ (strcat "\r" #spin))

edata 发表于 2015-9-11 12:22:05

(chr 13)或者"\015"
其实还是"\r"才能覆盖显示，如果前一个字符串比后一个长，那么可能会出现覆盖不全，切记切记。

查看完整版本: 有谁知道(princ "\010")怎样运用,我总是达不到退格显示的效果?