[求助]怎么不能添加菜单？

hellman · 发表于 2009-5-7 12:05:00

下面是我根据autodesk系列产品开发写的一段代码，我想往2008中加菜单，但怎么加不上？
请高手帮我看看！
using System;
using System.Collections.Generic;
using System.Text;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.Windows;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using System.Windows.Forms;
namespace cl
{
class Class2Menu
{
      [CommandMethod("Addmenu")]
      public void Addmenu()
      {
         AddContextMenu();
      }
      public ContextMenuExtension m_ContextMenu;
      private void AddContextMenu()
      {
         m_ContextMenu = new ContextMenuExtension();
         m_ContextMenu.Title = "工程图系统";
         Autodesk.AutoCAD.Windows.MenuItem mi;
         mi = new Autodesk.AutoCAD.Windows.MenuItem("用户管理");
         mi.Click += MenuUserM_OnClick;
         m_ContextMenu.MenuItems.Add(mi);
         Autodesk.AutoCAD.ApplicationServices.Application.AddDefaultContextMenuExtension(m_ContextMenu);

      }
      private void MenuUserM_OnClick(object Sender, EventArgs e)
      {

         MessageBox.Show("用户管理");

      }
}
}

sieben · 发表于 2009-5-7 13:34:00

public static void AddSModelPopupMenu()
{
   try
   {
      AcadMenuGroups mnus = (AcadMenuGroups)app.MenuGroups;
      AcadPopupMenus pmnus = mnus.Item(1).Menus;
      int count = 0;
      foreach (AcadPopupMenu mnu in pmnus)
      {
      if (mnu.OnMenuBar == true) count++;
      }
      AcadPopupMenu Menu_SModel = pmnus.Add("&Module");
      string macro = Convert.ToChar(Keys.Escape).ToString();
      AcadPopupMenuItem MenuItem_MainForm = Menu_SModel.AddMenuItem(Menu_SModel.Count, "&MainForm", macro + "SMF ");
      MenuItem_MainForm.HelpString = "Show main window";
      AcadPopupMenuItem MenuItem_SetBoard = Menu_SModel.AddMenuItem(Menu_SModel.Count, "Set &Board", macro + "mBoardW ");
      MenuItem_SetBoard.HelpString = "Set Board Width";

      if (count == 0)//下拉菜单不同时间的装载情况会不一样
      pmnus.InsertMenuInMenuBar("&Module", count + 12);//AutoCAD 2006 有13个下拉菜单项
      else
      pmnus.InsertMenuInMenuBar("&Module", ++count);
   }
   catch (System.Exception ex)
   {
   }
}