Вопрос : Как я регулирую случаи AutoCAD программой Делфи?

Я deveoped архив функции Делфи над AutoCAD.Application и я добавил бы к этому архиву полную поддержку к пользе Делфи 7 документа и реальностей events.
I и AutoCAD 2010. Как могу я использовать BeginSave, EndSave, случаи etc… призванные документацией AutoCAD VBA?
class=

Ответ : Как я регулирую случаи AutoCAD программой Делфи?

>> ведьма будет дорогой перехватить случаи ые AutoCAD?

Оно быть в зависимости от как модель случая AutoCAD. Я спросил, что вы прикрепили архив AutoCAD_TLB для того чтобы наблюдать как точно ACAD определяет свои случаи.

Например если ваше AutoCAD_TLB смотрит как это:, то

TAcadDocumentBeginSave = процедура (ASender: TObject; FileName const: WideString) предмета;
…
TAcadDocument = тип (TOleServer)
   ….
    свойство OnBeginSave: TAcadDocumentBeginSave прочитало FOnBeginSave пишет FOnBeginSave;
    свойство OnEndSave: TAcadDocumentEndSave прочитало FOnEndSave пишет FOnEndSave;
    свойство OnBeginCommand: TAcadDocumentBeginCommand прочитало FOnBeginCommand пишет FOnBeginCommand;
    свойство OnEndCommand: TAcadDocumentEndCommand прочитало FOnEndCommand пишет FOnEndCommand;
   …

Когда вы можете сделать что-нибудь подобное:

тип
  TForm1 = тип (TForm)
  …
  приватно
     процедура HandlerForAcadDocBeginSave (ASender: TObject; FileName const: WideString);
  …

процедура TForm1.Button1Click (ASender: TObject);
var
  Acad: IAcadApplication;
  AcadDocument: TAcadDocument;
начните
  Acad: = CreateOleObject («AutoCAD.Application») как IAcadApplication;
  Acad.Visible: = true;
  AcadDocument: =TAcadDocument.Create (применение);
  AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
  AcadDocument.ConnectTo (Acad.ActiveDocument);  
 …