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 programas\\Autodesk Civil 3D 2007\\Sample\\ActiveX\\SheetSetVBA\\SheetSetVBA.dvb")

Um comentário:

  1. E aí cara, muito bacana essa rotina, preciso aprender um pouco sobre esse tal de vl...

    T+, um abraço.

    ResponderExcluir