请教LISP有计时器功能的函数吗？

fishnono

如题THANKS

ZZXXQQ

ACAD中系统变量中关于时间的有：

系统变量名       说明
CDATE        当前机器的日历, 日期时间
DATE         日子数(Julian)阳历
TDCREATE     图形建立的日期和时间
TDINDWG      图形编辑时间
TDUPDATE     最近一次更新的日期和时间
TDUSRTIMER   本次使用时间
楼主可以在程序中用GETVAR函数读取数值进行处理。

zxmmelly

看一下帮助里面的 menucmd  函数吧

TANER

2. ;;; ==================================================================
3. ;;; 计时开始,与th-runtime配合使用,计算程序运行时间.
4. ;;; ==================================================================
5. (defun th-starttime ()
6.   (setq start-time (* 86400 (getvar "tdusrtimer")))
7. )
8. ;;; ==================================================================
9. ;;; 计时统束,与th-starttime配合使用,计算程序运行时间.
10. ;;; ==================================================================
11. (defun th-runtime (/ d end-time h m s ts)
12.   (if start-time
13.     (progn
14.       (setq end-time (* 86400 (getvar "tdusrtimer"))
15.      ts (- end-time start-time)
16.      d (rtos (fix (/ ts 86400.0)) 2 0)
17.      ts (rem ts 86400)
18.      h (rtos (fix (/ ts 3600.0)) 2 0)
19.      ts (rem ts 3600)
20.      m (rtos (fix (/ ts 60.0)) 2 0)
21.      ts (rem ts 60)
22.      s (rtos ts 2 2)
23.       )
24.       (if (> (distof d) 0)
25. (princ (strcat "\n用时 : " d "天" h "小时" m "分" s "秒"))
26. (if (> (distof h) 0)
27.    (princ (strcat "\n用时 : " h "小时" m "分" s "秒"))
28.    (if (> (distof m) 0)
29.      (princ (strcat "\n用时 : " m "分" s "秒"))
30.      (princ (strcat "\n用时 : " s "秒"))
31.    )
32. )
33.       )
34.     )
35.   )
36.   (princ)
37. )

;;; ================================================================== ;;; 计时开始,与th-runtime配合使用,计算程序运行时间. ;;; ================================================================== (defun th-starttime ()   (setq start-time (* 86400 (getvar "tdusrtimer"))) ) ;;; ================================================================== ;;; 计时统束,与th-starttime配合使用,计算程序运行时间. ;;; ================================================================== (defun th-runtime (/ d end-time h m s ts)   (if start-time     (progn       (setq end-time (* 86400 (getvar "tdusrtimer"))      ts (- end-time start-time)      d (rtos (fix (/ ts 86400.0)) 2 0)      ts (rem ts 86400)      h (rtos (fix (/ ts 3600.0)) 2 0)      ts (rem ts 3600)      m (rtos (fix (/ ts 60.0)) 2 0)      ts (rem ts 60)      s (rtos ts 2 2)       )       (if (> (distof d) 0) (princ (strcat "\n用时 : " d "天" h "小时" m "分" s "秒")) (if (> (distof h) 0)    (princ (strcat "\n用时 : " h "小时" m "分" s "秒"))    (if (> (distof m) 0)      (princ (strcat "\n用时 : " m "分" s "秒"))      (princ (strcat "\n用时 : " s "秒"))    ) )       )     )   )   (princ) )

无痕

用mnucmd写更简单

004

帮助中 mnucmd:引用下拉菜单或快捷菜单
和时间有什么关系啊?