使用 (princ "\r") 不能更新命令行的问题

newer

问题：
I've been using (princ "\r") to update the command line inside my LISP command, but in AutoCAD 2011 it does not seem to work anymore.

You can use the following code to reproduce the issue:

1. 
   
2. (defun pause(mili / time)
   
3.   (setq time (getvar "date"))
   
4.   (while (< (* (- (getvar "date") time) 100000000) mili))
   
5.   nil
   
6. )
   
7. 
   
8. (defun c:printtest ()
   
9.   (princ "\n")
   
10.   (setq num 1)
    
11.   (repeat 100
    
12.     (pause 100)
    
13.     (setq num (1+ num))
    
14.     (princ "\r")
    
15.     (princ num)
    
16.   )
    
17. )
    

<br /> (defun pause(mili / time)<br />   (setq time (getvar "date"))<br />   (while (< (* (- (getvar "date") time) 100000000) mili))<br />   nil<br /> )<br /> <br /> (defun c:printtest ()<br />   (princ "\n")<br />   (setq num 1)<br />   (repeat 100<br />     (pause 100)<br />     (setq num (1+ num))<br />     (princ "\r")<br />     (princ num)<br />   )<br /> )<br />

As you can see in AutoCAD 2011 only the last number (101) appears in the command line once the command finished, but nothing in between. This used to work fine before.

解答：
This behaviour has been logged. The workround is to use an additional (princ):

1. (defun pause(mili / time)
   
2.   (setq time (getvar "date"))
   
3.   (while (< (* (- (getvar "date") time) 100000000) mili))
   
4.   nil
   
5. )
   
6. 
   
7. (defun c:printtest ()
   
8.   (princ "\n")
   
9.   (setq num 1)
   
10.   (repeat 100
    
11.     (pause 100)
    
12.     (setq num (1+ num))
    
13.     (princ "\r")
    
14.     (princ num)
    
15.     (princ) ; with the addition of this the command line gets updated
    
16.   )
    
17. )
    

(defun pause(mili / time)<br />   (setq time (getvar "date"))<br />   (while (< (* (- (getvar "date") time) 100000000) mili))<br />   nil<br /> )<br /> <br /> (defun c:printtest ()<br />   (princ "\n")<br />   (setq num 1)<br />   (repeat 100<br />     (pause 100)<br />     (setq num (1+ num))<br />     (princ "\r")<br />     (princ num)<br />     (princ) ; with the addition of this the command line gets updated<br />   )<br /> )<br />