[ARX函数]：接口问题，高手请进！

lig555

请看，我从别处抄来的程序，是应用com接口来创建菜单。但运行到标志位置就出现“未处理的异常E06d7363(E06D7363H)地址：77E7E8BBh”错误：
部分代码如下：

IAcadMenuBar                AcadMenuBar;
IAcadPopupMenus                AcadPopupMenus;
IAcadPopupMenu                AcadPopupMenu;
//创建AcadMenuBar接口

AcadMenuBar.AttachDispatch(AcadApplication.GetMenuBar());
//获得菜单栏的个数
NumOfMenu=AcadMenuBar.GetCount();
//创建AcadPopupMenus接口

AcadPopupMenus.AttachDispatch(AcadMenuGroup.GetMenus());
//创建AcadPopupMenu接口

AcadPopupMenu.AttachDispatch(AcadPopupMenus.Add("文具(&Q)"));
//就在上面这一句就出错了！

我想是不是因为地址冲突了呢？但我不知道是为什么，怎么冲突了，怎么解决，请高手帮忙看一下！

XDSoft

给你贴篇用ACTIVEX创建POP菜单的资料，你看看，讲的比较详细了。

你的问题解决后，希望把完整的代码贴到论坛和大家分享。

2. 
   
3. [FONT=courier new]
   
4. How to create a pull-down popup menu through ActiveX?  
   
5. ID    17818  
   
6. Applies to:    AutoCAD
   
7. 
   
8. This document is part of    ObjectARX   COM-ActiveX Interfaces   Menus and Toolbars   MFC     
   
9. 
   
10. 
    
11. Question
    
12. I'm trying to access the menu groups and popup menus exposed through Automation,
    
13. but there are so many different objects, menu groups, menu group, popup menus,
    
14. and popup menu item. Is there a client sample in C++?
    
15. Answer
    
16. It can be confusing to sort through so many objects and use them. A good way to
    
17. understand their relationships is to look at the Automation Object Model because
    
18. it depicts a hierarchical relationship among the menu objects as well as with
    
19. others.
    
20. 
    
21. The following code creates a dialog-based client application, assigns a button
    
22. to handle "Start Acad", and assigns a button to handle "Add a menu item". (The
    
23. following code assumes you know how to create a dialog-based MFC application.)
    
24. 
    
25. In the dialog's header file, the following member variables were declared (you
    
26. need to import interface classes from the acad.tlb file using the ClassWizard,
    
27. Add class..., choose From type library. Be sure not to use #import).
    
28. IAcadApplication m_IApp;
    
29.         IAcadDocument         m_IDoc;
    
30.         IAcadModelSpace  m_IMSpace;
    
31.        
    
32.         IAcadMenuGroups         m_IMenuGrps;
    
33.         IAcadMenuGroup                m_IMenuGrp;
    
34.         IAcadPopupMenus         m_IPopupMenus;
    
35.         IAcadPopupMenu                m_IPopupMenu;
    
36.         IAcadPopupMenuItem        m_IPopupMenuItem;
    
37. In the dialog's cpp file, add the following (2) handlers:
    
38. //
    
39. // This function starts Acad and initialize the appropriate
    
40. // interface objects
    
41. //
    
42. void CClientDlg::OnStartAcad()
    
43. {
    
44.         HRESULT hr = NOERROR;
    
45.         CLSID clsid;
    
46.         LPUNKNOWN pUnk = NULL;
    
47.         LPDISPATCH pDisp = NULL;
    
48. 
    
49.         BeginWaitCursor();
    
50.         CoInitialize(NULL);
    
51.         hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);
    
52. 
    
53.         if (SUCCEEDED(hr))
    
54.         {
    
55.                 if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)
    
56.                 {
    
57.                         VERIFY(pUnk->QueryInterface(IID_IDispatch, (LPVOID*)
    
58. &pDisp) == S_OK);
    
59.                         m_IApp.AttachDispatch(pDisp);
    
60.                         pUnk->Release();
    
61.                 }
    
62.                 else
    
63.                         VERIFY(m_IApp.CreateDispatch(clsid) == TRUE);
    
64.                
    
65.                 m_IApp.SetVisible(TRUE);
    
66. 
    
67.                 pDisp = m_IApp.GetActiveDocument();
    
68.                 m_IDoc.AttachDispatch(pDisp);
    
69.                 pDisp = m_IDoc.GetModelSpace();
    
70.                 m_IMSpace.AttachDispatch(pDisp);
    
71. 
    
72.         }
    
73.         else
    
74.                 AfxMessageBox("Acad.Application is not registered!");
    
75. 
    
76.         // remember the you need to call CoUninitialize(); somewhere
    
77.         // I would do it in the destructor of the dialog
    
78.         EndWaitCursor();
    
79. }
    
80. //
    
81. // This function adds a popup menu to the exist row of popup menus
    
82. // displayed in the menu bar.
    
83. //
    
84. // Note: The popup menus and menu items that we are adding
    
85. // through Automation, are in memory only. They are not
    
86. // saved in any menu files, no persistent in another word.
    
87. //
    
88. void CClientDlg::OnAddMenuButton()
    
89. {
    
90.         // get all the menu groups
    
91.         LPDISPATCH pDisp = m_IApp.GetMenuGroups();
    
92.         m_IMenuGrps.AttachDispatch(pDisp);
    
93. 
    
94.         // get to the menu group that we're interested
    
95.         VARIANT var;
    
96.         var.vt = VT_I4;
    
97.         var.lVal = 0;
    
98.         pDisp = m_IMenuGrps.Item(var);
    
99.         m_IMenuGrp.AttachDispatch(pDisp);
    
100. 
     
101.         // get the popup menus in the menu group
     
102.         pDisp = m_IMenuGrp.GetMenus();
     
103.         m_IPopupMenus.AttachDispatch(pDisp);
     
104. 
     
105.         long cnt = m_IPopupMenus.GetCount();
     
106.         VARIANT  vtIndex;
     
107.         vtIndex.vt = VT_I4;
     
108.         vtIndex.lVal = cnt + 1;
     
109. 
     
110.         // append a popup menu to the popup menus
     
111.         const char myPopupMenuName[] = "TestPopupMenu";
     
112.         pDisp = m_IPopupMenus.Add(myPopupMenuName);
     
113.         m_IPopupMenu.AttachDispatch(pDisp);
     
114.         m_IPopupMenus.InsertMenuInMenuBar(myPopupMenuName, vtIndex);
     
115. 
     
116.         // append a menu item to the popup menu we added
     
117.         // notice the last parameter of AddMenuItem is for
     
118.         // a command
     
119.         vtIndex.lVal = 0;
     
120.         pDisp = m_IPopupMenu.AddMenuItem(vtIndex, "TestItem", "Regen ");
     
121.         m_IPopupMenuItem.AttachDispatch(pDisp);
     
122. }
     
123. Removing menu bar and items are just as easy. You can call
     
124. RemoveMenuFromMenuBar() to remove a popup menu, for example.[/FONT]

<br /> [FONT=courier new]<br /> How to create a pull-down popup menu through ActiveX?  <br /> ID    17818  <br /> Applies to:    AutoCAD <br /> <br /> This document is part of    ObjectARX   COM-ActiveX Interfaces   Menus and Toolbars   MFC     <br /> <br /> <br /> Question <br /> I'm trying to access the menu groups and popup menus exposed through Automation,<br /> but there are so many different objects, menu groups, menu group, popup menus,<br /> and popup menu item. Is there a client sample in C++?<br /> Answer <br /> It can be confusing to sort through so many objects and use them. A good way to<br /> understand their relationships is to look at the Automation Object Model because<br /> it depicts a hierarchical relationship among the menu objects as well as with<br /> others. <br /> <br /> The following code creates a dialog-based client application, assigns a button<br /> to handle "Start Acad", and assigns a button to handle "Add a menu item". (The<br /> following code assumes you know how to create a dialog-based MFC application.)<br /> <br /> In the dialog's header file, the following member variables were declared (you<br /> need to import interface classes from the acad.tlb file using the ClassWizard,<br /> Add class..., choose From type library. Be sure not to use #import).<br /> IAcadApplication m_IApp;<br />         IAcadDocument         m_IDoc;<br />         IAcadModelSpace  m_IMSpace;<br />         <br />         IAcadMenuGroups         m_IMenuGrps;<br />         IAcadMenuGroup                m_IMenuGrp;<br />         IAcadPopupMenus         m_IPopupMenus;<br />         IAcadPopupMenu                m_IPopupMenu;<br />         IAcadPopupMenuItem        m_IPopupMenuItem;<br /> In the dialog's cpp file, add the following (2) handlers:<br /> //<br /> // This function starts Acad and initialize the appropriate <br /> // interface objects<br /> //<br /> void CClientDlg::OnStartAcad() <br /> {<br />         HRESULT hr = NOERROR;<br />         CLSID clsid;<br />         LPUNKNOWN pUnk = NULL;<br />         LPDISPATCH pDisp = NULL;<br /> <br />         BeginWaitCursor();<br />         CoInitialize(NULL);<br />         hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);<br /> <br />         if (SUCCEEDED(hr))<br />         {<br />                 if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)<br />                 {<br />                         VERIFY(pUnk->QueryInterface(IID_IDispatch, (LPVOID*)<br /> &pDisp) == S_OK);<br />                         m_IApp.AttachDispatch(pDisp);<br />                         pUnk->Release();<br />                 }<br />                 else<br />                         VERIFY(m_IApp.CreateDispatch(clsid) == TRUE);<br />                 <br />                 m_IApp.SetVisible(TRUE);<br /> <br />                 pDisp = m_IApp.GetActiveDocument();<br />                 m_IDoc.AttachDispatch(pDisp);<br />                 pDisp = m_IDoc.GetModelSpace();<br />                 m_IMSpace.AttachDispatch(pDisp);<br /> <br />         }<br />         else<br />                 AfxMessageBox("Acad.Application is not registered!");<br /> <br />         // remember the you need to call CoUninitialize(); somewhere<br />         // I would do it in the destructor of the dialog<br />         EndWaitCursor();<br /> }<br /> // <br /> // This function adds a popup menu to the exist row of popup menus<br /> // displayed in the menu bar.<br /> //<br /> // Note: The popup menus and menu items that we are adding<br /> // through Automation, are in memory only. They are not <br /> // saved in any menu files, no persistent in another word.<br /> //<br /> void CClientDlg::OnAddMenuButton() <br /> {<br />         // get all the menu groups<br />         LPDISPATCH pDisp = m_IApp.GetMenuGroups();<br />         m_IMenuGrps.AttachDispatch(pDisp);<br /> <br />         // get to the menu group that we're interested<br />         VARIANT var;<br />         var.vt = VT_I4;<br />         var.lVal = 0;<br />         pDisp = m_IMenuGrps.Item(var);<br />         m_IMenuGrp.AttachDispatch(pDisp);<br /> <br />         // get the popup menus in the menu group<br />         pDisp = m_IMenuGrp.GetMenus();<br />         m_IPopupMenus.AttachDispatch(pDisp);<br /> <br />         long cnt = m_IPopupMenus.GetCount();<br />         VARIANT  vtIndex;<br />         vtIndex.vt = VT_I4;<br />         vtIndex.lVal = cnt + 1;<br /> <br />         // append a popup menu to the popup menus<br />         const char myPopupMenuName[] = "TestPopupMenu";<br />         pDisp = m_IPopupMenus.Add(myPopupMenuName);<br />         m_IPopupMenu.AttachDispatch(pDisp);<br />         m_IPopupMenus.InsertMenuInMenuBar(myPopupMenuName, vtIndex);<br /> <br />         // append a menu item to the popup menu we added<br />         // notice the last parameter of AddMenuItem is for <br />         // a command<br />         vtIndex.lVal = 0;<br />         pDisp = m_IPopupMenu.AddMenuItem(vtIndex, "TestItem", "Regen ");<br />         m_IPopupMenuItem.AttachDispatch(pDisp);<br /> }<br /> Removing menu bar and items are just as easy. You can call<br /> RemoveMenuFromMenuBar() to remove a popup menu, for example.[/FONT]