Почему в Delphi при GetActiveOleObject('AutoCAD.Aplication') пишет ошибку?

Во-первых, в слове APLICATION - два P, т.е. APPLICATION (шутка).
Во вторых надо писать так

ACAD := GetActiveOleObject('Autocad.Application') as IAcadApplication;

При этом желательно еще версию указывать.
В-третьих, GetActiveOleObject дословно переводится с английского как "Взять активный(запущенный) OLE-объект". Если AutoCAD не запущен, то соответственно ничего не выйдет.
Поэтому всю эту баланду необходимо заключить в защищенный блок try..except...
Чтобы запустить AutoCAD нужно написать:

ACAD := CreateOleObject('Autocad.Application') as IAcadApplication;

Вобщем попробуй. Хотя без особой необходимости такими вещами лучше не заниматься, а следует обращаться из AutoCAD к Delphi-программе.

Вот работающий пример:

unit LA;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, AutoCAD_TLB, OleServer, ComObj;
type
  TMainForm = class(TForm)
    LaunchButton: TBitBtn;
    ExitButton: TBitBtn;
    ResultLabel: TLabel;
    procedure LaunchButtonClick(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  MainForm: TMainForm;
  AutoCAD : IAcadApplication;
implementation
{$R *.dfm}
procedure TMainForm.LaunchButtonClick(Sender: TObject);
begin
  try
    AutoCAD := GetActiveOleObject('Autocad.Application.15') as IAcadApplication;
    ResultLabel.Caption := 'AutoCAD15 уже запущен';
  except
    try
      AutoCAD := CreateOleObject('Autocad.Application.15') as IAcadApplication;
      AutoCAD.Visible := True;
      ResultLabel.Caption := 'AutoCAD15 запустился';
    except
      ResultLabel.Caption := 'AutoCAD15 нету...';
    end;
  end;
end;
procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
  MainForm.Close;
end;
end.

Если без AutoCAD_TLB, то меняем

AutoCAD : IAcadApplication;

на

AutoCAD : OleVariant;

а

as IAcadApplication

убираем вообще.
Ты вообще откуда запускаешь свою прогу. Если прямо из среды Delphi, то Exception будет по любому.

> Tigra
При запуске из среды идет детальная проработка каждого шага программы. Поэтому и "возникает" Exception не зависимо от того предусмотрена его обработка или нет. После его возникновения можно пошагово продолжить выполнение программы и, в данном случае, увидеть, что AutoCAD преспокойно запускается.

А библиотеку типов поменял?
Если поменял и не работает - значит глюк.
Вообще библиотекой типов пользоваться не надо, а надо общаться с AutoCAD через OleVariant. Тогда запустится без проблем.

Причина в компеляторе.
Если запускать программу в компиляторе, то он обрабатывая ошибку наличия запущенного автокада выдает сообщение.
Если же продолжить выполнение, то прога работает в норме...
Спасибо за обсуждение.