Delphi调用AutoCAD技巧

Delphi调用AutoCAD技巧2008-02-02

//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;