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 (if ('INT (type n)) (if 3 4)))
  (
foreach x
     
(cond ((listp xdxd)
           ((
'pickset (type xd))
            (
dxf -1 xd))
           (
(list xd)))
    (
if (listp x)
      (
high-ligth x n)
      (
if (ename-of x)
        (
redraw (ename-of xn)))))

Nenhum comentário:

Postar um comentário