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