只需一步,快速开始
使用道具 举报
(getvar"cdate")
可以获得当前时间!
我编一个函数,在函数的运行过程中,我怎么时时能够知道还有多长时间,函数运行结束
没有办法知道最后的执行时间,但可以计算总执行时间.
因为不同的环境,运行速度是不同.
方法一:
(setq t1 (getvar "CDATE"));;计时开始------ ;;;你要测试的程序于此---------------------(setq t2 (getvar "CDATE"));;计时结束------ (princ "\n程序共用时=") (princ (* (- t2 t1) 1e6)) (princ "秒")
方法二:
(setq t0 (getvar "TDUSRTIMER"))
;;;你要测试的程序于此---------------------
(princ "\n程序共用时")
(princ (* (- (getvar "TDUSRTIMER") t0) 86400))
(princ "秒")
如果是循环而且循环次数可知,则可以按照已经运行了的时间摹拟计算出预计还需要的时间。
Windows安装程序就是这样做的。
在LISP中可以模拟吗? 你用过这个方法吗? 我也想知道 比如说一个图面检查程序,如果能模拟出需要的时间的话,会比较直观,因为这种程序在很大的CAD图上运行是可能需要数时分钟,直观一点的话可以提供一个时间概念
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2025-5-19 18:49 , Processed in 0.304359 second(s), 28 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.