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