>> 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);
…