延时带提示

dcl1214

有的时候需要延时，同时还要提醒用户，可以看看这个示例

1. (defun $yan-shi$ (seconds msg lst / old i stop now)
   
2.   (or msg (setq msg ""))
   
3.   (or seconds (setq seconds 2.5))
   
4.   (setq old (getvar "millisecs"))
   
5.   (setq stop (+ old (* seconds 1000)))
   
6.   (setq i 1)
   
7.   (while (and (setq now (getvar "millisecs")) (> stop now))
   
8.     (if  (> (- now old) 1000)
   
9.       (progn
   
10.   (print (strcat msg
    
11.            "；剩余:"
    
12.            (vl-princ-to-string (/ (- stop now) 1000))
    
13.            " 秒"
    
14.          )
    
15.   )
    
16.   (setq old now)
    
17.   (setq i (1+ i))
    
18.       )
    
19.     )
    
20.   )
    
21. )

(defun $yan-shi$ (seconds msg lst / old i stop now)<br />   (or msg (setq msg ""))<br />   (or seconds (setq seconds 2.5))<br />   (setq old (getvar "millisecs"))<br />   (setq stop (+ old (* seconds 1000)))<br />   (setq i 1)<br />   (while (and (setq now (getvar "millisecs")) (> stop now))<br />     (if  (> (- now old) 1000)<br />       (progn<br />   (print (strcat msg<br />            "；剩余:"<br />            (vl-princ-to-string (/ (- stop now) 1000))<br />            " 秒"<br />          )<br />   )<br />   (setq old now)<br />   (setq i (1+ i))<br />       )<br />     )<br />   )<br /> )

baitang36

改进一下，显示到屏幕左下角。

2. (defun $yan-shi$ (seconds msg lst / old i stop now)
   
3.   (or msg (setq msg ""))
   
4.   (or seconds (setq seconds 2.5))
   
5.   (setq old (getvar "millisecs"))
   
6.   (setq stop (+ old (* seconds 1000)))
   
7.   (setq i 1)
   
8.   (while (and (setq now (getvar "millisecs")) (> stop now))
   
9.     (if  (> (- now old) 1000)
   
10.       (progn
    
11.   (setvar "MODEMACRO" (strcat msg
    
12.            "剩余:"
    
13.            (vl-princ-to-string (/ (- stop now) 1000))
    
14.            " 秒"
    
15.          )
    
16.   )
    
17.   (setq old now)
    
18.   (setq i (1+ i))
    
19.       )
    
20.     )
    
21.   )
    
22. (setvar "MODEMACRO" "")(princ)
    
23. )
    

(defun $yan-shi$ (seconds msg lst / old i stop now)<br />   (or msg (setq msg ""))<br />   (or seconds (setq seconds 2.5))<br />   (setq old (getvar "millisecs"))<br />   (setq stop (+ old (* seconds 1000)))<br />   (setq i 1)<br />   (while (and (setq now (getvar "millisecs")) (> stop now))<br />     (if  (> (- now old) 1000)<br />       (progn<br />   (setvar "MODEMACRO" (strcat msg<br />            "剩余:"<br />            (vl-princ-to-string (/ (- stop now) 1000))<br />            " 秒"<br />          )<br />   )<br />   (setq old now)<br />   (setq i (1+ i))<br />       )<br />     )<br />   )<br /> (setvar "MODEMACRO" "")(princ)<br /> )<br />

用法：加载后在命令行输入
( $yan-shi$ 10 "明经延时" 1)
回车后就能在左下角看到效果了。

biya

给力，支持一个

qifeifei

非常帮 顶一下

czb203

lst 是不是多了个变量哦

moshouhot

lst  是不是冗余了

qazxswk

牛逼呀，支持源码

yjwht

lst变量删除，另外这个倒计时没啥用，只能锻炼我们的编程能力

1993063

延时途中,电脑卡死.感觉还不如grread来得香

qazxswk

在浩辰、中望、ACAD上测试了一下，中望运行效果最好，ACAD其次，浩辰上运行看不到效果。