请问各位同仁,如何将autocad的dwg格式转成openpicturedialog能支持的格式,如*.jpg,*.jpeg,*.bmp,*.ico等等(急)

解决方案 »

  1.   

    如果用程序来转真的有点高难了,
    如果我没有记错的话,AutoCad有一个导出功能,可以导出为图片格式!
      

  2.   

    try
                         cad:=CreateoleObject('AutoCAD.Application');
                      except
                         on E:Exception do
                         begin
                            // common.SAVE_DO_LOG(common.username,'CAD调用出错:'+e.Message,err_log);
                             Application.MessageBox( 'CAD调用出错','信息提示',MB_OK+ MB_ICONINFORMATION);
                             exit;
                         end;
                      end;
                           cad.Visible:=true;
                           caddoc:=cad.ActiveDocument;
                          // cad.ZoomAll;
                          //改变当前背景颜色为白色
                           cad.Preferences.Display.GraphicsWinModelBackgrndColor:= clwhite;
                         //改变当前命令行为1行
                           cad.Preferences.Display.DockedVisibleLines:= 1;
                         //设置模式为单文档
                           caddoc.SetVariable('SDI',1);
                           caddoc.Application.Documents.Open('c:\ff.dwg', False);
                           sleep(1000);
                           t_SelectionSet:=caddoc.SelectionSets.Add('1');
                           t_SelectionSet.Select(5);
                           caddoc.Export( 'c:\test', 'WMF', t_SelectionSet);