time function - time interval

[uli]

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

[BlackBox]

Welcome to CADTutor!

Consider this simple example:

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