风
风雨中
Unregistered / Unconfirmed
GUEST, unregistred user!
最近在学习用delphi开发cad程序,有一个问题:想在程序运行时响应autocad的事件,查看了一下相关的资料,感觉和回调函数有关,但还是搞不太明白,请高手指点。
现在我定义了变量AcadApp : IAcadApplication;
获取对象AcadApp := CreateOleObject('AutoCAD.Application') as IAcadApplication;
例如,想要在程序执行过程中响应CAD退出的事件,此事件在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;
......
现在我定义了变量AcadApp : IAcadApplication;
获取对象AcadApp := CreateOleObject('AutoCAD.Application') as IAcadApplication;
例如,想要在程序执行过程中响应CAD退出的事件,此事件在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;
......