Poliline flashing

Is there any way to SET a polyline with 3 alternate colors?

Ex: colors (yellow, red, green)

The polyline turns yellow after 1 second turns red after 1 second

turns green, and the end of her green back to yellow in an infinite loop?

What I need is to draw attention to the Polyline defective in design, and thought to set one or more colors and let them alternating between polyline.

Is there any way to create a timer in LISP, 1 in 1 second it executes the command to change the color?

Need more control timer because once you see the problem, I need to stop it, and set a neutral color.

(defun c:flash ( / *error* cmd col ent enx old )
   (defun *error* ( m )
       (if old (entmod (append ent old)))
       (if cmd (setvar 'cmdecho cmd))
       (princ)
   )          
   (if (setq ent (car (entsel)))
       (progn
           (setq enx (entget ent)
                 old (list (cond ((assoc 62 enx)) ('(62 . 256))))
                 cmd (getvar 'cmdecho)
                 col 2
           )
           (setvar 'cmdecho 0)
           (while (= 5 (car (grread t 13 1)))
               (entmod (append enx (list (cons 62 (setq col (1+ (- 2 col)))))))
               (command "_.delay" 150)
           )
           (entmod (append enx old))
           (setvar 'cmdecho cmd)
       )
   )
   (princ)
)

Thank You Lee ,

The code was exactly what I needed.

The code was exactly what I needed.

 

What about these people whom spend their time just to help you and you didn't even blink on them with any .

http://www.cadtutor.net/forum/showthread.php?73287-find-unclosed-polylines

Thank You Lee ,

 

The code was exactly what I needed.

 

You're welcome.