DELPHI能否进行CAD的二次开发？

Question

哪里有相关的资料参考？

Answer 1

当然可以，看看VBA方面的资料，VB对CAD二次开发方面的东西很多，VB能作到的，DELPHI当然也可以。

Answer 2

用VBA效果怎么样？我觉得ARX太难了

Answer 3

大部分都用VBA的
Delphi对这个支持不好

Answer 4

没有办法的，要进行CAD的二次开发就要用VBA的。

Answer 5

可以将cad.tlb转换成*.pas在delphi中调用，不过需要修改

Answer 6

给点分哦！
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,comobj;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  obj_ModelSpace, obj_Acad: OleVariant;
  pnt_Start,pnt_end:OleVariant;
begin
  obj_Acad:=CreateOleObject('AutoCad.Application');
  obj_Acad.visible:=True;
  obj_ModelSpace:=obj_Acad.ActiveDocument.ModelSpace;
  pnt_Start:=VarArrayCreate([0,2],varDouble);
  pnt_end:=VarArrayCreate([0,2],varDouble);
  pnt_start[0]:=100.0;
  pnt_start[1]:=100.0;
  pnt_start[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;
  obj_Acad.activedocument.SaveAs ('c:\gxt.dwg');
  end;end.画简单的圆，线 先安装cad 图层等其它的部分操作你自己把cad的cad.tlb转换成*.pas看一下就知道了