Pergunta : Como eu seguro eventos de AutoCAD por um programa de Delphi?

Eu deveoped uma biblioteca de função de Delphi sobre o AutoCAD.Application e eu adicionaria a esta biblioteca um apoio total ao uso Delphi 7 do original e das entidades events.
I e AutoCAD 2010. Como posso eu usar o BeginSave, o EndSave, etc… os eventos invocados pela documentação de AutoCAD VBA?
class= do

Resposta : Como eu seguro eventos de AutoCAD por um programa de Delphi?

>> a bruxa é a maneira de interceptar os eventos ateados fogo por AutoCAD?

Depende de como modelo de evento de AutoCAD. Eu pedi que você unisse a lima de AutoCAD_TLB para prestar atenção a como exatamente ACAD define seus eventos.

Por exemplo se seu AutoCAD_TLB olha como este:

TAcadDocumentBeginSave = procedimento (ASender: TObject; nome de arquivo do const: WideString) do objeto;
…
TAcadDocument = classe (TOleServer)
   ….
    propriedade OnBeginSave: TAcadDocumentBeginSave leu FOnBeginSave escreve FOnBeginSave;
    propriedade OnEndSave: TAcadDocumentEndSave leu FOnEndSave escreve FOnEndSave;
    propriedade OnBeginCommand: TAcadDocumentBeginCommand leu FOnBeginCommand escreve FOnBeginCommand;
    propriedade OnEndCommand: TAcadDocumentEndCommand leu FOnEndCommand escreve FOnEndCommand;
   …

Quando você puder fazer qualquer outra coisa semelhante:

tipo
  TForm1 = classe (TForm)
  …
  confidencial
     procedimento HandlerForAcadDocBeginSave (ASender: TObject; nome de arquivo do const: WideString);
  …

procedimento TForm1.Button1Click (ASender: TObject);
var
  Acad: IAcadApplication;
  AcadDocument: TAcadDocument;
começar
  Acad: = CreateOleObject (“AutoCAD.Application”) como IAcadApplication;
  Acad.Visible: = retificar;
  AcadDocument: =TAcadDocument.Create (aplicação);
  AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
  AcadDocument.ConnectTo (Acad.ActiveDocument);  
 …