• bashar
  • Восстановленный участник
  • На форуме с 18 апреля 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Delphi 2005

Здраствуйте.
Подскажите пожалуйста, кому-нибудь удавалось подключаться к автокаду из 2005 дельфи? Если да, то напишите как. Пробовал разные варианты описанные в сети для более ранних версий, ничего не получилось.
Заранее благодарен.

  • На форуме с 18 апреля 2006г.
  • Сообщений: 1
  • Спасибо: 0

Re: Delphi 2005

hbnnnnujnh

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Delphi 2005

> bashar
ну покажи как пробовал-то  :)

  • На форуме с 24 апреля 2007г.
  • Сообщений: 9
  • Спасибо: 0

Re: Delphi 2005

Да вроде никаких проблем, как по писанному smile

Function GetAcadApplication(Visible: Boolean): IAcadApplication;
var
  v : OleVariant;
begin
  //Пытаемся запустить AutoCAD
  try
  // пытаемся присоединиться к уже запущенной копии AutoCad
   v := GetActiveOleObject('AutoCAD.Application');
  except
// если не получилось присоединиться, то запускаем новую копию AutoCad
   v := CreateOleObject('AutoCAD.Application');
  end;
  if Visible then v.Visible:=True else    v.Visible:=False;
end;