如何在DELPHI中显示DWG(autoCAD图片)格式图片

Question

如何在DELPHI中显示DWG(autoCAD图片)格式图片,以及打印该图片!!!!!!  
请各位大吓帮帮忙，给个实例源码！分不够可以再加！

Answer 1

去 www.2ccc.com看看吧。
说不定有你想要的VCL

Answer 2

去找一个ImageEn的第三方控件，我正在用，可以支持的格式很多

Answer 3

to: hellolongbin(一个人[终不似 少年游]) 您能不能给我发一个到我的Email:[email protected]谢谢

Answer 4

Delphi中实现AutoCAD图形的预览及编辑在工程技术领域中，人们常常需要查阅、编辑众多参数，绘制大量的图纸及进行图文混排的编辑工作。随着计算机技术的飞跃发展，开发基于WINDOWS/NT平台下的这些应用程序变得迅速而简单。如使用Delphi、VF和AutoCAD等软件。Delphi最大的优越性在于它提供了大量VCL（Visual Component Libraries）。在它的VCL中几乎封装了所有的Windows API（Application Programming Interface）函数，使得编程人员可以很少去直接使用底层的Windows API函数而直接利用VCL实现几乎所有的Windows功能。笔者针对CAPP中的机械加工过程卡编制，对在Delphi中对AutoCAD图形进行预览、及对它们进行编辑的功能作了一尝试。其过程如下：
　　首先建立一个窗体（Form），在该窗体上设置TtoolButton、Combobox、Ole和Tpanel等控件（见图1）。其中：TtoolButton的为浏览按钮，这些按钮从左到右依次实现对：第一道工序，上一道工序，下一道工序和最后一道工序的机械加工过程卡进行预览的作用；Combobox为复选框，选择该框下的某一个文件即可对相应机械加工过程卡的图形文件进行预览；Ole是本文的核心部分，Ole是一套由美国公司提出的协议和过程，是应用程序共享数据的方法。它具有一个应用程序中包含另一个应用程序所创建数据的功能。点击Ole容器中的机械加工过程卡图形，即可联结AutoCAD R2000，进而实现对图形的实时编辑。本程序的主要代码如下：
　　procedure Tform1.FormShow(Sender：Tobject);
　　var　j:integer;
　　begin
　　con:=12;　// 预置的工序数目
　　for j:=1　to　con　do 
　　combobox1. Items. Add( extractfilepath (application. Exename)+‘g‘ +inttostr(j)+‘.dwg‘); // 复选框内存入工序卡的文件名称
　　combobox1. ItemIndex:=0;
　　try
　　ole. CreateObjectFromFile(combobox1.text, false);
　　except
　　on exception do messagedlg(combobox1. Text+‘不能装载‘, mterror, [mbok], 0);
　　end;
　　combobox1. OnChange(self);
　　end;
　　procedure Tform1. firClick(Sender: TObject); // 翻到第一道工序的按钮
　　begin 
　　combobox1.itemindex:=0;
　　combobox1.OnChange(self);
　　end;
　　procedure Tform1.nextClick(Sender: TObject); // 翻到下一道工序的按钮
　　begin
　　combobox1. Itemindex:=combobox1.itemindex+1;
　　combobox1.OnChange(self);
　　end;
　　procedure Tform1. ComboBox1Change(Sender: TObject); // 由复选框进行工序卡的预览
　　begin
　　try
　　ole.DestroyObject;
　　ole.Update;
　　ole.CreateObjectFromFile(combobox1.text.false);
　　except
　　on exception do begin messagedlg(combobox1.Text+‘不能装载‘, mterror,[mbok],0);
　　exit;
　　end;
　　在Delphi中对AutoCAD图形进行预览、及对它们进行编辑上述程序，已在Delphi5.0及AutoCAD R2000下通过运行。

Answer 5

顶顶顶顶---CSDN真是没有高手啦!顶顶顶

Answer 6

我见过网上有OCX，可以在DELPHI中直接打开DWG文件，你找一下吧

Answer 7

ImageEn下载地址我也是从网上找的，现在找不到我当时下载的链接了，你试试这个
http://www.51zyz.com/down.asp?urlid=1&softid=16194如果还不行给我发消息把我的发到你邮箱

Answer 8

hellolongbin(一个人[终不似 少年游]) 大哥在不在啊,帮帮小弟好吗! 谢谢啦!
[email protected]

Answer 9

兄弟:你的问题搞定了吗,我没有用任何控件,也只要写少量了几行代码,就可以将CAD图纸转到数据库中去,再显示出来,可以随时编辑,可以打印

Answer 10

baronyang(魔蝎) 大哥你是用什么方法写的呀!可以能小弟实现的方法或者源码吗?谢谢啦!
[email protected]

Answer 11

显示AutoCAD缩略图:DWGTHUMBNAIL.OCX

Answer 12

建议用MicroDraw浏览控件。http://www.microdraw.cn 可以浏览dwg/dxf/dwf/dgn等多种CAD格式