急!急!delphi调用Autocad2000的问题?(50分)

  • 主题发起人 主题发起人 cdyxl
  • 开始时间 开始时间
C

cdyxl

Unregistered / Unconfirmed
GUEST, unregistred user!
我用DELPHI5下的Project下的Import Type Library注册了AutoCad2000的acad.tlb后,在
DELPHI5中加入两控件:AcadDatabase,AcadDocument,编写代码如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AcadDocument1.Open('E:/Cdyxl/12.dwg');
end;
编译通过,却出现Ole error 80210070 的错误,请DFW们帮忙!
 
先acaddocument1.connect.
 
to jiangxiancheng,还是不行啊!还请帮帮忙?帮我解决一下?
难道没人会么?
 
我给你解决,不过我要100分,
private
Acad, Doc, MSpace,PaSpace:Olevariant;
procedure ss;
begin
try
acad := GetActiveOleObject('AutoCAD.Application');
except
on EOleSysError do
acad := CreateOleObject('AutoCAD.Application');
end;
Acad.visible:= false;
Doc := Acad.ActiveDocument;
Mspace := Doc.ModelSpace;
PaSpace:=Doc.PaperSpace;
end;
打开指定的cad文件,就用一般的方法打开即可,不自己测试以下吧!
 
to qdgm988:你好!我告诉我的方法,我知道,我只是想用注册了ACAD.TLB后的空件来打开
DWG文件,怎样?能不能解决?
你也在用DELPHI+AUTOCAD2000进行开发吗?如果是,还请交流交流!
cdyxl@163.com
 
是的,我也做这方面的开发,我也用你上面提到的两个控件,
遗憾的是我也没有没有找到方法,运行起来也有错误,错误提示是:接口不支持,或者是
内存方面有问题。
共勉!
 
后退
顶部