>> de heks is de manier die gebeurtenissen te onderscheppen door AutoCAD in brand worden gestoken?
Het hangt af van hoe AutoCAD gebeurtenismodel. Ik vroeg u om dossier AutoCAD_TLB aan horloge vast te maken hoe ACAD precies zijn gebeurtenissen bepaalt.
Bijvoorbeeld als uw AutoCAD_TLB als dit kijkt:
TAcadDocumentBeginSave = procedure (ASender: TObject; const FileName: WideString) van voorwerp;
…
TAcadDocument = klasse (TOleServer)
….
bezit OnBeginSave: Schrijft TAcadDocumentBeginSave gelezen FOnBeginSave FOnBeginSave;
bezit OnEndSave: Schrijft TAcadDocumentEndSave gelezen FOnEndSave FOnEndSave;
bezit OnBeginCommand: Schrijft TAcadDocumentBeginCommand gelezen FOnBeginCommand FOnBeginCommand;
bezit OnEndCommand: Schrijft TAcadDocumentEndCommand gelezen FOnEndCommand FOnEndCommand;
…
Wanneer u iets in die aard kunt doen:
type
TForm1 = klasse (TForm)
…
privé
procedure HandlerForAcadDocBeginSave (ASender: TObject; const FileName: WideString);
…
procedure TForm1.Button1Click (ASender: TObject);
var
Acad: IAcadApplication;
AcadDocument: TAcadDocument;
begin
Acad: = CreateOleObject („AutoCAD.Application“) als IAcadApplication;
Acad.Visible: = waar;
AcadDocument: =TAcadDocument.Create (Toepassing);
AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
AcadDocument.ConnectTo (Acad.ActiveDocument);
…