转发 完美解决VB.NET窗体中预览DWG图形（附完整代码）

yfy2003

haill2000发表于2006-7-18 15:23:00曾经用VC写过一个，需要的可以给我发电邮

传上来大家学习吧!

tcsl9621

楼上的说的对，传上来大家学习一下吧。最近有不少人回帖啊。呵……

idoo

想问楼主一个问题：使用VB.NET开发CAD会不会有因CAD版本问题而带来的不兼容？比如使用VC++通过ObjectARX开发就会样！VB开发的优点是什么？还有不足呢？？我一直再用VBA……

tcsl9621

VB最好的就是做界面，兼容性是不太好和VC++一样。你要是VBA好就用VBA好了。用什么工具都是一样的。

Aladingking

 改写为C++Builder的编码

 

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int nHandle;
  nHandle = FileOpen("E:\\hnk-s01.dwg",fmOpenRead);
  FileSeek(nHandle,13,0);
  BITMAPFILEHEADER BmpHeader;
  int nPosScen;
  FileRead(nHandle,&nPosScen,sizeof(__int32));

  unsigned short nTypePreview;
  FileSeek(nHandle,nPosScen+30,0);
  FileRead(nHandle,&nTypePreview,1);
  ShowMessage(nTypePreview);
  int nPosBMP;
  int nLenBMP;
  short nBitCount;
  char* pszBuffer;

  TMemoryStream* pms = new TMemoryStream();
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();

  switch (nTypePreview)
   {
     case 1:
      break;
     case 2:
     case 3:
      FileRead(nHandle, &nPosBMP, sizeof(__int32));
      FileRead(nHandle, &nLenBMP, sizeof(__int32));
      FileSeek(nHandle, nPosBMP+14, 0);
      FileRead(nHandle, &nBitCount,sizeof(__int16));
      //ÒÆÖÁËõÂÔͼBMP¿ªÊ¼Î»ÖÃ
      pszBuffer = new char[nLenBMP+1];
      FileSeek(nHandle, nPosBMP, 0);
      ShowMessage(FileRead(nHandle,pszBuffer,nLenBMP));
      FileClose(nHandle);
      BmpHeader.bfType = 0x4D42;
      if ( nBitCount < 9)
        BmpHeader.bfSize = 54+4*pow(2,nBitCount)+nLenBMP;
      else
        BmpHeader.bfSize = 54+nLenBMP;
      BmpHeader.bfReserved1 = 0;
      BmpHeader.bfReserved2 = 0;
      BmpHeader.bfOffBits = 14+0x28+1024;
      pms->Write(&BmpHeader.bfType, sizeof(BmpHeader.bfType));
      pms->Write(&BmpHeader.bfSize, sizeof(BmpHeader.bfSize));
      pms->Write(&BmpHeader.bfReserved1, sizeof(BmpHeader.bfReserved1));
      pms->Write(&BmpHeader.bfReserved2, sizeof(BmpHeader.bfReserved2));
      pms->Write(&BmpHeader.bfOffBits, sizeof(BmpHeader.bfOffBits));
      pms->Write(pszBuffer,nLenBMP);
      pms->Seek(0,soFromBeginning );

      //pBitmap->LoadFromStream(pms);
      //Image1->icture->Bitmap = pBitmap;

      BitBtn1->Glyph->LoadFromStream(pms);
      break;
   }

}
//---------------------------------------------------------------------------

xutop

历害啊，真牛，要是我也这样的水平就好了，太酷了

 

8350

怎么用哦??

哈哈,我是一个文忙!!

wrflili

谢谢推荐！

yuehuaqi

这个格式应该是windows定义的,只是dwg遵从了windows的规范,所有才可以在浏览器里面预览,说了解autocad的文档格式还是距离甚远的....大家明白?我想这段代码也应该可以读取能够在浏览器里面浏览的其他文档的预览的,原理是一致 的

makegood

谢谢楼主·但能不能用C#代码的，或是怎么转换？