get-tableof

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

Nenhum comentário:

Postar um comentário