如何将CAD里做的图片转化成BMP格式的图(*.dwg转化为*.bmp)(200分)

  • 主题发起人 南宫慕容
  • 开始时间

南宫慕容

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,
需要尽量用程序控制。
转化出来的图只要里面的文字和线条,不要里面那些黑黑的背景。
可以实现么?
 
似乎有控件,到www.playicq.com上找找?
 
dwg版本很多,cad好象不怎么鼓励用户打开它,用dxf较通用。
如果你能打开文件(程序),接下来就在Tcanvas下画,至于背景
由你自己fillrect决定了。
 
可以用Visio2002打开、转换,不知道你是不是这个意思,自己编程实现,不知道
 
to xzh2000
不用控件,自己编程不可以么?

to leeeeleeee
现在就是因为用户有一大堆的cad图,要在quickreport里把这些图打印出来,
当然quickreport里还有一些数据库里的数据,如果不能把cad图转化为bmp
我怎么在报表里打印?
 
现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

 
to tigtan
我在安装光盘里找不到DwgThumbnail.ocx
已经发信到laotan@163.net索取。
如成功的话万分感激!
 
to 南宫慕容
dwgThumbNail.ocx我有,你要吗?
这个东西我试过了,由于是预览图,所以清晰度很差,一放大全失真了。不太符合我的要求,不知道你是否需要
 
to bellie
给我吧,guangwen_chen@163.net

“这个东西我试过了,由于是预览图,所以清晰度很差,一放大全失真了“
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
那这个问题你后来是如何解决的?
 
那个控件我已发给你了
失真的问题还没解决,苦恼中....
 
to bellie
控件已经收到,谢谢!!
经调试运行正如你所说,失真太厉害!模模糊糊的根本不能达到要求!一点看不清楚!
难道真的没别的办法了么?
 
我以前有一个看cad的控件,给你找找,因我
没有装autocad,不知是否可用,我找到后发
给你试试。
 
还没搞定吗
 
我觉得可以自己画,你打开DWG,发现对象以及坐标都在然后就CANVAS。。。
 
找了一些资料,看来都没有什么简单的解决办法,郁闷!~[:(!]

结束吧!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部