[每日一码] 利用“钩子”实现鼠标功能的例子代码

admin

1. //函数的声明部分
3. static BOOL CapsDone = FALSE;   //判断是否注册了该命令
4. BOOL toCaps(MSG *pMsg);    //获得消息的函数，就是消息处理函数
5. void regCaps();   //注册命令
6. void unregCaps();  //注销命令
10. ///程序实现
12. void initApp()
13. {
14. acedRegCmds->addCommand(采用T("MKEvents"),采用T("caps"),采用T("caps"),ACRX采用CMD采用MODAL,&regCaps);
15. return;
16. }
20. void unloadApp()
21. {
22. acedRegCmds->removeGroup(采用T("MKEvents"));
23. if(CapsDone==TRUE)
24. {
25.   acedRemoveFilterWinMsg(toCaps);
26. }
28. //  acedRemoveWatchWinMsg(toCaps);
30. return;
31. }
33. //此处获得鼠标在Dwg图纸中的坐标，相当有用，值得珍藏的一段代码
35. BOOL toCaps(MSG* pMsg)
36. {
37. CString sTemp;
38. long ptx=0,pty=0;
40. if(pMsg->message == WM采用CHAR)
41. {
42.     ptx=LOWORD(pMsg->lParam);
43.     pty=HIWORD(pMsg->lParam);
44.     CPoint pt(ptx,pty);
45.     acedDwgPoint getPts;
46.     acedCoordFromPixelToWorld(pt,getPts);
47.     sTemp.Format(采用T("/nx=%0.3f,y=%0.3f/n"),getPts[0],getPts[1]);
48.     acutPrintf(sTemp);
49. }
53. return FALSE;
54. }
58. void regCaps()
59. {
60. if(CapsDone == TRUE)
61.   return;
62. acedPrompt(采用T("/ncapsing.../n"));
63. if(acedRegisterFilterWinMsg(toCaps) == FALSE)
64. // if(acedRegisterWatchWinMsg(toCaps) == FALSE)
65. {
66.   acedPrompt(采用T("/ncant/n"));
67. }
68. else
69. {
70.   CapsDone=TRUE;
71. }
72. return;
74. }
77. void unregCaps()
78. {
79. if(CapsDone == TRUE)
80. {
81.   acedRemoveFilterWinMsg(toCaps);
82. //  acedRemoveWatchWinMsg(toCaps);
83.   CapsDone = FALSE;
84. }
85. return;
86. }

复制代码