斑竹，问一个比较难的问题，在ARX中如何加载菜单

easypower

1.profiles

2.com方式产生

庞琛虹

开发文档中好像有个例子的啊

unionsoft

可以在Arx直接调用命令'menu'来加载，这样当Arx加载时，菜单也加载了。
当然之前要将对话框模式关闭: filedia=0

gentlerain

 static void HxjMenuCom_AddMenu(void)
 {
  // Add your code for command HxjMenuCom._AddMenu here
  TRY
  {
   CAcadApplication IAcad(acedGetAcadWinApp()->GetIDispatch(TRUE));
   CAcadMenuBar IMenuBar(IAcad.get_MenuBar());
   long numberOfMenus;
   numberOfMenus=IMenuBar.get_Count();
   CAcadMenuGroups IMenuGroups(IAcad.get_MenuGroups());
   VARIANT index;
   VariantInit(&index);
   V_VT(&index)=VT_I4;
   V_I4(&index)=0;
   CAcadMenuGroup IMenuGroup(IMenuGroups.Item(index));
   CAcadPopupMenus IPopUpMenus(IMenuGroup.get_Menus());
   CString cstrMenuName="总图(&Z)";
   VariantInit(&index);
   V_VT(&index)=VT_BSTR;
   V_BSTR(&index)=cstrMenuName.AllocSysString();
   IDispatch* pDisp=NULL;
   //see if the menu is already there
   TRY
   {
    pDisp=IPopUpMenus.Item(index);
    pDisp->AddRef();
   }
   CATCH(COleDispatchException,e)
   {

   }
   END_CATCH;
   if(pDisp==NULL)
   {
    //create it
    CAcadPopupMenu IPopUpMenu(IPopUpMenus.Add(cstrMenuName));
    VariantInit(&index);
    V_VT(&index)=VT_I4;
    V_I4(&index)=0;
    IPopUpMenu.AddMenuItem(index,"直线(&L)","_Line ");
    ///////////////////
    VariantInit(&index);
    V_VT(&index)=VT_I4;
    V_I4(&index)=1;
    IPopUpMenu.AddSeparator(index);
    ///////////////////
    VariantInit(&index);
    V_VT(&index)=VT_I4;
    V_I4(&index)=2;
    IPopUpMenu.AddMenuItem(index,"圆(&C)","_Circle ");

    pDisp=IPopUpMenu.m_lpDispatch;
    pDisp->AddRef();
   }

   CAcadPopupMenu IPopUpMenu(pDisp);
   if(!IPopUpMenu.get_OnMenuBar())
   {
    VariantInit(&index);
    V_VT(&index)=VT_I4;
    V_I4(&index)=numberOfMenus-2;
    IPopUpMenu.InsertInMenuBar(index);
   }
   else
   {
    VariantInit(&index);
    V_VT(&index)=VT_BSTR;
    V_BSTR(&index)=cstrMenuName.AllocSysString();
    IPopUpMenus.RemoveMenuFromMenuBar(index);
    VariantClear(&index);
   }
   pDisp->Release();
  }
  CATCH(COleDispatchException,e)
  {
   e->ReportError();
   e->Delete();
  }
  END_CATCH;
 }

稍微改一下就可以变为自动了，经过调试可以运行

松竹

不知是想使用代码的方式动态添加菜单还是使用mnu文件的方式添加菜单，如果使用代码的方式添加菜单需要使用AutoCAD的com接口来实现。参考下面的代码：

void TdiFoundationApp::CreateMenuItem()
{
 TRY
 {
  IAcadApplication IAcad(acedGetAcadWinApp()->GetIDispatch(TRUE));

  IAcadMenuBar IMenuBar(IAcad.GetMenuBar());

  long numberOfMenus;
  numberOfMenus = IMenuBar.GetCount();

  IAcadMenuGroups IMenuGroups(IAcad.GetMenuGroups());

  VARIANT index;
  VariantInit(&index);
  V_VT(&index) = VT_I4;
  V_I4(&index) = 0;

  IAcadMenuGroup IMenuGroup(IMenuGroups.Item(index));

  IAcadPopupMenus IPopUpMenus(IMenuGroup.GetMenus());

  CString cstrMenuName = _T("TDI");

  VariantInit(&index);
  V_VT(&index) = VT_BSTR;
  V_BSTR(&index) = cstrMenuName.AllocSysString();

  IDispatch* pDisp=NULL;

  //see if the menu is already there
  TRY
  {
   pDisp = IPopUpMenus.Item(index);
   pDisp->AddRef();
  }
  CATCH(COleDispatchException,e)
  {}
  END_CATCH;

  int iIndex = 0;
  if (pDisp==NULL)
  {
   //create it
   IAcadPopupMenu IPopUpMenu(IPopUpMenus.Add(cstrMenuName));

   VariantInit(&index);
   V_VT(&index) = VT_I4;
   V_I4(&index) = iIndex++;
   IPopUpMenu.AddMenuItem(index, _T("新建(&N)"), _T("_MyNEW "));

   VariantInit(&index);
   V_VT(&index) = VT_I4;
   V_I4(&index) = iIndex++;
   IPopUpMenu.AddMenuItem(index, _T("检入(&I)"), _T("_MyCHECKIN "));

   pDisp = IPopUpMenu.m_lpDispatch;
   pDisp->AddRef();
  }

  IAcadPopupMenu IPopUpMenu(pDisp);
  if (!IPopUpMenu.GetOnMenuBar())
  {
   VariantInit(&index);
   V_VT(&index) = VT_I4;
   V_I4(&index) = numberOfMenus - 2;;
   IPopUpMenu.InsertInMenuBar(index);
  }
  else
  {
   VariantInit(&index);
   V_VT(&index) = VT_BSTR;
   V_BSTR(&index) = cstrMenuName.AllocSysString();
   IPopUpMenus.RemoveMenuFromMenuBar(index);
   VariantClear(&index);
  }
  pDisp->Release();
 }
 CATCH(COleDispatchException,e)
 {
  e->ReportError();
  e->Delete();
 }
 END_CATCH;
}

nogirlfriend

利用COM接口来实现相关autocad菜单的扩展。。。。

nogirlfriend

利用Com来做吧

具体见例子：\samples\com\AsdkMfcComSamp_dg