Pytanie : Dlaczego I obchodzić się AutoCAD wydarzenie Delphi program?

I deveoped Delphi funkcja biblioteka nad the AutoCAD.Application i I dodawać ten biblioteka pełne poparcie dokument i jednostka events.
I use Delphi 7 i AutoCAD 2010. Dlaczego móc I the BeginSave, EndSave, etc… wydarzenie przywoływać AutoCAD VBA Dokumentacja?

Odpowiedź : Dlaczego I obchodzić się AutoCAD wydarzenie Delphi program?

>> Czarownica być the sposób wydarzenie podpalać AutoCAD?

Ono zależeć na jak AutoCAD wydarzenie model. I pytać ty AutoCAD_TLB kartoteka jak dokładnie ACAD definiować swój wydarzenie.

Na przykład jeżeli twój AutoCAD_TLB spojrzenie lubić to:

TAcadDocumentBeginSave = procedura (ASender: TObject; const FileName: WideString) przedmiot;
…
TAcadDocument = klasa (TOleServer)
   ….
    majątkowy OnBeginSave: TAcadDocumentBeginSave read FOnBeginSave pisać FOnBeginSave;
    majątkowy OnEndSave: TAcadDocumentEndSave read FOnEndSave pisać FOnEndSave;
    majątkowy OnBeginCommand: TAcadDocumentBeginCommand read FOnBeginCommand pisać FOnBeginCommand;
    majątkowy OnEndCommand: TAcadDocumentEndCommand read FOnEndCommand pisać FOnEndCommand;
   …

Gdy ty móc móc jak móc:

typ
  TForm1 = klasa (TForm)
  …
  intymny
     procedura HandlerForAcadDocBeginSave (ASender: TObject; const FileName: WideString);
  …

procedura TForm1.Button1Click (ASender: TObject);
var
  Acad: IAcadApplication;
  AcadDocument: TAcadDocument;
zaczynać
  Acad: = CreateOleObject ("AutoCAD.Application") jako IAcadApplication;
  Acad.Visible: = true;
  AcadDocument: =TAcadDocument.Create (Zastosowanie);
  AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
  AcadDocument.ConnectTo (Acad.ActiveDocument);  
 …