add-in - 如何执行本机 Inventor 命令？

Question

第一次发帖！！

代码（下面列出的代码段）编译、构建、运行没有任何错误。MessageBox.Show("New Sketch")运行没有问题，但cd.Execute()似乎没有触发。

当我快速查看“cd.Execute()”时，显示的信息反映了正在访问正确的命令，但屏幕上没有任何反应。

因为这是我第一次尝试编写插件，所以我很耳目一新。我做了一些广泛的谷歌搜索，但显然我在谷歌搜索错误的术语。

任何帮助表示赞赏！

代码片段：

        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