关于在程序中打开autoCAD 文件的问题(50分)

T

ts7000

Unregistered / Unconfirmed
GUEST, unregistred user!
关于在程序中打开autoCAD 文件的问题
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
cad :eek:levariant;

begin
cad:=CreateoleObject('AutoCAD.Application');
cad.visible:=true;
cad.lacaddocument.OpenFile ('e:/wilhome.dwg');
end;
我该如何解决,请各位大侠帮忙。最好有原码,谢谢。
 
???你有什么问题还没说哪
 
找个控件
 
就是如何用程序打开autoCad 的文件,
以上程序运行后,系统提示自动化服务器不支持OPen操作。
 
to wmsoft:
在哪能找到类是Twordapplication的控件
 
试试这样写:

procedure TForm1.Button1Click(Sender: TObject);
var
cad :eek:levariant;
begin
cad:=CreateoleObject('AutoCAD.Application');
cad.visible:=true;
cad.documents.Open ('e:/wilhome.dwg');
end;

另外:如果AUTOCAD没有装好会出错。
 
to huzzz:
不行呀,我试了,错误 如下:
projict project.exe raised exception class eoleerror
with message 'method 'documents 'not supported by automation
object'.
请问我该如何解决?
 
很抱歉,我也不知如何解决。
不过你不要太伤心了,事情总会解决的。

我只能跟你说:以上代码在我的WINDOWS2000+AUTOCAD2000下运行十分正确,没有错误。
在其他几个同事机上也运行很好。

我看你的错误似乎是AUTOCAD没有成功安装或没有成功注册或版本太低不支持。
 
接受答案了.
 
速度太慢
 
顶部