(AcadApplication)Marshal.GetActiveObject("AutoCAD.Application.17"

王华康

运行时出现错误，是第一句的，请问高手如何解决

            AcadApplication app = (AcadApplication)Marshal.GetActiveObject("AutoCAD.Application.17");
 
            AcadMenuBar menuBar = app.MenuBar;
            AcadMenuGroup menuGroup = app.MenuGroups.Item(0);
            AcadPopupMenus menus = menuGroup.Menus;
            AcadPopupMenu mymenu = menus.Add("我的菜单");

           
            mymenu.AddMenuItem(0,"第一个菜单", "hello");
            mymenu.AddSeparator(1);
            mymenu.AddMenuItem(2, "2", "hello");
            AcadPopupMenu ext = mymenu.AddSubMenu(3, "Ext");
            ext.AddMenuItem(0, "Hello", "hello");
            ext.AddSeparator(1);
            ext.AddMenuItem(2, "Hello2", "hello");
            mymenu.InsertInMenuBar(menuBar.Count - 2);
            app.Application.Update();

另请问上面加载菜单至主菜单的方法正确吗？

错误信息如下：

应用程序不支持实时(JIT)调试。
有关详细信息，请参见此消息的结尾。

************** 异常文本 **************
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.InvalidCastException: 无法将类型为“System.__ComObject”的 COM 对象强制转换为接口类型“Autodesk.AutoCAD.Interop.AcadApplication”。此操作失败的原因是对 IID 为“{93BC4E71-AFE7-4AA7-BC07-F80ACDB672D5}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。
   在 ClassLibrary.Class.AddMenuCom() 位置 E:\CAD2007 Lab\CAD_lab2\CAD_lab2\Class.cs:行号 160
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 System.Reflection.MethodBase.Invoke(Object obj, Object[] parameters)
   在 AcMgCommandClass.InvokeWorker(AcMgCommandClass* , MethodInfo mi, Object commandObject, Boolean bLispFunction)
   在 AcMgCommandClass.Invoke(AcMgCommandClass* , gcroot<System::Reflection::MethodInfo ^>* mi, Boolean bLispFunction)
   在 Autodesk.AutoCAD.Runtime.TargetInvocationSEHExceptionFilter.InvokeWorker()
   在 Autodesk.AutoCAD.Runtime.ExceptionFilter.Invoke()

************** 已加载的程序集 **************
mscorlib
    程序集版本: 2.0.0.0
    Win32 版本: 2.0.50727.42 (RTM.050727-4200)
    基本代码: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
acdbmgd
    程序集版本: 17.0.54.0
    Win32 版本: 17.0.54.0
    基本代码: file:///D:/Program%20Files/AcdbMgd.DLL
----------------------------------------
msvcm80
    程序集版本: 8.0.50727.762
    Win32 版本: 8.00.50727.762
    基本代码: file:///C:/WINDOWS/WinSxS/x86_Microsoft.VC80.CRT_1fc8b3b9a1e18e3b_8.0.50727.762_x-ww_6b128700/msvcm80.dll
----------------------------------------
System
    程序集版本: 2.0.0.0
    Win32 版本: 2.0.50727.42 (RTM.050727-4200)
    基本代码: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Xml
    程序集版本: 2.0.0.0
    Win32 版本: 2.0.50727.42 (RTM.050727-4200)
    基本代码: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Drawing
    程序集版本: 2.0.0.0
    Win32 版本: 2.0.50727.42 (RTM.050727-4200)
    基本代码: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Windows.Forms
    程序集版本: 2.0.0.0
    Win32 版本: 2.0.50727.42 (RTM.050727-4200)
    基本代码: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
acmgd
    程序集版本: 17.0.54.0
    Win32 版本: 17.0.54.0
    基本代码: file:///D:/Program%20Files/acmgd.DLL
----------------------------------------
AcDxUi
    程序集版本: 17.0.54.0
    Win32 版本: 17.0.54.0
    基本代码: file:///D:/Program%20Files/AcDxUi.DLL
----------------------------------------
AcDx
    程序集版本: 17.0.54.0
    Win32 版本: 17.0.54.0
    基本代码: file:///D:/Program%20Files/AcDx.DLL
----------------------------------------

王华康

检索出clsid为6AB55F46-2523-4701-A912-B226F46252BA,请部如何加入？

wj_job

你用CLSID去查找CAD接口然后再去操作。

menxin

var app =Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication as AcadApplication;

zfbj

如果是VC中使用，我的代码是这么写的；
IAcadApplication acadApp;
                                        CLSID clsid;
                                        LPUNKNOWN pUnk = NULL;
                                        LPDISPATCH pDispatch = NULL;
                                       
                                        HRESULT hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);                       
                                        if (SUCCEEDED(hr))
                                        {
                                                if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)                // 如果有AutoCAD正在运行就获得它的OLE指针
                                                {
                                                        pUnk->QueryInterface(IID_IDispatch, (LPVOID*)&pDispatch);
                                                        acadApp.AttachDispatch(pDispatch);
                                                        pUnk->Release();