转发 完美解决VB.NET窗体中预览DWG图形（附完整代码）
本帖最后由 作者 于 2006-5-26 13:45:16 编辑 <br /><br /> <P>转发，试过了效果一级棒。大家快下下去研究研究。</P><P>终于解决了一个困扰许久的关于DWG文件的难题，还没完善，欢迎批评，高分相送<BR>为了找一个合适的预览DWG文件的控件，不知道搜索了多少次，都没有满意的结果，R2002自带的控件无法预览R2004格式的文件，最近花了几天时间，终于解决了这个困扰好久了难题，直接从DWG文件中提取位图放在PictureBox中预览。唯一留下的遗憾是当文件被其它进程打开时，会导致程序返回速度太慢，不知道各位是否有好的方法解决这一问题（或是有什么办法可以强行打开正被其它进程打开的文件）。现将代码及注释贴出来，要知道我是刚学VB.Net的，而且纯属业余爱好。</P>
<P> Private Structure BITMAPFILEHEADER<BR> Dim bfType As Short<BR> Dim bfSize As Integer<BR> Dim bfReserved1 As Short<BR> Dim bfReserved2 As Short<BR> Dim bfOffBits As Integer<BR> End Structure</P>
<P>Public Function GetDwgImage(ByVal FileName As String) As Image<BR> If Not File.Exists(FileName) Then Exit Function<BR> Dim DwgF As FileStream '文件流<BR> Dim PosSentinel As Integer '文件描述块的位置<BR> Dim br As BinaryReader '读取二进制文件<BR> Dim TypePreview As Integer '缩略图格式<BR> Dim PosBMP As Integer '缩略图位置<BR> Dim LenBMP As Integer '缩略图大小<BR> Dim biBitCount As Short '缩略图比特深度<BR> Dim biH As BITMAPFILEHEADER 'BMP文件头，DWG文件中不包含位图文件头，要自行加上去<BR> Dim BMPInfo() As Byte '包含在DWG文件中的BMP文件体<BR> Dim BMPF As New MemoryStream '保存位图的内存文件流<BR> Dim bmpr As New BinaryWriter(BMPF) '写二进制文件类<BR> Dim myImg As Image<BR> Try<BR> DwgF = New FileStream(FileName, FileMode.Open, FileAccess.Read) '文件流<BR> br = New BinaryReader(DwgF)<BR> DwgF.Seek(13, SeekOrigin.Begin) '从第十三字节开始读取<BR> PosSentinel = br.ReadInt32 '第13到17字节指示缩略图描述块的位置<BR> DwgF.Seek(PosSentinel + 30, SeekOrigin.Begin) '将指针移到缩略图描述块的第31字节</P>
<P> TypePreview = br.ReadByte '第31字节为缩略图格式信息，2 为BMP格式，3为WMF格式<BR> Select Case TypePreview<BR> Case 1</P>
<P> Case 2, 3<BR> PosBMP = br.ReadInt32 'DWG文件保存的位图所在位置<BR> LenBMP = br.ReadInt32 '位图的大小<BR> DwgF.Seek(PosBMP + 14, SeekOrigin.Begin) '移动指针到位图块<BR> biBitCount = br.ReadInt16 '读取比特深度<BR> DwgF.Seek(PosBMP, SeekOrigin.Begin) '从位图块开始处读取全部位图内容备用<BR> BMPInfo = br.ReadBytes(LenBMP) '不包含文件头的位图信息<BR> br.Close()<BR> DwgF.Close()<BR> With biH '建立位图文件头<BR> .bfType = &H4D42<BR> If biBitCount < 9 Then .bfSize = 54 + 4 * (2 ^ biBitCount) + LenBMP Else .bfSize = 54 + LenBMP<BR> .bfReserved1 = 0 '保留字节<BR> .bfReserved2 = 0 '保留字节<BR> .bfOffBits = 14 + &H28 + 1024 '图像数据偏移<BR> End With<BR> '以下开始写入位图文件头<BR> bmpr.Write(biH.bfType) '文件类型<BR> bmpr.Write(biH.bfSize) '文件大小<BR> bmpr.Write(biH.bfReserved1) '0<BR> bmpr.Write(biH.bfReserved2) '0<BR> bmpr.Write(biH.bfOffBits) '图像数据偏移<BR> bmpr.Write(BMPInfo) '写入位图</P>
<P><BR> BMPF.Seek(0, SeekOrigin.Begin) '指针移到文件开始处</P>
<P> myImg = Image.FromStream(BMPF) '创建位图文件对象<BR> Return myImg<BR> bmpr.Close()<BR> BMPF.Close()<BR> End Select<BR> Catch ex As Exception<BR> Return Nothing<BR> End Try</P>
<P> <BR> End Function</P>
<P>这个程序涉及到了DWG文件的内部格式。编出来的人很了不起。</P> <P>自已再顶一下，此帖完美解决了在窗体中预览DWG文件有方案。不仅适用于VB也适用于别的`编程语言。从网上淘下这个帖子后我如获至宝。以最快的速度拿出不与大家共享。也幸亏这样。淘下来的第二天我的电脑硬盘坏了。只有网上保存了这一份。原来在网上的贴子我再也找不出不了。呵。。。。。</P>
<P>好人有好报！</P> 谢谢楼主的资源，翻译成C#的：
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using System.Drawing;
namespace Changfeng.AcadNetLib
{
public class AcadUtility
{
public struct BITMAPFILEHEADER
{
public short bfType;
public int bfSize;
public short bfReserved1;
public short bfReserved2;
public int bfOffBits;
}
public static Image GetDwgImage(string FileName)
{
if (!File.Exists(FileName)) return default(Image);
FileStream DwgF =null;
BinaryReader br =null;
//文件描述块的位置
int PosSentinel = 0;
//缩略图格式
int TypePreview = 0;
//缩略图位置
int PosBMP = 0;
//缩略图大小
int LenBMP = 0;
//缩略图比特深度
short biBitCount = 0;
//BMP文件头，DWG文件中不包含位图文件头，要自行加上去
BITMAPFILEHEADER biH = new BITMAPFILEHEADER();
byte[] BMPInfo = null; //包含在DWG文件中的BMP文件体
MemoryStream BMPF = new MemoryStream(); //保存位图的内存文件流
BinaryWriter bmpr = new BinaryWriter(BMPF); //写二进制文件类
Image myImg = default(Image);
try
{
DwgF = new FileStream(FileName, FileMode.Open, FileAccess.Read); //文件流
br = new BinaryReader(DwgF);
DwgF.Seek(13, SeekOrigin.Begin); //从第十三字节开始读取
PosSentinel = br.ReadInt32(); //第13到17字节指示缩略图描述块的位置
DwgF.Seek(PosSentinel + 30, SeekOrigin.Begin); //将指针移到缩略图描述块的第31字节
TypePreview = br.ReadByte(); //第31字节为缩略图格式信息，2 为BMP格式，3为WMF格式
switch (TypePreview)
{
case 1:
break;
case 2:
case 3:
PosBMP = br.ReadInt32(); //DWG文件保存的位图所在位置
LenBMP = br.ReadInt32(); //位图的大小
DwgF.Seek(PosBMP + 14, SeekOrigin.Begin); //移动指针到位图块
biBitCount = br.ReadInt16(); //读取比特深度
DwgF.Seek(PosBMP, SeekOrigin.Begin); //从位图块开始处读取全部位图内容备用
BMPInfo = br.ReadBytes(LenBMP); //不包含文件头的位图信息
br.Close();
DwgF.Close();
biH.bfType = (short)(0x4D42);
if (biBitCount < 9)
{
biH.bfSize = System.Convert.ToInt32(54 + 4 * (Math.Pow(2, biBitCount)) + LenBMP);
}
else
{
biH.bfSize = 54 + LenBMP;
}
biH.bfReserved1 = (short)0; //保留字节
biH.bfReserved2 = (short)0; //保留字节
biH.bfOffBits = 14 + 0x28 + 1024; //图像数据偏移
//以下开始写入位图文件头
bmpr.Write(biH.bfType); //文件类型
bmpr.Write(biH.bfSize); //文件大小
bmpr.Write(biH.bfReserved1); //0
bmpr.Write(biH.bfReserved2); //0
bmpr.Write(biH.bfOffBits); //图像数据偏移
bmpr.Write(BMPInfo); //写入位图
BMPF.Seek(0, SeekOrigin.Begin); //指针移到文件开始处
myImg = (Image)(Image.FromStream(BMPF)); //创建位图文件对象
return myImg;
// bmpr.Close();
// BMPF.Close();
default:
break;
}
}
catch (Exception)
{
return null;
}
return null;
}
}
}
Leo1980 发表于 2019-9-5 11:17
谢谢楼主的资源，翻译成C#的：
好东西研究研究 楼主真牛，这么难的问题也能搞定。 我上机试用了，的确好用。这为我们编制VB。NET程序扫清了一大障碍。大家可以试试。 <P>楼主能找到这篇文章，也了不起，能拿出来分享，更了不起。</P>
<P>顺便问是在哪个网站有这种宝贝文章的？</P> 我也想再去一下那个网站，可惜再也找不到了。我用GOOGLE搜的。 我找这样的文章找了好久了，首先谢谢楼主的与大家分享~~可是上面的代码怎么用呢？我是新手，请大家帮忙~ <P>谢谢楼主啊！</P>
<P> </P> 谢谢推荐！ 再来跟一个。好帖不能沉下去。