高价收购: 怎样实现AutoCAD的本地嵌入?(250分)

  • 主题发起人 主题发起人 wgc
  • 开始时间 开始时间
W

wgc

Unregistered / Unconfirmed
GUEST, unregistred user!
[blue]我用的是AutoCAD2000,不知道怎样将它嵌入到我的应用程序中.
据我所知,它是支持OLE的,但是无论我怎么设置OleContainer的属性,就是不行,
请高手给我一点建议!
先谢了!!(分数还可商量!!!)
开发工具:DELPHI[/blue]
 
嵌入不行,要用VBA或Lisp
 
可以的。在OLECONTAINER中点右键,INSERT OBJECT中找到AUTOCAD……
 
http://community.borland.com/article/0,1410,10194,00.html
这是Borland的AutoCAD Automation范例。我不会玩Autocad,也没有安装,帮不了你。
 
先使用Project菜单中的Import Type Library中导入AutoCAD 2000的类型库,使用
OLE Container插入AutoCAD对象,使用OLE Container的OleObjectInterface属性与
你AutoCAD控件的接口连接起来,可以使用了。
 
简单讲,你到底是要你的程序来控制cad,还是要在你的程序中显示dwg,文件,如果是前者
比较容易,是activex automation,看cad帮助就好了,详细的可查大富翁主题词autocad
后者,完全嵌入,不可能,如果你要修改,就一定会出现cad程序窗口才能修改,如果只是简单
看看,卡一像前面老兄那样,
 
我搞定此問題,慶祝!
 
好想挺难的,有没有更新的建议!!
我想做成类似Word(Excel)等的本地嵌入与编辑,如若不成,看来只能采用VBA或LISP了!!
 
使用Import Type Library将cada.tlb导入进去即可然后在delphi中用Autocad_tlb单元,
根据Autocad_tlb单元提供的接口,即可进行cad的二次开发,
我正在做这方面的程序,
给我的money,ok ^_^
 
to qdgm988
我也正想做这方面的开发,还请帮帮忙,指导一下!
cdyxl@163.com
 
to qdgm988
说具体些,money不会少你的
 
procedure TForm1.Button1Click(Sender: TObject);

begin
try
//获得autocad application对象
ACADApp := GetActiveOleObject('AutoCAD.Application');
except
on EOleSysError do
ACADApp := CreateOleObject('AutoCAD.Application');
end;

//获得autocad document对象
ACADDoc:=ACADApp.Activedocument;

//获得autocad 模型对象
moSpace:=ACADDoc.ModelSpace;

//获得autocad 图纸对象
paSpace:=ACADDoc.PaperSpace;
ACADApp.Visible:=true;

end;
就可用 这些对象进行操作cad软件,关于对象的用法
你去看cad的帮助就会了,cad的帮助上的例子是用
vb写的你把它转化为delphi即可,
 
to qdgm988
不好意思,快过年了,大家都比较忙,隔这么长时间才来看看!
按你的例子,还是要生成两个窗口的吧?!
接口单元也就类似Delphi中提供的一系列Office服务单元,我的要求可能要高一些,
希望能够象Microsoft Office系列那样,嵌入本地(我的应用程序窗口中),然后我再
通过编程控制它,方便的达到一些普通用户难以实现的功能和绘图效果,规范化用户群
的输入。
我看这个问题也实在挺难的,若你有更好的建议就告诉一声,若没有也是麻烦你了,
分数我会给的!
 
AutoCAD是一个ActiveX Application,不是ActiveX Control,想要嵌入你的程序很困难。
可以考虑把你的程序嵌入到AutoCAD中,这是很容易做到的事情。你可以通过用户化来改变
AutoCAD的Look and feel。并且用你的程序作为AutoCAD菜单项通过AutoCAD的Automation来
实现对AutoCAD的完全控制。
 
用delphi开发cad究竟能不能成功? 难度有多大? 好像市面上根本见不到相关开发的资料,不知道
用过delphi开发cad的朋友能不能指点一下,最好介绍些相关资料,不胜感激!
 
如果仅仅是用AUTOCAD绘图,可以用自己的程序构造DWG文件,然后再用AUTOCAD编辑。
 
我得程序中需要将cad的图纸显示并且存放到数据库中,我使用了oleContainer控件,
可是存在一个问题,就是使用ole我无法打开用cad2000华的图纸。老是说格式不对。
怎么办?
 

Similar threads

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