最近在学习用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;
......
现在我定义了变量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;
......
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货