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 ‘

Uma rotina que altera o dxf duma entidade: (defun remake-ent (ent dx val / tmp new entl) (if (setq ent (ename-of ent)) (progn (setq entl (entget ent ‘(“*”)) val (if (listp dx) val (list val)) dx (if (listp dx) dx (list dx))) (repeat (max (length dx) (length val)) (setq tmp (assoc (car dx) entl) new