[ARX程序]：如何直接通过CMenu类函数在autocad菜单中添加一条菜单命令项？

lzxlzx

不使用autocad的menu文件，如何直接通过CMenu类函数在autocad菜单中添加一条菜单命令项，并能发送命令执行？

xinxiande

[php]
CWnd* pWnd=NULL;
pWnd=CWnd::FromHandle (adsw_acadMainWnd());
CMenu* pMenu=NULL;
pMenu=pWnd->GetMenu ();//get the menu of the main wnd
int count=pMenu->GetMenuItemCount ();//change the setting
CString str;
for (int i = 0; i < count; i++)
{
      CString str;
      if (pMenu->GetMenuString(i, str, MF_BYPOSITION)){
                  AfxMessageBox(str);
          }
      
   }
   pMenu->AppendMenu (MF_BYPOSITION,ID_SHOW,"窗口(&S)");
   pWnd->DrawMenuBar ();
[/php]
我能得到菜单,并且也可以往上面添加,可是怎么添加消息处理函数啊???

qren25

我觉得最好最简单的方法是修改菜单文件

jzj

按照帮助文件中Using COM to Access AutoCAD ActiveX Automation 介绍的方法，从COM实现

bluewood_cn

[php]
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 = "电子报批";

        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)
                {
                       
                        VARIANT subMenuIndex;
                        VariantInit(&subMenuIndex);
                        V_VT(&subMenuIndex) = VT_I4;
                        V_I4(&subMenuIndex) = 0;
                       

                        IAcadPopupMenu IPopUp;
            //create it
            IAcadPopupMenu IPopUpMenu(IPopUpMenus.Add(cstrMenuName));
            
            VariantInit(&index);
            V_VT(&index) = VT_I4;
            V_I4(&index) = 0;

                        //0
                        IPopUpMenu.AddMenuItem(index,"图层","IniLayer ");
            VariantInit(&index);
            V_VT(&index) = VT_I4;
            //1
                        V_I4(&index) = 1;
            IPopUpMenu.AddSeparator(index);

                        //2
            V_I4(&index) = 2;
                        IAcadPopupMenu subMenu(IPopUpMenu.AddSubMenu(index,"预处理"));
                        subMenu.AddMenuItem(subMenuIndex,"重复点", "Deldup ");
                       
                        V_I4(&subMenuIndex) = 1;
                        subMenu.AddMenuItem(subMenuIndex,"自叉", "CKSC ");

                        V_I4(&subMenuIndex) = 2;
                        subMenu.AddMenuItem(subMenuIndex,"封闭", "CKCLOSE ");

       
                        //3
            V_I4(&index) = 3;
            IPopUpMenu.AddSeparator(index);
            
                        //4
                        V_I4(&index) = 4;
                        V_I4(&subMenuIndex) = 0;
                        subMenu.AttachDispatch(IPopUpMenu.AddSubMenu(index,"通用检测模块"));

                        subMenu.AddMenuItem(subMenuIndex,"检测", "CCRS ");

                        V_I4(&subMenuIndex) = 1;
                        subMenu.AddMenuItem(subMenuIndex,"重叠检测", "CKLAP ");
                       
                        V_I4(&subMenuIndex) = 2;
                        subMenu.AddMenuItem(subMenuIndex,"检测", "CKPOS ");
               
                        V_I4(&subMenuIndex) = 3;
                        subMenu.AddMenuItem(subMenuIndex,"检测", "CKPR ");
                       
                        V_I4(&subMenuIndex) = 4;
                        subMenu.AddMenuItem(subMenuIndex,"检测", "CKBD ");
               
                        //5
                        V_I4(&index) = 5;
            IPopUpMenu.AddSeparator(index);

                        //6
                        V_I4(&index) = 6;
                        V_I4(&subMenuIndex) = 0;
                        subMenu.AttachDispatch(IPopUpMenu.AddSubMenu(index,"专业检测模块"));

                        subMenu.AddMenuItem(subMenuIndex,"检测", "CRBUGR ");

                        V_I4(&subMenuIndex) = 1;
                        subMenu.AddMenuItem(subMenuIndex,"检测", "ROADGR ");
                       
                        V_I4(&subMenuIndex) = 2;
                        subMenu.AddMenuItem(subMenuIndex,"退让", "HXBK ");
               
                        V_I4(&subMenuIndex) = 3;
                        subMenu.AddMenuItem(subMenuIndex,"退让", "HRB ");
                       

                        //7
                        V_I4(&index) = 7;
            IPopUpMenu.AddSeparator(index);

                        //8
                        V_I4(&index) = 8;
                        IPopUpMenu.AddMenuItem(index,"阴影","shadow ");

                       
                        //9
                        V_I4(&index) = 9;
                        IPopUpMenu.AddMenuItem(index,"指标输出","Calcinfo ");

                        //10
                        V_I4(&index) = 10;
                        IPopUpMenu.AddMenuItem(index,"转换","dwg2shp ");
               
                        //11
                        V_I4(&index) = 11;
                        IPopUpMenu.AddMenuItem(index,"3图","CR3DBL ");

                        //12
                        V_I4(&index) = 12;
            IPopUpMenu.AddSeparator(index);

                        //13
                        V_I4(&index) = 13;
                        V_I4(&subMenuIndex) = 0;
                        subMenu.AttachDispatch(IPopUpMenu.AddSubMenu(index,"规整"));

                        subMenu.AddMenuItem(subMenuIndex,"属性", "ADDX ");

                        V_I4(&subMenuIndex) = 1;
                        subMenu.AddMenuItem(subMenuIndex,"外轮廓", "gb ");
                       

            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);
        }
        pDisp->Release();
    }
    CATCH(COleDispatchException,e)
    {
        e->ReportError();
        e->Delete();
    }
    END_CATCH;
[/php]

lzxlzx

谢谢了，原来ObjectArx中有例子。

xinxiande

但是如果是在启动autocad的时候加载arx程序时产生自己添加的菜单好像用com接口时不能实现的吧,还不如修改菜单文件来的实在啊!

binbin

最初由 xinxiande 发布
[B]但是如果是在启动autocad的时候加载arx程序时产生自己添加的菜单好像用com接口时不能实现的吧,还不如修改菜单文件来的实在啊! [/B]

在启动autocad的时候加载arx程序时产生自己添加的菜单用com接口时始能实现的,只不过你不能放在InitApplication()中实现,因为这时文档还不存在

xinxiande

请教如何的实现啊???

king_ws2002

还是搞不明白？各位大侠能不能讲得详细一点！

wind0048

如果使用修改菜单文件的方法，如何在打开autocad的同时使其自动加载要添加的菜单项中的下拉菜单项需要加载的arx？

xinxiande

启动autocad的时候自动加载该arx就好了吧！！