Vraag : Hoe behandel ik gebeurtenissen AutoCAD door Delphi programmeren?

Ik heb deveoped een de functiebibliotheek van Delphi over AutoCAD.Application en ik zou aan deze bibliotheek een volledige steun aan document en entiteitenevents.
I gebruik Delphi 7 en AutoCAD 2010 toevoegen. Hoe kan die ik BeginSave, EndSave, etc…gebeurtenissen door AutoCAD VBA Documentatie wordt aangehaald gebruiken?

Antwoord : Hoe behandel ik gebeurtenissen AutoCAD door Delphi programmeren?

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