Выгрузка проекта

> Дарья
Проверь сначала на копии!!!

> Дарья
Я не то загрузил, а то что надо не могу найти :)
Используй этот лисп он будет выполняться автоматически

rvba.lsp
(defun c:rvba (/ adoc cnt dicts)
  (vl-load-com)
  (setq    adoc  (vla-get-activedocument
        (vlax-get-acad-object)
          )
    dicts (vla-get-dictionaries adoc)
  )
  (if (not (vl-catch-all-error-p
         (setq vba_dict (vl-catch-all-apply
                  (function    (lambda    ()
                      (vla-item dicts "ACAD_VBA")
                    )
                  )
                )
         )
       )
      )
    (progn
    (setq cnt 0)
    (vlax-for a    vba_dict
      (vla-delete a)
      (setq cnt (1+ cnt))
    )
  )
  (alert (strcat "Выгружено " (itoa cnt) " проектов")))
  (gc)
  (princ)
)
(c:rvba)
(princ)

~'J'~

> fixo
Вот нашла процедурку:
Syntaxt :
UnloadDVB <Drive:\Path\DVBfilename>
только проблемма в том, что выгружает только с определенного места, я имею ввиду что надо задавать точный путь к выгруженному проекту. А можно ли выгружать без задавания адреса нахождения проекта??

> Дарья
Как пользоваться лиспом:
http://dwg.ru/art/8
~'J'~

из справки
    Dim FileName As String
    FileName = "c:\drawline.dvb"
    ' Load a sample VBA project DVB file
    LoadDVB FileName
    ' Run the drawline sample macro
    RunMacro "Module1.Drawline"
    ' Unload the drawline VBA project DVB file now.
    UnloadDVB FileName
    MsgBox "The DVB file has been run!"
но у меня появился в связи с этим вопрос
как выгрузить работающий в данный момент проект???

> A32978
У меня возник тот же ворос!!!!!!!!!!
Я выше об этом писала!!!!

> A32978
А если отрезать верхнюю часть кода, то проект не вугрузится:
Unload the drawline VBA project DVB file now.
UnloadDVB FileName
MsgBox "The DVB file has been run!"

Выгрузка макросов
Я сделал так, чтобы в загруженными были только те макросы, которые необходимы для вы-полнения конкретной задачи. Дело в том, что некоторые встроенные функции работают не на тот макрос, из которого запущены, а на макрос, стоящий по алфавиту выше. Например, при работе в режиме правой мыши…
Конечно, 'требуется ссылка на библиотеку: MicroSoft VBA Extensibility 5.0
Кроме того,  по окончании работы запущенного макроса, наверно, лучше восстановить ста-тус-кво загруженных макросов.
Sub StartMyMacro(i%, row%)
    'given:
        'i% - ListIndex
        'row% - строка в Excel
    Call WriteLastDataIndex(i, row) 'запись индекса в Excel
    Call controlFileExample   'управление файлом-примером
    'выгрузка лишних макросов (DVB files), чтобы не иметь нескольких макросов:
        '- с одинаковыми стартовыми Sub (см. команду RunMacro "mdMain.StartDo")
        '- с режимами работы ПКМ (в этом случае работает макрос первый по алфавиту)
        Dim j%, nMacros%, UnloadMacroCur As Boolean
        Dim MacroPreviousName$, mpn$ 'mpn for MacrosLoadedBefore(j)
        If MacroPreviousName = "" Then 'если общий макрос ещё не работал
            'создание списка уже загруженных макросов
                'сначала надо привязать соответствующую библиотеку, то есть:
                    'Tools/References...
                    'Microsoft Visual Basic for Application Extensibility 5.3
                nMacros = Application.VBE.VBProjects.Count
                ReDim MacrosLoadedBefore(1 To nMacros)
                For j = 1 To nMacros
                    On Error Resume Next 'когда для нового макроса не указан Path
                    MacrosLoadedBefore(j) = Application.VBE.VBProjects(j).fileName
                    Err.Clear
                Next
            'выгрузка
                For j = 1 To nMacros
                    UnloadMacroCur = True
                    mpn = MacrosLoadedBefore(j)
                    If mpn = MacroFileName Then UnloadMacroCur = False
                    If mpn = "C:\ACADadd\ACADmacros\AAAgeneral\General.dvb" Then UnloadMac-roCur = False
                    If mpn = "C:\ACADadd\ACADmacros\AAAgeneral\MyLibrary2.dvb" Then Unload-MacroCur = False
                    If mpn = "C:\ACADadd\ACADmacros\AAAgeneral\MyLibrary3.dvb" Then Unload-MacroCur = False
                    If mpn = "C:\ACADadd\ACADmacros\AAAgeneral\MyLibrary4.dvb" Then Unload-MacroCur = False
                    If UnloadMacroCur Then
                        On Error Resume Next 'макросы, пристроенные к конкретному файлу, не вы-гружаются
                        UnloadDVB mpn
                        Err.Clear
                    End If
                Next
                LoadDVB MacroFileName
        Else
            If MacroPreviousName <> MacroFileName Then
                UnloadDVB MacroPreviousName 'выгрузка предыдущего макроса
                LoadDVB MacroFileName 'загрузка нового макроса
            End If
        End If
        MacroPreviousName = MacroFileName
    'запуск макроса
        RunMacro "mdMain.StartDo"'все мои макросы имеют такие модули и такие стартовые Subs
End Sub