现AutoCAD图纸预览
---- Autodesk公司在AutoCAD R13及后续版本里提供了图形预览的功能，当出现“打开文件”对话框并选择AutoCAD图形文件时，会显示文件的预览图。该预览图是以位图的方式存储在dwg文件中的特定位置，同时，AutoCAD可以设置预dwg文件是否保存预览位图，缺省设置为保存预览位图。
---- 那么，用户能否通过编程在应用程序里实现图形预览呢？回答是肯定的，用户可以找出位图在dwg文件中的存储位置，并读出位图数据予以显示，关于预览位图在dwg文件的存储格式，请参阅Autodesk中文网站上的有关文章，此法虽然可行，但编程较为麻烦。其实，Autodesk提供了一个显示预览位图的ActiveX控件，文件名为“DwgThumbnail.ocx”，应用该ActiveX控件，可以很方便地在未安装AutoCAD的情况下实现图形预览。下面以Delphi为例，简述如下：
---- 第一步：获取“DwgThumbnail.ocx”文件。该文件可以在AutoCAD安装盘里得到，也可E-mail到：laotan@163.net索取。得到文件后，拷贝到合适的目录里。
---- 第二步：安装控件。打开Delphi，选择菜单“Component-Import ActiveX Control”，弹出“Import Activex”窗口，点击“Add”按钮，选择“DwgThumbnail.ocx”文件后，点击“Install”按钮，控件安装完毕。
---- 第三步：加入控件并调试。新建Delphi工程，翻到Delphi控件板的ActiveX页，如果控件安装正确，该页会新添一个控件，图标为“Dwg”字样，将该控件加入窗体，合理调整布局，将该控件的DwgFileName属性设为AutoCAD R13或后续版本的Dwg文件的全路径，预览位图马上会显示出来，剩下就是对其他属性值进行设置，以达到您的要求，在此不再赘述。但是，编译运行后，不知为什么刚才的位图消失了，可能是控件的设计的问题。在窗体里加入控件Edit1，Button1，为Button1的Onclick事件加入代码如下：
try
Dwgthumbnail1.DwgFileName:=Edit1.text;
except
Showmessage('文件不存在！');
end;
另外看看这个网了
http://ourworld.compuserve.com/homepages/tonyt/Delphi/delphi.htm
