Как выполнить встроенную команду Inventor? - PullRequest
Новая
       30

Как выполнить встроенную команду Inventor?

0 голосов
/ 11 июля 2019

Первое сообщение !!

Код (фрагмент приведен ниже) компилируется, собирается, запускается без ошибок.MessageBox.Show("New Sketch") работает без проблем, но cd.Execute(), похоже, не срабатывает.

Когда я быстро просматриваю 'cd.Execute ()', отображаемая информация отражает, что к правильной команде обращаются,но ничего не происходит на экране.

Поскольку это мой самый первый плагин, чтобы попытаться написать, я довольно зеленая за ушами.Я провел обширный поиск в Google, но, очевидно, я прибегаю к неверным терминам.

Любая помощь приветствуется!

Фрагмент кода: 

        Private Sub m_Sketch_OnNewSketch(DocumentObject As _Document,
                                         Sketch As Sketch,
                                         BeforeOrAfter As EventTimingEnum,
                                         Context As NameValueMap,
                                         ByRef HandlingCode As HandlingCodeEnum) _
                                         Handles m_SketchEvent.OnNewSketch

            Select Case BeforeOrAfter

                Case EventTimingEnum.kBefore

                Case EventTimingEnum.kAfter

                    Dim cd As ControlDefinition = 
                       m_inventorApplication.CommandManager. _
                       ControlDefinitions.Item("SketchSliceGraphicsCmd")
                    cd.Execute()

                    MessageBox.Show("New Sketch")

                Case EventTimingEnum.kAbort
            End Select
...