怎样在delphi中显示.dwg文件(100分)

B

bellie

Unregistered / Unconfirmed
GUEST, unregistred user!
不想通过autocad的export命令转换格式,然后再显示
有没有什么直接的算法,或动态连接库,或别的方法?
 
有控件可以显示的,以前见过一个兄弟做过一个软件,
专门显示dwg文件。
 
http://www.opendwg.org
以下资料来自dutyman:
编程提取DWG图形数据,有几种方式可以实现。

使用ARX API函数:
Adesk::Boolean
acdbDisplayPreviewFromDwg(const char *pszDwgfilename, void *pPreviewWnd)

使用ActiveX Automation接口:
R14支持ActiveX Automation,增加DWGThumbnail控件,使得在VB/VBA中能够浏览R14/R13的DWG文件。

使用Autodesk提供的DwgX Control
DwgX Control提供了更为广泛的Automation API函数,甚至能够象DWG Unplugged的开发者一样,
访问DWG文件的格式得到AcDbDatabase *s的数据。利用DwgX Control显示的是DWG文件内容而不仅仅
是预览的光栅图象。当然,DwgX Control必须需要Autodesk View1.2以上版本,已经正确安装,并且
在后台运行。这一工具,用户可以在http://www.autodesk.com网页上自由下载。
 
to huazai:
你说的前两种方法,由于显示的是dwg的预览文件,所以图像质量很差,放大时文字失真严重
而第三种方法要求后台必须运行Autodesk View,要求是不是太苛刻了点,恐怕实际运行环境做不到

to 郭玉梁:
你说用ole,能不能详细说一下思路

我也曾经用ole方法,将.dwg转为.jpg格式后再显示。由于autocad中必须先zoomextents然后export,所以得到的图像很小,同样遇到放大后失真的问题。
实在一筹莫展,忘大家继续指教!!!!
 

Similar threads

D
回复
0
查看
724
DelphiTeacher的专栏
D
D
回复
0
查看
748
DelphiTeacher的专栏
D
D
回复
0
查看
598
DelphiTeacher的专栏
D
顶部