最近在学习用delphi开发cad程序,有一个问题:想在程序运行时响应AutoCAD的事件,查看了一下相关的资料,感觉和回调函数有关,但还是搞不太明白,请高手指点。
现在我定义了变量AcadApp : IAcadApplication;
获取对象AcadApp := CreateOleObject('AutoCAD.Application') as IAcadApplication;例如,想要在程序执行过程中响应AutoCAD退出(BeginQuit)的事件,在AutoCAD_TLB.pas中相关的定义是:
  _DAcadApplicationEvents = dispinterface
    ['{2974A76E-A19B-11D1-A2B0-080009DC639A}']
    .......
    procedure AppActivate; dispid 3;
    procedure AppDeactivate; dispid 4;
    procedure BeginQuit(var Cancel: WordBool); dispid 8;
    ......