AutoCad и Delphi

var
  AcadApplication: IAcadApplication;

  Try
//     Пытаемся найти активный AutoCAD
      AcadApplication := GetActiveOleObject('AutoCAD.Application') 
                         as IAcadApplication;
    except
//     Если работающий AutoCAD не найден
      try
//       Пытаемся запустить AutoCAD
        AcadApplication := CreateOleObject(AutoCAD.Application) 
                           as IAcadApplication;
      except
        MessageDlg('AutoCAD вообще не найден', mtError, [mbOK], 0);
      end;
    end;
    if AcadApplication = nil then
    begin
      MessageDlg('Ошибка соединения с AutoCAD', mtError, [mbOK], 0);
    end
    else
     // делать, что надо
    AcadApplication.ActiveDocument.Activate;
{
Послылаем макрос в командную строку, добавляя нажатие Enter
}
    AcadApplication.ActiveDocument.SendCommand('(alert "Привет от Delphi") + #13);
  end;

  (if (setq srv (vlax-get-or-create-object "MyApp.MyAppInt"))
    (progn
      (setq res_srv (vlax-invoke-method
                      srv
                      "MyMethod" ;; или ишо какой метод
                      param1
                       ...
                     paramX
                    ) ;_ end of vlax-invoke
      ) ;_ end of setq
      (if (= (vlax-variant-value res_srv) :vlax-true)
        (progn
          (alert "Сработало!")
          .... ;; обработка результатов
        )
    )
)

var
 { начальные и конечные точки отрезка}
 StartPoint, EndPoint: OleVariant;
 ModelSpace : OleVariant;
begin
  { Создаем массивы координат
    VT_R8 = 5;  8-байтовое действительное число определенное в
    ActiveX.Pas}
  StartPoint := VarArrayCreate([0, 2], VT_R8);
  EndPoint := VarArrayCreate([0, 2], VT_R8);
  { Присваиваем значения }
  StartPoint[0] := 1.0; // X
  StartPoint[1] := 1.0; // Y
  StartPoint[2] := 0.0; // Z
  EndPoint  [0] := 5.0;
  EndPoint  [1] := 5.0;
  EndPoint  [2] := 0.0;
После коннекта с Автокад
  ModelSpace := AcadApplication.ActiveDocument.ModelSpace;
  ModelSpace.AddLine(VarArrayRef(StartPoint), 
               VarArrayRef(EndPoint)).Update;
end;