[下载]：DWGdirectX

ZYM874

DWGdirectX   1/5

ZYM874

2/5

ZYM874

3/5

ZYM874

4/5

ZYM874

5/5

z999999

沙发????, 跪谢

测试完毕：
1。是com控件，稍微大了些，加起来有3~4M.
2。acad2002文件OK, 2004没测我没装2004.
3。读1M文件，边例modelspace 3秒，稍慢。
4.要是DwgDirect就更好了。

test code;
        void test(){


                ZDispatch docs;
                if(app.GetPropertyByName_Disp(L"documents", &docs)<0)return;

                if(docs.Invoke1(L"open", &CComVariant("d:\\t1.dwg"))<0)return;
               
                CComVariant vCount;
                if(docs.GetPropertyByName(L"count", &vCount)<0)return;
                if(vCount.lVal<1)return;
               
                ZDispatch doc;
                if(docs.Invoke1_Disp(L"Item", &CComVariant(0,VT_I4), &doc)<0)return;

                ZDispatch db;
                if(doc.GetPropertyByName_Disp(L"database", &db)<0)return;

                ZDispatch ms;
                if(db.GetPropertyByName_Disp(L"modelspace", &ms)<0)return;

                if(ms.GetPropertyByName(L"count", &vCount)<0)return;
                con<<"mode count:"<<vCount.lVal<<"\r\n";

                if(vCount.lVal<1)return ;

                for(long i=0; i<vCount.lVal; i++){
                        ZDispatch ent;
                        if(ms.Invoke1_Disp(L"item", &CComVariant(i,VT_I4), &ent)>=0){
                                CComVariant vType;
                                ent.GetPropertyByName(L"EntityName", &vType);
                                CString sType(vType.bstrVal);
                                ////con<<i<<", type:"<<sType<<"\r\n";
                        }
                }

                if(docs.Invoke0(L"close")<0)return;
                con<<"close oooooo\r\n";
        }

        long OnBtn(long,long,HWND,BOOL&){
                long t1, t2;
                for(long i=0; i<100; i++){
                        t1 = ::GetTickCount();
                        test();
                        t2 = ::GetTickCount();
                        con<<"go to :"<<i<<", time:"<<t2 - t1<<"\r\n";
                       
                }
          return 0;
        }
       
  long OnCreate(long,long,long,BOOL&){
                CWindow btn;
                btn.Create("BUTTON", m_hWnd, CRect(0,0,70,20), "btn", WS_CHILD|WS_VISIBLE, 0, 1);

                GUID clsID = ZTool::Str2Gid("{F6877071-4D07-4800-9BDF-93D52A60F31F}");
          if(::CoCreateInstance(clsID, NULL, CLSCTX_INPROC, IID_IDispatch, (void**)&dd)<0)return 0;
                if(dd.GetPropertyByName_Disp(L"application", &app)<0)return 0;

                con<<"open app oooooooo\r\n";

xiaoyubujimo

呵呵,终于有大侠出现了!

横刀立马

我先试试

牛人

这是干什么用的？

xunix

谢了先！
如果能提供最新的版本就好了！

PLgis

已下载,谢谢共享.

ZYM874

我在用DELPHI7直接读写DWG文件（R12），有兴趣的朋友交流，zym874@163.com。

masterhe

这是一个支持到2002的测试版

bestmai

似乎只支持到02

ljhqfljhqf

最好能提供最新版本及DwgDirect