如何在delphi下调用CAD

Question

请各位老大指教

Answer 1

请看TCAD
http://www.codeidea.com

Answer 2

http://218.56.11.178:8020/web/index.aspx->软件基地->例程-基础应用->实现发送邮件的链接和打开网页的连接原理相同

Answer 3

var
  obj_ModelSpace, obj_Acad: OleVariant;
begin
  try
obj_Acad:=GetActiveOleObject
('AutoCAD.Application');
  except
    obj_Acad:=CreateOleObject('AutoCad.Application');
  end;
  obj_Acad.visible:=True;
  obj_ModelSpace:=obj_Acad.ActiveDocument.ModelSpace;
end;
添加uses comobj

Answer 4

去掉try ---------except 直接调用
obj_Acad:=CreateOleObject('AutoCad.Application');
obj_Acad.visible:=True;
obj_ModelSpace
可以在cad上制图没调试 不好意思

Answer 5

没事做给你段源代码吧！
不足的地方改改，可以用 要先安装cad
procedure TForm1.Button1Click(Sender: TObject);
var
  obj_ModelSpace, obj_Acad: OleVariant;
  pnt_Start,pnt_end:OleVariant;
begin
  //try
//obj_Acad:=GetActiveOleObject('AutoCAD.Application');
  //except
    obj_Acad:=CreateOleObject('AutoCad.Application');
  //end;
//  bringwindowtotop(obj_Acad);
  // obj_Acad.Top:=115;
  // obj_Acad.Left:=240;
   //obj_Acad.Width:=566;
  //obj_Acad.Height:=458;
  obj_Acad.visible:=True;
  obj_ModelSpace:=obj_Acad.ActiveDocument.ModelSpace;
  //obj_ModelSpace.ModelSpace.AddLine(VarArrayRef(pnt_Start),VarArrayRef(pnt_end));
  pnt_Start:=VarArrayCreate([0,2],varDouble);
  pnt_end:=VarArrayCreate([0,2],varDouble);
  pnt_end[0]:=100.0;
  pnt_end[1]:=100.0;
  pnt_end[2]:=0.0;
  pnt_end[0]:=500.0;
  pnt_end[1]:=500.0;
  pnt_end[2]:=0.0;
  obj_ModelSpace.AddCircle(VarArrayRef(pnt_Start), 100).Update;
  obj_ModelSpace.Addline(VarArrayRef(pnt_Start),(pnt_end)).Update;
end;end.
不过要添加 uses comobj