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

Deixe um comentário

Carrinho de compras
Rolar para cima