AutoCAD调用技巧

豆豆网技术应用频道 2007年03月20日【字号：小中大】收藏本文

本文详细介绍AutoCAD调用技巧

//uses ComObj;
//for autocad 2000
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
　obj_Acad:=GetActiveOleObject('AutoCAD.Application.15');
except
　obj_Acad:=CreateOleObject('AutoCAD.Application.15');
end;
obj_Acad.Visible:=True;
obj_ACAD.Documents.Open('g:\AutoCaddatadwg4.dwg');
end;
//for r14
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
　obj_Acad:=GetActiveOleObject('AutoCAD.Application.14');
except
　obj_Acad:=CreateOleObject('AutoCAD.Application.14');
end;
obj_Acad.Visible:=True;
obj_ACAD.ActiveDocument.Open('g:\AutoCaddatadwg4.dwg');
end;

责编：豆豆技术应用

点击发表评论

正在加载评论...