ename-of

Nas subrotinas as vezes nos referenciamos as entidades pelo ename, pelo vla-object ou pela handle da mesma… mas temos de ficar testando pra saber qual referência temos… então pra simplificar:

---

|--lsp--|

(defun ename-of 
  (ent)
  (if  (setq ent
        (cond
          ((=  'STR  (type ent))   (handent ent))
          ((=  'VLA-OBJECT  (type ent))
           (vlax-vla-object->ename ent)
          )
          ((listp ent)   (cdr  (assoc -1 ent)))
          (t ent)
        )
       )
       (if  (entget ent)   ent)
  )
)

---

esta rotina tenta converter o argumento passado em um ENAME, se conseguir, tenta recuperar sua ELIST, se conseguir, a referência é válida e a entidade existe, caso contrário, retorna NIL