转发完美解决VB.NET窗体中预览DWG图形（附完整代码） - AutoCAD.net/VB.net/C# 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第3页

yfy2003 发表于 2006-7-28 18:03:00

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

 传上来大家学习吧!

tcsl9621 发表于 2006-8-6 14:24:00

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

idoo 发表于 2006-8-9 19:21:00

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

tcsl9621 发表于 2006-8-9 20:01:00

本帖最后由作者于 2006-8-24 22:39:51 编辑 VB最好的就是做界面，兼容性是不太好和VC++一样。你要是VBA好就用VBA好了。用什么工具都是一样的。

Aladingking 发表于 2006-8-16 14:37:00

改写为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;       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->Picture->Bitmap = pBitmap;
      BitBtn1->Glyph->LoadFromStream(pms);       break;    }
} //---------------------------------------------------------------------------

xutop 发表于 2006-8-19 06:58:00

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

8350 发表于 2006-8-23 13:53:00

怎么用哦??
哈哈,我是一个文忙!!

wrflili 发表于 2006-9-6 13:32:00

yuehuaqi 发表于 2007-1-2 11:06:00

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

makegood 发表于 2007-8-27 17:31:00

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

页: 1 2 [3] 4 5 6 7

明经CAD社区's Archiver