Highlighting and Alert Boxes

[lance.81922]

Howdy all -- This seems so annoying, yet it's quite reproducible. I select an object, use (redraw obj 3) to highlight it, pop an alert box, then use (redraw obj 4) to un-highlight.

The problem is that unless I "jiggle" the alert box, the object won't highlight!

Try this:

(defun rdtest (/ obj)
(setq obj (car (entsel)))
(redraw obj 3)
(alert "Kick me")
(redraw obj 4)
(princ)
)

On my system, at least, the highlight will NOT happen unless I move the alert box. I thought it might be related to hardware acceleration, but that had no effect. Is there any was to force the highlight before the alert box pops up?

Thanks

[rad.77676]

This should work!

(defun rdtest (/ obj)
(setq obj (car (entsel)))
(redraw obj 3)
(command "delay" "100")
(alert "Kick me")
(redraw obj 4)
(princ)
)

[lance.81922]

Thanks! I never realized that such a delay would affect highlighting this way. It totally solved the problem! Thanks again.