Lista dos Dvbs carregados

Quem usa o dos_lib pra recuperar a lista de rotinas carregadas no cad, ja percebeu que mesmo a versão 2007 não lista os DVB carregados…. com visual lisp é possível obter esta lista:

(defun listdvb (/ vbprj tmp n)
;pega a lista de “projetos” dp tmp
(setq vbprj (vlax-get-property
;pega a referencia ao tmp do cad:
(vla-get-vbe (vlax-get-acad-object))
“vbprojects”)
n 1)
(repeat ;quantidade de projetos:
(vla-get-count vbprj)
(setq tmp (vla-item vbprj n)
lst (cons
;recupera o nome completo do DVB:
(vlax-get-property tmp “filename”)
lst)
n (1+ n))
;libera o VLA do projeto da memória:
(vlax-release-object tmp))
;libera o VLA do da memória:
(vlax-release-object vbprj)
lst)

basta apenas carregar a função: (listdvb) e obteremos (por exemplo): (“C:Arquivos de programasAutodesk Civil 3D 2007SampleActiveXSheetSetVBASheetSetVBA.dvb”)