need a visible timer for drawings

[MikeP]

I would like a timer what works the same as the time command but i wanna be able to see it count time. i need a display box that shows how long each drawing has been open

[ReMark]

A stop watch just won't do? Are you trying to annoy someone or motivate them with a visible reminder of elapsed time?

[ReMark]

Have you tried one of the free analog clocks available for Windows? Two I am aware of are ClocX and Desktop Clock 1.6. I don't know if you can use them like a stopwatch to display elapsed time.

[Lee Mac]

A stop watch just won't do?

 

haha, ReMark, this made me laugh

[ReMark]

Lee: I just crack myself up.

 

I was going to suggest an hour glass (or two).

[MikeP]

no i want it visible in drawings

[ReMark]

You might try doing a search for AutoCAD lisp routines. At the moment I can't think of anything else.

 

Why is this so important?

[borgunit]

Maybe just read the tdindwg and send a prompt to the modemacro string on every drawing save (use a reactor). A suggestion.

[MikeP]

Maybe just read the tdindwg and send a prompt to the modemacro string on every drawing save (use a reactor). A suggestion.

 

 

HUH?????????

[Lee Mac]

Nice idea Borgunit,

 

Mike, the MODEMACRO function will display a string of text at the bottom of the screen, underneath the command line - (to see this, just type MODEMACRO in your command line and set it to some text of your choice).

 

The "tdindwg" system variable will keep track of how long the drawing has been open for, and so, I believe Borgunit suggests you use a reactor that instructs CAD to display some format of the tdindwg in the MODEMACRO string every time the user hits save. (or possibly you could assign it to "redraw"?) - your choice.

 

I'm not too good with reactors, but the LISP may be something like this:

 

(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)

[MikeP]

Nice idea Borgunit,

 

Mike, the MODEMACRO function will display a string of text at the bottom of the screen, underneath the command line - (to see this, just type MODEMACRO in your command line and set it to some text of your choice).

 

The "tdindwg" system variable will keep track of how long the drawing has been open for, and so, I believe Borgunit suggests you use a reactor that instructs CAD to display some format of the tdindwg in the MODEMACRO string every time the user hits save. (or possibly you could assign it to "redraw"?) - your choice.

 

im still not sure how i can get this to work though

[Lee Mac]

I have posted a LISP for the timer, but as I have said in my previous post, I am not too good with reactors. But for the time being, you could assign the LISP to a button and hit the button to update the time.

[Lee Mac]

im still not sure how i can get this to work though

 

See my previous post