VB.NET 在 AutoCAD 中创建工具栏菜单

在 VB.NET 中，可以使用以下代码来创建 AutoCAD 中的工具栏菜单：

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Windows

Public Class MyPlugin
    Implements IExtensionApplication

    Public Sub Initialize() Implements IExtensionApplication.Initialize
        ' 创建工具栏菜单
        Dim toolbarMenu As New ToolbarPalette('MyToolbar')
        toolbarMenu.Title = 'My Toolbar'
        
        ' 创建按钮并添加到工具栏菜单
        Dim button1 As New ToolbarButton()
        button1.Text = 'Button 1'
        toolbarMenu.AddItem(button1)
        
        Dim button2 As New ToolbarButton()
        button2.Text = 'Button 2'
        toolbarMenu.AddItem(button2)
        
        ' 将工具栏菜单添加到Autocad中
        Autodesk.AutoCAD.ApplicationServices.Core.Application.AddPalette(toolbarMenu)
    End Sub

    Public Sub Terminate() Implements IExtensionApplication.Terminate
        ' 清理工作
    End Sub

End Class

在上述代码中，我们首先创建了一个名为'MyToolbar'的工具栏菜单对象toolbarMenu，然后设置了菜单的标题为'My Toolbar'。接下来，我们创建了两个按钮button1和button2，并将它们分别添加到工具栏菜单中。最后，我们使用Autodesk.AutoCAD.ApplicationServices.Core.Application.AddPalette()方法将工具栏菜单添加到 AutoCAD 中。

要使上述代码生效，还需要在 AutoCAD 启动时加载插件。可以在 VB.NET 项目的属性窗口中的'调试'选项卡中，设置'启动外部程序'为 AutoCAD 的可执行文件路径，然后将'命令行参数'设置为'/b 要加载的插件 DLL 路径'，这样 AutoCAD 启动时会自动加载插件。

注意：上述代码中使用了Autodesk.AutoCAD.Runtime和Autodesk.AutoCAD.Windows命名空间，因此需要在项目中引用对应的 AutoCAD 相关程序集。