[求助]：加载菜单的问题

fengyuan95

我通过下面的代码在ARX中添加菜单，但是还有个问题没有解决，请教各位大虾：
在acad.rx文件中加入arx程序，CAD运行的时候加载该ARX，在On_kInitAppMsg消息中调用下面的代码调出菜单，但是菜单出不来，如果把菜单加载的代码放到一个command中，执行command，倒是可以调出菜单
我估计问题出在CAD运行的时候加载ARX，此时CAD本身的菜单还没有加载，当然程序中得不到对应的菜单对象，也就无法加载了
这个问题该如何解决？

1. 
   
2.   [FONT=courier new]
   
3.                 AutoCAD::IAcadApplication *pAcad;
   
4.                 AutoCAD::IAcadMenuBar *pMenuBar;
   
5.                 AutoCAD::IAcadMenuGroups *pMenuGroups;
   
6.                 AutoCAD::IAcadMenuGroup *pMenuGroup;
   
7.                 AutoCAD::IAcadPopupMenus *pPopUpMenus;
   
8.                 AutoCAD::IAcadPopupMenu *pPopUpMenu;
   
9.                 AutoCAD::IAcadPopupMenuItem *pPopUpMenuItem;
   
10.                 HRESULT hr = NOERROR;
    
11.                 CLSID clsid;
    
12.                 LPUNKNOWN pUnk = NULL;
    
13.                 LPDISPATCH pAcadDisp = NULL;
    
14. 
    
15.                 hr = ::CLSIDFromProgID(L"AutoCAD.Application",        &clsid);
    
16.                 if (FAILED(hr))
    
17.                         return;
    
18.                 if(::GetActiveObject(clsid, NULL, &pUnk) != S_OK)
    
19.                         return;
    
20. 
    
21.                 hr = pUnk->QueryInterface(IID_IDispatch, (LPVOID*) &pAcadDisp);
    
22.                 pUnk->Release();
    
23.                 if (FAILED(hr))
    
24.                         return;
    
25. 
    
26.                 hr = pAcadDisp->QueryInterface(AutoCAD::IID_IAcadApplication, (void**)&pAcad);
    
27.                 pAcadDisp->Release();
    
28.                 if (FAILED(hr))
    
29.                         return;
    
30. 
    
31.                 pAcad->put_Visible(true);
    
32.                 pAcad->get_MenuBar(&pMenuBar);
    
33.                 pAcad->get_MenuGroups(&pMenuGroups);
    
34.                 pAcad->Release();
    
35.                 long numberOfMenus;
    
36.                 pMenuBar->get_Count(&numberOfMenus);
    
37.                 pMenuBar->Release();
    
38.                 pMenuGroups->Item(_variant_t(0), &pMenuGroup);
    
39.                 pMenuGroups->Release();
    
40.                 AfxMessageBox("begin Load Mneu");
    
41. 
    
42.                 pMenuGroup->get_Menus(&pPopUpMenus);
    
43.                 pMenuGroup->Release();
    
44.                 if (isAdd)
    
45.                 {
    
46.                         AfxMessageBox("Load Mneu");
    
47.                         // 创建菜单
    
48.                         pPopUpMenus->Add(_bstr_t("规划管线"), &pPopUpMenu);
    
49.                         // 添加菜单项
    
50.                         if (pPopUpMenu != NULL)
    
51.                         {
    
52.                                 pPopUpMenu->put_Name(_bstr_t("规划管线"));
    
53.                                 pPopUpMenu->AddMenuItem(_variant_t(0), _bstr_t("绘制管线"), _bstr_t("Gxline "), &pPopUpMenuItem);
    
54. 
    
55.                                 pPopUpMenu->AddSeparator(_variant_t(1), &pPopUpMenuItem);
    
56. 
    
57.                                 pPopUpMenu->AddMenuItem(_variant_t(2), _bstr_t("查询属性"), _bstr_t("getP"), &pPopUpMenuItem);
    
58. 
    
59.                                 pPopUpMenu->InsertInMenuBar(_variant_t(numberOfMenus - 2));
    
60.                                 pPopUpMenu->Release();
    
61.                                 pPopUpMenuItem->Release();
    
62. 
    
63.                         }
    
64.                         else
    
65.                         {
    
66.                                 acutPrintf("\nMenu not created.");
    
67.                         }
    
68.                 }
    
69.                 else
    
70.                 {
    
71.                         AfxMessageBox("UnLoad Mneu");
    
72.        
    
73.                         pPopUpMenus->RemoveMenuFromMenuBar(_variant_t("规划管线"));
    
74.                 }
    
75.                 pPopUpMenus->Release();
    
76. 
    
77.         }  [/FONT]
    

复制代码