计时器

dcl1214

多个计时器并行计时，每个计时器支持暂停和继续

1. (defun $ji-shi$  (biaoshi zt LST / time hs)
   
2.           ;zt 如果是0代表是停止计时，同时打印时间到命令行;1时继续计时
   
3.           ;调用示例：($ji-shi$ "分析导线" 1 NIL)($ji-shi$ "分析导线" 0 NIL)
   
4.   (setq time (vl-bb-ref 'timer))
   
5.   (cond
   
6.     ((and
   
7.        biaoshi
   
8.        (assoc biaoshi time)
   
9.        zt
   
10.        (member zt
    
11.          (list '0 '"停止" '"停止计时" '"不再计时" '"stop" '"STOP")
    
12.        )
    
13.      )          ;停止计时并打印
    
14.      (print
    
15.        (strcat
    
16.    biaoshi
    
17.    "耗时： "
    
18.    (setq hs (vl-princ-to-string
    
19.         (/ (- (getvar "millisecs")
    
20.         (cdr (assoc biaoshi time))
    
21.         0.0
    
22.            )
    
23.            1000.0
    
24.         )
    
25.       )
    
26.    )
    
27.        )
    
28.      )
    
29.      (setq time (vl-remove (assoc biaoshi time) time))
    
30.     )
    
31.     ((and biaoshi
    
32.     (assoc biaoshi time)
    
33.     zt
    
34.     (member zt
    
35.       (list  '1 '"继续" '"持续计时" '"计时" '"继续计时"
    
36.       '"START" '"start")
    
37.     )
    
38.      )          ;继续计时
    
39.      ()          ;其实啥都不需要做
    
40.     )
    
41.     (t
    
42.      (and biaoshi
    
43.     (setq time (cons (cons biaoshi (getvar "millisecs")) time))
    
44.      )
    
45.     )
    
46.   )
    
47.   (vl-bb-set 'timer nil)
    
48.   (vl-bb-set 'timer time)
    
49.   (if hs
    
50.     hs
    
51.     t
    
52.   )
    
53. )

(defun $ji-shi$  (biaoshi zt LST / time hs)<br />           ;zt 如果是0代表是停止计时，同时打印时间到命令行;1时继续计时<br />           ;调用示例：($ji-shi$ "分析导线" 1 NIL)($ji-shi$ "分析导线" 0 NIL)<br />   (setq time (vl-bb-ref 'timer))<br />   (cond<br />     ((and<br />        biaoshi<br />        (assoc biaoshi time)<br />        zt<br />        (member zt<br />          (list '0 '"停止" '"停止计时" '"不再计时" '"stop" '"STOP")<br />        )<br />      )          ;停止计时并打印<br />      (print<br />        (strcat<br />    biaoshi<br />    "耗时： "<br />    (setq hs (vl-princ-to-string<br />         (/ (- (getvar "millisecs")<br />         (cdr (assoc biaoshi time))<br />         0.0<br />            )<br />            1000.0<br />         )<br />       )<br />    )<br />        )<br />      )<br />      (setq time (vl-remove (assoc biaoshi time) time))<br />     )<br />     ((and biaoshi<br />     (assoc biaoshi time)<br />     zt<br />     (member zt<br />       (list  '1 '"继续" '"持续计时" '"计时" '"继续计时"<br />       '"START" '"start")<br />     )<br />      )          ;继续计时<br />      ()          ;其实啥都不需要做<br />     )<br />     (t<br />      (and biaoshi<br />     (setq time (cons (cons biaoshi (getvar "millisecs")) time))<br />      )<br />     )<br />   )<br />   (vl-bb-set 'timer nil)<br />   (vl-bb-set 'timer time)<br />   (if hs<br />     hs<br />     t<br />   )<br /> )

guosheyang

感谢杜总的分享！