¿>> la bruja es la manera de interceptar los acontecimientos encendidos por AutoCAD?
Depende de cómo modelo de acontecimiento de AutoCAD. Pedí que usted atara el archivo de AutoCAD_TLB para mirar cómo ACAD define exactamente sus acontecimientos.
Por ejemplo si su AutoCAD_TLB parece esto:
TAcadDocumentBeginSave = procedimiento (ASender: TObject; nombre de fichero del const: WideString) del objeto;
…
TAcadDocument = clase (TOleServer)
….
característica OnBeginSave: TAcadDocumentBeginSave leyó FOnBeginSave escribe FOnBeginSave;
característica OnEndSave: TAcadDocumentEndSave leyó FOnEndSave escribe FOnEndSave;
característica OnBeginCommand: TAcadDocumentBeginCommand leyó FOnBeginCommand escribe FOnBeginCommand;
característica OnEndCommand: TAcadDocumentEndCommand leyó FOnEndCommand escribe FOnEndCommand;
…
Cuando usted puede hacer algo similar:
tipo
TForm1 = clase (TForm)
…
privado
procedimiento HandlerForAcadDocBeginSave (ASender: TObject; nombre de fichero del const: WideString);
…
procedimiento TForm1.Button1Click (ASender: TObject);
var
Acad: IAcadApplication;
AcadDocument: TAcadDocument;
comenzar
Acad: = CreateOleObject (“AutoCAD.Application”) como IAcadApplication;
Acad.Visible: = verdad;
AcadDocument: =TAcadDocument.Create (uso);
AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
AcadDocument.ConnectTo (Acad.ActiveDocument);
…