high-ligth

Esta rotina serve para realçar as entidades na tela, fazendo-as parecer “tracejadas”.
Também serve pra remover este realçe
; high-ligth (xd): (des)realça entidades na tela
; xd: é uma lista de entidades (handle_1 … handle_n)
; n: 3 para realçar, 4 para desrealçar
(defun high-ligth (xd n / x)
(setq n (if (= ‘INT (type n)) n (if n 3 4)))
(foreach x
(cond ((listp xd) xd)
((= ‘pickset (type xd))
(dxf -1 xd))
(t (list xd)))
(if (listp x)
(high-ligth x n)
(if (ename-of x)
(redraw (ename-of x) n)))))