Fråga : Hur jag behandlar AutoCAD händelser vid ett Delphi program?

Jag har deveoped en Delphi fungerar arkivet över AutoCAD.Applicationen, och jag skulle tillfogar till detta arkiv en full service till dokument- och för enheter events.
I bruk Delphi 7 och AutoCAD 2010. Hur kan jag använda BeginSaven, EndSaven, de etc.-… händelserna som åkallas av AutoCAD VBA dokumentation?
" klar "

Svar : Hur jag behandlar AutoCAD händelser vid ett Delphi program?

>> häxan är långt att fånga upp händelser som avfyras av AutoCAD?

Den beror på hur den AutoCAD händelsen modellerar. Jag frågade dig att för att fästa AutoCAD_TLB spara till klockan hur exakt ACAD definierar dess händelser.

Om till exempel dina AutoCAD_TLB looks gillar denna:

TAcadDocumentBeginSave = tillvägagångssätt (ASender: TObject; constFileName: WideString) av anmärker;
…,
TAcadDocument = klassificerar (TOleServer)
   ….,
    egenskap OnBeginSave: TAcadDocumentBeginSave läste FOnBeginSave skriver FOnBeginSave;
    egenskap OnEndSave: TAcadDocumentEndSave läste FOnEndSave skriver FOnEndSave;
    egenskap OnBeginCommand: TAcadDocumentBeginCommand läste FOnBeginCommand skriver FOnBeginCommand;
    egenskap OnEndCommand: TAcadDocumentEndCommand läste FOnEndCommand skriver FOnEndCommand;
   …,

När du kan göra något något liknande detta:

typ
  TForm1 = klassificerar (TForm)
  …,
  privat
     tillvägagångssätt HandlerForAcadDocBeginSave (ASender: TObject; constFileName: WideString);
  …,

tillvägagångssätt TForm1.Button1Click (ASender: TObject);
var
  Acad: IAcadApplication;
  AcadDocument: TAcadDocument;
börja
  Acad: = CreateOleObject (”AutoCAD.Application”) som IAcadApplication;
  Acad.Visible: = true;
  AcadDocument: =TAcadDocument.Create (applikation);
  AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
  AcadDocument.ConnectTo (Acad.ActiveDocument);  
 …,