好主意Borgunit,
Mike,MODEMACRO函数将在屏幕底部的命令行下面显示一个文本字符串-(要看到这一点,只需在命令行中键入MODEMACRO并将其设置为您选择的一些文本)。
“tdindwg”系统变量将跟踪图形已打开的时间,因此,我相信Borgunit建议您使用反应器,指示CAD在用户每次点击save时以MODEMACRO字符串显示tdindwg的某些格式。(或者您可以将其指定为“重画”?)-你的选择。
我不太擅长反应堆,但Lisp程序可能是这样的:
- (defun c:timer (/ t1 h1 h1r m1 m1r str)
- (setvar "cmdecho" 0)
- (setq t1 (getvar "tdindwg"))
- (setq t1 (* t1 86400))
- (setq h1 (fix (/ t1 3600)))
- (setq h1r (rem t1 3600))
- (setq m1 (fix (/ h1r 60)))
- (setq m1r (fix (rem h1r 60)))
- (setq str (strcat "Drawing Time: "
- (itoa h1) "hrs "
- (itoa m1) "mins "
- (itoa m1r) "secs.")
- )
- (command "MODEMACRO" str)
- (setvar "cmdecho" 1)
- (princ)
- )
- (c:timer)
|