Em alguns programas, preciso da lista de layers por exemplo, ou dos blocos, linetypes, etc… esta rotina faz isso: (defun get-tableof (str / tmp lst) (vlax-for tmp (vlax-get (vla-get-activedocument (vlax-get-acad-object)) str) (setq lst (append lst (list (vla-get-name tmp))))) lst) para usar: (get-tableof “layers”) retornará a lista de layers do desenho

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)