Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: I_stiv от 18-09-2017, 16:56:26

Название: Запись выполняемых команд
Отправлено: I_stiv от 18-09-2017, 16:56:26
Добрый день.

Inventor 2015. Пишу на VBA.
Необходимо записывать логи выполненных команд .
(по аналогии : в AutoCAD есть штатное средства записи журнала всех команд).

в API нашел
Код - Visual Basic [Выбрать]
  1. ThisApplication.CommandManager.ActiveCommand
пишет текущую команду в данный момент времени.
но не могу найти событие начала команды.
Каким образом "ловить" начало команды ? (Мне не важно чем она завершилась и сколько длилась.)
Какой правильный подход к созданию лога вида: "название комманды- время"?
Название: Re: Запись выполняемых команд
Отправлено: Александр Ривилис от 18-09-2017, 17:23:37
Я очень мало чего смыслю в Inventor API, но нашел пару таких событий в документации:
1. UserInputEvents.OnActivateCommand
2. UserInputEvents.OnTerminateCommand
Первое событие - начало команды, второе - завершение команды.
Название: Re: Запись выполняемых команд
Отправлено: mikazakov от 18-09-2017, 17:51:52
Не все команды ловятся. Да и некоторые объекты, особенно на чертежах, вообще не распознаются.
Инвентор это не автокад, поэтому полноценный макрорекордер сделать не получится.
Название: Re: Запись выполняемых команд
Отправлено: I_stiv от 18-09-2017, 19:43:05
Цитата: Александр Ривилис от 18-09-2017, 17:23:37
UserInputEvents.OnActivateCommand
насколько я понял, это некий  обработчик навешиваемый на определенную команду.
но нужно уже знать что команда введена.

Цитата: mikazakov от 18-09-2017, 17:51:52
Не все команды ловятся.
подскажите как поймать те которые ловятся ? (минимальный пример).

вот имена команд которые мне нужны (вроде как) - есть даже пример в API "Print list of all Inventor Commands API Sample"
хотя вероятно это только список команд API , а не внутренних команд Inventor/
Код - Visual Basic [Выбрать]
  1. Dim oControlDef As ControlDefinition
  2. oControlDef.InternalName
Название: Re: Запись выполняемых команд
Отправлено: mikazakov от 18-09-2017, 21:07:57
Нужно создать класс с именем Class1 и внести следующий код:

Код - Visual Basic [Выбрать]
  1. Option Explicit
  2.  
  3. Private WithEvents UserInput As UserInputEvents
  4.  
  5. Private Sub Class_Initialize()
  6.     Set UserInput = ThisApplication.CommandManager.UserInputEvents
  7. End Sub
  8.  
  9. Private Sub UserInput_OnActivateCommand(ByVal CommandName As String, ByVal Context As NameValueMap)
  10. MsgBox "Имя команды: " & CommandName
  11. End Sub
  12.  
  13.  

В модуле создать следующий макрос и запустить его:

Код - Visual Basic [Выбрать]
  1. Option Explicit
  2.  
  3. Sub ShowCommandsName()
  4. Dim commands As Class1
  5.  
  6. Set commands = New Class1
  7.  
  8. Do While True
  9.         ThisApplication.UserInterfaceManager.DoEvents
  10. Loop
  11.  
  12. End Sub
  13.  

P.S. Давно уже есть тот же VB.NET или C#, когда же этот VBA сдохнет наконец.