在delphi中怎么调用autocad阿？

Question

我想用delphi开发一个系统，系统能够自动加载autocad一样对.dwg等cad图进行浏览,编辑!拜托了，很急

Answer 1

shellexcute
createprocess
都可以调用，传命令行就可以了

Answer 2

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:\\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; 
 

Answer 3

调用cad
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
  //获得autocad application对象
    ACADApp := GetActiveOleObject('AutoCAD.Application');
  except
    on EOleSysError do
      ACADApp := CreateOleObject('AutoCAD.Application');
  end;  //获得autocad document对象
  ACADDoc:=ACADApp.Activedocument;  //获得autocad 模型对象
  moSpace:=ACADDoc.ModelSpace;  //获得autocad 图纸对象
  paSpace:=ACADDoc.PaperSpace;
  ACADApp.Visible:=true;end;
就可用 这些对象进行操作cad软件