Poliline flashing

[rodrigo_sjc_sp]

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.

[rodrigo_sjc_sp]

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.

[Lee Mac]

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

[rodrigo_sjc_sp]

Thank You Lee ,

 

 

The code was exactly what I needed.

 

 

[Tharwat]

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

[Lee Mac]

Thank You Lee ,

 

The code was exactly what I needed.

 

 

You're welcome.