Include diesel expression in a lisp file

[Manuel_Kunde]

Hi all,

i have added a diesel printout that gives me the processing time from the drawing statistics.
Can someone help me to include this diesel command in a lisp file? I don't get it at all.

 

I want to show the time to the user via an alert window or something else.

 

$(edtime,$(getvar,tdindwg),$(+,$(*,24,$(fix,$(getvar,tdindwg))),$(edtime,$(getvar,tdindwg),HH)):MM:SS)

 

[mhupp]

I'm sure their is a better way to do this.

(defun C:ETIME (/ time D H M S)
  (setq time (getvar 'tdindwg)
        D (fix time)
        H (fix (setq time (* (- time D) 24)))
        M (fix (setq time (* (- time H) 60)))
        S (rtos (* (- time M) 60) 2 3)
  )
  (alert (strcat "Edit Time: " (itoa D) " Days " (itoa H) " Hours " (itoa M) " Minutes " S " Seconds"))
)

 

Also the Time command displays Total edited time.

[Roy_043]

Example:

(alert (menucmd "M=$(edtime,$(getvar,date),MO/DD/YY)"))

 

Edited March 4, 2022 by Roy_043

[Manuel_Kunde]

40 minutes ago, Roy_043 said:

Example:

(alert (menucmd "M=$(edtime,$(getvar,date),MO/DD/YY)"))

 

 

Yes, thats quick and clean. Thanks.

 

(alert (menucmd "M=$(edtime,$(getvar,tdindwg),HH:MM:SS)"))