AutoCAD调用技巧

减小字体

增大字体作者：佚名来源：本站整理发布时间：2009-03-16 20:02:10

//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:\\AutoCad\data\dwg\4.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:\\AutoCad\data\dwg\4.dwg'');
end;