获取代码执行时间的函数

marting

1. (defun BenchTime (start / millisecs)
   
2.   (if start
   
3.     (setq BenchStart (getvar "Millisecs"))
   
4.     (if BenchStart
   
5.       (progn
   
6.         (princ (strcat "\nElapsed: " (rtos (* 0.001 (- (getvar "Millisecs") BenchStart)))))
   
7.         (setq BenchStart nil)
   
8.       )
   
9.       (princ "\nThere's an error. The bechmark wasn't started yet.")
   
10.     )
    
11.   )
    
12.   t
    
13. )
    
14. 
    

(defun BenchTime (start / millisecs)<br />   (if start<br />     (setq BenchStart (getvar "Millisecs"))<br />     (if BenchStart<br />       (progn<br />         (princ (strcat "\nElapsed: " (rtos (* 0.001 (- (getvar "Millisecs") BenchStart)))))<br />         (setq BenchStart nil)<br />       )<br />       (princ "\nThere's an error. The bechmark wasn't started yet.")<br />     )<br />   )<br />   t<br /> )<br /> <br />

先执行
(BenchTime t)
.....
(BenchTime nil)

HLCAD

感谢大师的好程序！

sh_h

好程序，收藏了，谢谢！

ynhh

要要能在命令行显示个进度条
那感情就太好了
以前的进度条都是纯演示用的

yoyoho

感谢分享，收藏了！！！

kqqt6236

谢谢分享。

sicky111

感谢分享。

SHUNDocker

感谢大师的好程序！

zero423

跟大神学习学习!