• На форуме с 17 апреля 2004г.
  • Сообщений: 34
  • Спасибо: 0

Тема: Загрузка меню из Delphi

Здравствуйте!
Требуется загрузить файл меню в ACAD из Delphi:
procedure TForm1.Button1Click(Sender: TObject);
var Acad : OleVariant;
begin
Acad := CreateOleObject('AutoCAD.Application.16');
Acad.MenuGroups.Load('D:\GeoCAD Tools\menu\GeoCAD.mnu');
end;
Почему-то не загружается,
а вот таким методом загружается (но он мне не подходит):
procedure TForm1.Button1Click(Sender: TObject);
var Acad : OleVariant;
begin
Acad := GetActiveOleObject('AutoCAD.Application.16');
Acad.MenuGroups.Load('D:\GeoCAD Tools\menu\GeoCAD.mnu');
end;
Почему так?

  • Medvich
  • Восстановленный участник
  • На форуме с 13 июня 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: Загрузка меню из Delphi

А Автокад у тебя в обоих случаях загружается?

  • На форуме с 17 апреля 2004г.
  • Сообщений: 34
  • Спасибо: 0

Re: Загрузка меню из Delphi

Не загружается первым методом,
а вторым загружается

  • Medvich
  • Восстановленный участник
  • На форуме с 13 июня 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: Загрузка меню из Delphi

пардон, что долго не писал =)
Как ты понимаешь, первым способом ты создаешь COM объект, вторым способом получаешь ссылку на уже существующий объект. Во втором способе лучше использовать конструкцию try-except-end или try-finally-end , а можно и объединить оба способа

procedure TForm2.Button1Click(Sender: TObject);
var
  Acad : OleVariant;
begin
  try
    Acad := GetActiveOleObject('AutoCAD.Application.16');
  except
    Acad := CreateOleObject('AutoCAD.Application.16');
  end;
end;

а вот менюхи у меня в обоих случаях загрузились...