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)
l (append l (list (dxf dx e)))))
l)
(progn
(setq ent (if (listp ent)
ent
(if (setq tmp (ename-of ent))
(entget tmp ‘(“*”))))
ls? (listp dx)
dx (if ls? dx (list dx))
tmp (if ent
(mapcar
‘(lambda (x) (cdr (assoc x ent)))
dx)))
(if ls? tmp (car tmp)))))