激活NX窗口的按钮

原理：取得按钮名称以后，通过运行宏文件激活按钮

Imports System.IO
Imports System.Runtime.InteropServices
Imports NXOpen.MenuBar

    <DllImport("libugui", EntryPoint:="?MACRO_playback_from_usertool@@YAXPEBD@Z", CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Ansi)> _
    Private Sub MACRO_playback_from_usertool(ByVal lpName As String)
    End Sub
    <DllImport("libugui", EntryPoint:="?MACRO_playback_from_usertool@@YAXPBD@Z", CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Ansi)> _
    Private Sub MACRO_playback_from_usertoolA(ByVal lpName As String) '32位用法
    End Sub

    ''' <summary>
    ''' 执行宏文件.
    ''' </summary>
    ''' <param name="macroFile">指定宏文件路径</param>
    ''' <returns><c>true</c> 运行成功, <c>false</c> 否则.</returns>
    Public Function ExecuteMacro(ByVal macroFile As String) As Boolean
        Dim response As Boolean = False
        Try
            If File.Exists(macroFile) Then
                If IntPtr.Size = 8 Then
                    MACRO_playback_from_usertool(macroFile)
                Else
                    MACRO_playback_from_usertoolA(macroFile)
                End If
                response = True
            End If
        Catch ex As Exception
        End Try
        Return response
    End Function

    ''' <summary>
    ''' 激活NX窗口按钮
    ''' </summary>
    ''' <param name="menuBtn">指定需要激活的按钮,必须是PushButton或者ApplicationButton</param>
    ''' <returns>激活成功，返回<c>true</c>，否则返回<c>false</c>。</returns>
    ''' <remarks>
    ''' 最低版本NX6.0.0,<br/>
    ''' 许可证要求: None.
    ''' </remarks>
    ''' <example>
    ''' <code src="src" language="VB.NET" encoding="c"/>
    ''' Dim menuBtn As NXOpen.MenuBar.MenuButton<br/>
    ''' menuBtn= NXOpen.UI.GetUI.MenuBarManager.GetButtonFromName("UG_MODELING_BLOCK_FEATURE")<br/>
    ''' menuBtn.ActiveMenuButton()<br/>
    ''' <code src="src" language="C#" encoding="c"/>
    ''' NXOpen.MenuBar.MenuButton menuBtn<br/>
    ''' menuBtn= NXOpen.UI.GetUI.MenuBarManager.GetButtonFromName("UG_MODELING_BLOCK_FEATURE");<br/>
    ''' menuBtn.ActiveMenuButton();<br/>
    ''' </example>
    Public Function ActiveMenuButton(ByVal menuBtn As MenuButton) As Boolean
        Dim response As Boolean = False
        Try
            If menuBtn Is Nothing Then
                Exit Try
            End If
            Dim menuType = menuBtn.ButtonType
            If menuType <> MenuButton.Type.PushButton OrElse menuType = MenuButton.Type.ApplicationButton Then
                Exit Try
            End If
            Dim macroFile As String = Path.GetDirectoryName(My.Application.GetType.Assembly.Location) & "\actionBtn.macro"
            If File.Exists(macroFile) Then
                File.Delete(macroFile)
            End If
            Dim sw As New StreamWriter(macroFile)
            sw.WriteLine("NX 6.0.0")
            sw.WriteLine("Macro File: " & macroFile)
            sw.WriteLine("Macro Version 7.30")
            sw.WriteLine("Macro List Language and Codeset: simplified chine 13")
            sw.WriteLine("Created by Administrator on Fri Aug 21 18:28:49 2015")
            sw.WriteLine("Part Name Display Style: $FILENAME")
            sw.WriteLine("Selection Parameters 1 2 0.305380 1")
            sw.WriteLine("Display Parameters 1.000000 19.601460 14.127756 -1.000000 -0.720750 1.000000 0.720750")
            sw.WriteLine("*****************")
            sw.WriteLine("RESET")
            sw.WriteLine(String.Format("MENU, 0, {0} UG_GATEWAY_MAIN_MENUBAR ! ", menuBtn.ButtonName))
            sw.Close()
            If ExecuteMacro(macroFile) Then
                response = True
            End If
            File.Delete(macroFile)
        Catch ex As Exception
        End Try
        Return response
    End Function


    ''' <summary>
    ''' 激活NX窗口按钮toggle按钮.
    ''' </summary>
    ''' <param name="menuBtn">ToggleButton.</param>
    ''' <param name="ToggleStatus">切换状态</param>
    ''' <returns>激活成功，返回<c>true</c>，否则返回<c>false</c>。</returns>
    ''' <remarks>
    ''' 最低版本NX6.0.0,<br/>
    ''' 许可证要求: None.
    ''' </remarks>
    ''' <example>
    ''' <code src="src" language="VB.NET" encoding="c"/>
    ''' Dim menuBtn As NXOpen.MenuBar.MenuButton<br/>
    ''' menuBtn= NXOpen.UI.GetUI.MenuBarManager.GetButtonFromName("UG_WCS_DISPLAY")<br/>
    ''' menuBtn.ActiveToggleButton()<br/>
    ''' <code src="src" language="C#" encoding="c"/>
    ''' NXOpen.MenuBar.MenuButton menuBtn<br/>
    ''' menuBtn= NXOpen.UI.GetUI.MenuBarManager.GetButtonFromName("UG_WCS_DISPLAY");<br/>
    ''' menuBtn.ActiveToggleButton();<br/>
    ''' </example>
    Public Function ActiveToggleButton(ByVal menuBtn As MenuButton, ByVal ToggleStatus As MenuButton.Toggle) As Boolean
        Dim response As Boolean = False
        Try
            If menuBtn Is Nothing Then
                Exit Try
            End If
            If menuBtn.ButtonType <> MenuButton.Type.ToggleButton Then
                Exit Try
            End If

            If menuBtn.ToggleStatus = ToggleStatus Then
                Exit Try
            End If

            Dim macroFile As String = Path.GetDirectoryName(My.Application.GetType.Assembly.Location) & "\actionBtn.macro"
            If File.Exists(macroFile) Then
                File.Delete(macroFile)
            End If
            Dim sw As New StreamWriter(macroFile)
            sw.WriteLine("NX 6.0.0")
            sw.WriteLine("Macro File: " & macroFile)
            sw.WriteLine("Macro Version 7.30")
            sw.WriteLine("Macro List Language and Codeset: simplified chine 13")
            sw.WriteLine("Created by Administrator on Fri Aug 21 18:28:49 2015")
            sw.WriteLine("Part Name Display Style: $FILENAME")
            sw.WriteLine("Selection Parameters 1 2 0.305380 1")
            sw.WriteLine("Display Parameters 1.000000 19.601460 14.127756 -1.000000 -0.720750 1.000000 0.720750")
            sw.WriteLine("*****************")
            sw.WriteLine("RESET")
            sw.WriteLine(String.Format("MENU, {0}, {1} UG_GATEWAY_MAIN_MENUBAR ! ", If(ToggleStatus = MenuButton.Toggle.Off, 0, 1), menuBtn.ButtonName))
            sw.Close()
            If ExecuteMacro(macroFile) Then
                response = True
            End If
            File.Delete(macroFile)
        Catch ex As Exception
        End Try
        Return response
    End Function

VB.NET代码