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 […]

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)