Petit Chrono sympatoche...

[DenisHen]

Bonjour à tous.
Voilà, pour un besoin perso, j'ai créé , enfin "j'ai", fait à 95% par Maître (gile), un petit chronomètre qui mesure le temps entre la routine "DebutChrono" et "FinChrono".
Il suffit de lancer la première routine avant une commande, ou au début d'un Lisp, et de lancer la deuxième à la fin (de la commande ou du Lisp).
Le résultat donne le laps de temps entre les lancement de ces deux commandes ainsi que la moyenne enregistrée.
Pour réinitialisé la moyenne, il suffit de taper en ligne de commande ou de placer dans un Lisp :

(vlax-ldata-put "DenisH" "ComptTmpMoyen" 0)

Et voici les Lisp :

;;;*********************************
;;;           Chronomètre          *
;;; Fait par DenisHen de CadXP.com *
;;;   Merci à (gile) de CadXP.com  *
;;;*********************************
;;;   Déclanche le chronomètre **
(defun c:DebutChrono ()
 (vlax-ldata-put "DenisH" "ComptTmpDeb" (getvar 'millisecs))
 (princ "\nDébut du chronomètre  ***")
 (princ)
) ;_ Fin de defun
;;;******************************
;;;     Arrête le chronomètre  **
(defun c:FinChrono ()
 (vlax-ldata-put "DenisH" "ComptTmpFin" (getvar 'millisecs))
 (princ "\nFin du chronomètre")
 (setq ComptTmp (- (vlax-ldata-get "DenisH" "ComptTmpFin") (vlax-ldata-get "DenisH" "ComptTmpDeb")))
 (setq ComptMoyen (vlax-ldata-get "DenisH" "ComptTmpMoyen" 0))
 (setq ComptMoyen (+ ComptMoyen ComptTmp))
 (prompt (strcat "\tTemps écoulé : "
                 (itoa (setq h (/ ComptTmp 3600000)))
                 "h "
                 (itoa (setq m (/ (setq r (- ComptTmp (* h 3600000))) 60000)))
                 "m "
                 (rtos (/ (- r (* m 60000)) 1000.) 2 3)
                 "s"
         ) ;_ Fin de strcat
 ) ;_ Fin de prompt
 (if (= ComptMoyen ComptTmp)
   (vlax-ldata-put "DenisH" "ComptTmpMoyen" ComptTmp)
   (progn (setq ComptMoyen (vlax-ldata-get "DenisH" "ComptTmpMoyen"))
          (vlax-ldata-put "DenisH" "ComptTmpMoyen" (/ (+ ComptTmp ComptMoyen) 2))
          (prompt (strcat "\tTemps moyen : "
                          (itoa (setq h (/ ComptMoyen 3600000)))
                          "h "
                          (itoa (setq m (/ (setq r (- ComptMoyen (* h 3600000))) 60000)))
                          "m "
                          (rtos (/ (- r (* m 60000)) 1000.) 2 3)
                          "s"
                  ) ;_ Fin de strcat
          ) ;_ Fin de prompt
   ) ;_ Fin de progn
 ) ;_ Fin de if
 (princ)
) ;_ Fin de defun

Amusez-vous bien...
Denis...