用Delphi做Auto CAD功能

Question

我想用Delphi做Auto CAD部份基本功能(如画线、画圆、画弧、标注尺寸、物件编辑)，但不知用什么控件好，请各位前辈指点一二!

Answer 1

Function GetAcadApplication(Visible: Boolean): IAcadApplication;
var
  v : OleVariant;
begin
  Try
    v := GetActiveOleObject('AutoCAD.Application');    
  Except
    v:= CreateOleObject('AutoCAD.Application');
  end;
  Result := IDispatch(v) as IAcadApplication;
  if Visible then Result.Visible := True;
end;unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AutoCAD_TLB, ComObj;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    AcadApp: IAcadApplication;
  public
    { Public declarations }
  end;var
Вернуться к оглавлению
  Form1: TForm1;implementation{$R *.dfm}Function GetAcadApplication(Visible: Boolean): IAcadApplication;
var
  v : OleVariant;
begin
  Try
    v := GetActiveOleObject('AutoCAD.Application');    
  Except
    v:= CreateOleObject('AutoCAD.Application');
  end;
  Result := IDispatch(v) as IAcadApplication;
  if Visible then Result.Visible := True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle:= fsStayOnTop;
  Button1.Caption:= ‘Текущий чертёж’;
  AcadApp:= GetAcadApplication(true)
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AcadApp.Quit
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= AcadApp.ActiveDocument.Name
end;end.

Answer 2

http://www.delphimaster.ru/articles/autocad/