Blog do Neyton: 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