dxf
Uma rotina bastante útil, pois ela simplifica o processo de pegar o valor de um dxf duma entidade… veja que funciona com selections sets também (defun dxf (dx ent / tmp ls? l e n) (if (= ‘PICKSET (type ent)) (progn (setq n 0) (repeat (sslength ent) (setq e (ssname ent n) n (1+ n) […]