time function - time interval

I want to move a donut along a 2dpolyline, this is what i have now, maybe somebody will show me a better way.

(defun c:an ( / ss en edxf p1 pas i data0 data pin pf )
 (setq ss (ssget "_:S" '((0 . "*LINE"))))   
   (setq 
  en	(ssname ss 0)
  edxf	(entget en)
  p1	(cdr (assoc 10 edxf))
   ) ;_ end of setq
 (setq pas 1)
 (setq i 0)
 (COMMAND "donut" 0.001 10 p1 "")
 (setq data0 (strcase (menucmd "M=$(edtime,$(getvar,date),SS)")))
 (while (<
   (setq data (atof(strcase (menucmd "M=$(edtime,$(getvar,date),SS)"))))
   (+ (atof data0) )
   (setq data (atof(strcase (menucmd "M=$(edtime,$(getvar,date),SS)"))))
   (progn
     (setq pin (vlax-curve-getPointAtDist en (* i pas)))
     (setq pf (vlax-curve-getPointAtDist en (* (+ 1 i) pas)))
     (command "move" (entlast) "" pin pf)
     (setq i (1+ i))
     )
 )
 (princ)
 )

Welcome to CADTutor!

Consider this simple example:

(setq LoopUntiltime (+ 8000 (getvar 'millisecs)))
(while (< LoopUntiltime (getvar 'millisecs))
 ;; <- do something for 8 seconds
 )