AutoCAD VBA添加菜单

# 给cad添加自定义菜单

Private Sub AddBar()
    Dim NewMenuItem As AcadPopupMenuItem
    Dim TheMacro As String
    Dim MI As Integer
    
    On Error Resume Next
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = Application.MenuGroups.Item(0)
    'Create the new menu
    Set NewMenu = currMenuGroup.Menus.Add("批量绘图")
    If Err.Number Then
        Err.Clear
        For Each NewMenu In currMenuGroup.Menus
            If NewMenu.Name = "批量绘图" Then Exit For
        Next
    End If
    
    'Add a menu item to the new menu
    'Assign the macro string the VB equivalent of "ESC ESC _open "
    'TheMacro = Chr(3) & Chr(3) & Chr(95) & "-vbarun ""GeoSection.dvb!DZPM.GeoSection""" & Chr(32)
    TheMacro = Chr(3) & Chr(3) & Chr(95) & "-vbarun ""MainSub""" & Chr(32)
    Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "批量绘图", TheMacro)
    If Err.Number Then Err.Clear
    'Display the menu on the menu bar
    NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
    If Err.Number Then Err.Clear
End Sub

写几个事件驱动菜单显示

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
    If NewMenu Is Nothing Then AddBar
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
    If NewMenu Is Nothing Then AddBar
End Sub

Public Sub MainSub()
    Dim frm As New UserForm1
    Call UserForm1.Show
End Sub

 最终效果

 增加c# 调用的代码

[Autodesk.AutoCAD.Runtime.CommandMethod("QIM")]
        public void AddMenuBar()
        {
            dynamic comAcadApp = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication;
            int icount = comAcadApp.MenuGroups.Item(0).Menus.Count;
            for (int i = 0; i < icount; i++)
            {
                if (comAcadApp.MenuGroups.Item(0).Menus.Item(i).Name=="测试菜单") 
                {
                    Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(""测试菜单" MENU 已经存在了！");
                    return;
                }
            }
            dynamic pmParent = comAcadApp.MenuGroups.Item(0).Menus.Add("测试菜单");
            dynamic pm = pmParent.AddSubMenu(pmParent.Count + 1, "OPEN_CLOSE");

            dynamic pmi0 = pmParent.AddMenuItem(pmParent.Count + 1, "退出","Exit ");

            dynamic pmi1 = pm.AddMenuItem(pm.Count + 1, "打开", "Open ");
            dynamic pmi2 = pm.AddMenuItem(pm.Count + 1, "打开02","Close ");
            pmParent.InsertInMenuBar(comAcadApp.MenuBar.Count + 1);
            Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(""测试菜单" MENU 添加成功！");
        }