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 […]

Para desenhar entidades ATTRIB e ATTDEF: (defun draw-attribute (def? fix? edit? tag str ptg lay rot alt st ali / tmp) (if (not (tblsearch “style” st)) (setq st (getvar “textstyle”))) (get-alh-alv) (setq tmp (mapcar ‘cons (list 0 8 10 40 1 50 41 7 72 11 3 2 70 74 280) (list (if def? “ATTDEF”

Uma rotina pra complementar a SUB-LIST que postei outro dia: ; remove somente os (n-esimos) valor(es) da lista(defun remove-n (n lst / new nl) (setq new nil nl 0 n (if (listp n) n (list n)) n (vl-sort n ‘