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