[Лиспер]

Собственно вопрос такой. Необходимо написать dvb-код (да, именно так, другие варианты не катят), который сразу после загрузки через vl-vbaload будет выполняться. Такое возможно? Если возможно, то как? Беглый поиск по форуму результата не дал
Спасибо.

[AlexV]

Сообщение от Лиспер Собственно вопрос такой. Необходимо написать dvb-код (да, именно так, другие варианты не катят), который сразу после загрузки через vl-vbaload будет выполняться. Такое возможно? Если возможно, то как? Беглый поиск по форуму результата не дал Спасибо.

Может, так:

Код:

[Выделить все]

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
 If CommandName = "VBARUN" Then
  If Application.VBE.ActiveVBProject.FileName = "E:\12345\LEP_04KV\EtotVBA.dvb" Then
     main
  End If
 End If
End Sub

Соответственно, в строке сравнения должно быть имя файла этого dvb проекта.. Ну и main - имя главного модуля..

[Лиспер]

AlexV, спасибо, но проблема в том, что я загружать dvb-модуль буду без команд, а через ActiveX (я не уверен, что сработает событие EndCommand).
В Excel, по-моему, можно было создать самозапускаемый макрос, со специальным именем (нечто типа Auto_Load или Auto_Start, точно уже не помню) - он срабатывал при загрузке документа, в котором он был прописан. И внутри AutoCAD очень сильно хочется подобный фокус получить...

[Vildar]

Лиспер, тогда, еще как вариент, почитай в справке по vba про acad.dvb. Если не найдешь, завтра отпишусь.

Automatically Run a VBA Macro You can automatically run any macro in the acad.dvb file by calling it with the command line version of VBARUN from an AutoCAD startup facility like acad.lsp. For example, to automatically run the macro named drawline, first save the drawline macro in the acad.dvb file. Next, invoke notepad.exe and create (or append to) acad.lsp the following lines: (defun S::STARTUP() (command "_-vbarun" "drawline") ) You can cause a macro to run automatically when VBA loads by naming the macro AcadStartup. Any macro in your acad.dvb file called AcadStartup will automatically get executed when VBA loads.

[Лиспер]

Vildar, я про acad.dvb где-то читал. Насколько я помню, это гарантирует загрузку dvb-модуля, но не запуск какого-либо кода из него. А мне надо именно запустить код, с загрузкой проблем нет никаких...

[Vildar]

You can cause a macro to run automatically when VBA loads by naming the macro AcadStartup.

Вы можете автоматически запускать макрос при его загрузке, назвав его AcadStartup

Э, ты успел прочитать цитату из справки, перед своим постом?

acad.dvb, используется для автоматического запуска макроса при загрузке акада. Тебе ето вроде не нужно.

[Лиспер]

Вот оно!
То есть, я правильно понимаю, что я делаю обычный модуль (не класс), в нем прописываю

Код:

[Выделить все]

Public Sub AcadStartup()
' Чего-то тут

И этого достаточно?

[Vildar]

Сообщение от Лиспер И этого достаточно?

Проверишь, скажешь )

[Лиспер]

Похоже, руки у меня не из оттуда растут. Написал модуль acad.dvb, положил его в пути доступа. Код:

Код:

[Выделить все]

Public sProfileName As String

Public Sub AcadStartup()
  sProfileName = ThisDrawing.Application.Preferences.Profiles.ActiveProfile
  If UCase(sProfileName) Like "*DEBUG*" Then
    ThisDrawing.Utility.Prompt Chr(10) & "*** Running VBA modules ***" & Chr(10) & Chr(13)
    MsgBox "Load DVB!", vbOKOnly + vbApplicationModal + vbCritical, sProfileName
  End If
End Sub

И в результате код срабатывает только при запуске AutoCAD, а хотелось бы в каждом документе. Это возможно решить, не привлекая vl-vbarun?

[Vildar]

Перейди в модуль ThisDrawing, в acad.dvb.
В верхнем выпадающем списке выбери AcadDocument. А во втором выпадающем списке выбери Activate.
Таким образом ты подпишешся на событие активации документа.
В этой процедуре выполняй нужные действия.

Не понятно, в каком случае должен запускаться твой код? Во время создания нового документа? Или во время активации, т.е. при каждом переходе на документ (и во время открытия нового тоже будет срабатывать).
Если только при открытии нового документа. То наверное нужно подписаться на событие запуска команды.

[Лиспер]

По идее должен запускаться один раз при открытии существующего документа или создании нового (аналог "самозапуска" lisp). В .NET это событие называется, дай бог памяти, DocumentCreated. В VBA аналога что-то не вижу, кроме Activate.

[Vildar]

Лиспер, тогда нужно подписаться на событие Application.BeginOpen.
Щас прикреплю макрос. Минут через пять. Пришлю ЛС.

Почитай справку по VBA. Раздел Use Eventes.

[Лиспер]

Это получается, что надо использовать уже класс?

Код:

[Выделить все]

Option Explicit

Public WithEvents ACADApp As AcadApplication

Private Sub AcadApp_BeginOpen(sFileName As String)
  OnNewOrOpenFile
End Sub

Private Sub ACADApp_NewDrawing()
  OnNewOrOpenFile
End Sub

Private Sub OnNewOrOpenFile()
  'И здесь чаво хочу
End Sub

??
P.S. от кода или готового dvb не откажусь

[Vildar]

Сообщение от Лиспер Это получается, что надо использовать уже класс?

Да. Все правильно. Молоток.

Сообщение от Лиспер P.S. от кода или готового dvb не откажусь

См. мой предыдущий пост. Прикрепил макрос для примера.