无法关闭文档

liub1979

void CloseActiveDocument()
{
    IAcadApplication IApp;
    IAcadDocument IDoc;
 
    IDispatch *pDisp = acedGetAcadWinApp()->
        GetIDispatch(TRUE); //AddRef is called on the pointer
    IApp.AttachDispatch(pDisp); // does not call AddRef()
    IApp.SetVisible(true);
    pDisp = IApp.GetActiveDocument(); //AddRef is called
    IDoc.AttachDispatch(pDisp);

 VARIANT saveChanges, fileName;
 saveChanges.vt = VT_BOOL;
 saveChanges.boolVal = VARIANT_TRUE;
 fileName.vt = VT_ERROR;
 fileName.scode = DISP_E_PARAMNOTFOUND;

 IDoc.Close(saveChanges, fileName);

 return;
}

怎么不能关闭当前文档，反而报错

弹出一对话框 说什么“未处理的异常 等。。。”

松竹

估计是你掉用这个函数的位置问题引起的，这样的函数需要一个非模式窗口来处理消息，你可以创建一个非模块对话框，在对话框中去关闭文档。

liub1979

命令行输入命令啊

同样用vb或vba写的 IDoc.Close true没有任何问题啊

liub1979

谢谢松竹 问题解决了

是命令作用域的问题