How to hightlight entities in all viewports

Hi all, I'm having this problem that if i use ENTSEL select an entitie, using REDRAW 3 to highlight the entitie it only highlight it in the viewport it is selected. Is it possible to highlight it in all viewports???

Many thanks
P. de Boer

 

If you don't mind the grips, you could (sssetfirst nil (ssadd e)), otherwise
perhaps hold (command "_.select" e) open and then (command) when done. In both
cases HIGHLIGHT must be on.

REDRAW 3 to highlight the entitie it only highlight it in the viewport it is
selected. Is it possible to highlight it in all viewports???

 

;;;You have to activate each VPORT and redraw in each one
;;;Be sure of redrawing with 4 value or do a REDRAWALL at the end of the
function
;;; or in error function

(defun red_inallvp (ent val / lsvp cvp vpred)
(setq cvp (getvar "CVPORT"))
(setq lsvp (vports))
(if (/= 1 (nth 0 (car lsvp)))
(progn
(while lsvp
(if (/= 1 (setq vpred (nth 0 (car lsvp))))
(progn
(setvar "CVPORT" vpred)
(redraw ent val)
)
)
(setq lsvp (cdr lsvp))
)
(setvar "CVPORT" cvp)
)
)
)


defun c:testit (/ ent val)
(setq ent (car (entsel)))
(setq val 3);; or 4

(red_inallvp ent val)
)

using REDRAW 3 to highlight the entitie it only highlight it in the viewport
it is selected. Is it possible to highlight it in all viewports???

 

Many thanks Guidi, works great.