天气与日历 切换到窄版

 找回密码
 立即注册
中国膜结构网
十大进口膜材评选 十大国产膜材评选 十大膜结构设计评选 十大膜结构公司评选
查看: 4|回复: 0

DWG preview

[复制链接]
  • TA的每日心情
    开心
    昨天 15:23
  • 签到天数: 69 天

    [LV.6]常住居民II

    410

    主题

    167

    回帖

    2704

    积分

    管理员

    积分
    2704
    发表于 2024-6-22 09:46:18 | 显示全部楼层 |阅读模式
    Acad::ErrorStatus open_save_close(const ACHAR *DWGFileName)
    {
            struct resbuf DWGMode;
            int nRetVal = acedGetVar(_T("SDI"), &DWGMode);
            if ( RTNORM != nRetVal) return Acad::eKeyNotFound;
            if (DWGMode.resval.rint != 0)
                    return Acad::eCantOpenFile;
                           
            Acad::ErrorStatus es = Acad::eOk;
            CComPtr<AutoCAD::IAcadDocument> IDoc;
                           
            CComPtr<AutoCAD::IAcadApplication> IApp;
            CComPtr<AutoCAD::IAcadDocuments> IDocs;
            CComPtr<IDispatch> pDisp = acedGetAcadWinApp()->GetIDispatch(TRUE);
            if(!pDisp) return Acad::eCantOpenFile;
            HRESULT hr = pDisp->QueryInterface(AutoCAD::IID_IAcadApplication,(void**)&IApp);
            if (FAILED(hr)) return Acad::eCantOpenFile;       

            hr = IApp->get_Documents(&IDocs);
            if(FAILED(hr)) return Acad::eCantOpenFile;

            _variant_t b(VARIANT_FALSE);
            hr = IDocs->Open(_bstr_t(DWGFileName),b,b,&IDoc);
            if(FAILED(hr)) return Acad::eCantOpenFile;

            hr = IApp->ZoomExtents();
            if(FAILED(hr)) return Acad::eCantOpenFile;

            VARIANT saveChanges, fileName;
            saveChanges.vt = VT_BOOL;
            saveChanges.boolVal = VARIANT_FALSE;
            fileName.vt = VT_ERROR;
            fileName.scode = DISP_E_PARAMNOTFOUND;
            IDoc->Save();
            IDoc->Close(saveChanges, fileName);
            return Acad::eOk;
    }

     

     

     

     

    DWG preview
    中国膜结构网打造全中国最好的膜结构综合平台 ,统一协调膜结构设计,膜结构施工,膜材采购,膜材定制,膜结构预算全方位服务。 中国空间膜结构协会合作单位。
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|中国膜结构网|中国膜结构协会|进口膜材|国产膜材|ETFE|PVDF|PTFE|设计|施工|安装|车棚|看台|污水池|

    GMT+8, 2024-7-1 05:31 , Processed in 0.055809 second(s), 22 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

    快速回复 返回顶部 返回列表