利用“钩子”实现鼠标功能的例子代码

LoveArx

1. //函数的声明部分
   
2. 
   
3. static BOOL CapsDone = FALSE;   //判断是否注册了该命令
   
4. BOOL toCaps(MSG *pMsg);    //获得消息的函数，就是消息处理函数
   
5. void regCaps();   //注册命令
   
6. void unregCaps();  //注销命令
   
7. 
   
8. 
   
9. 
   
10. ///程序实现
    
11. 
    
12. void initApp()
    
13. {
    
14. acedRegCmds->addCommand(_T("MKEvents"),_T("caps"),_T("caps"),ACRX_CMD_MODAL,&regCaps);
    
15. return;
    
16. }
    
17. 
    
18. 
    
19. 
    
20. void unloadApp()
    
21. {
    
22. acedRegCmds->removeGroup(_T("MKEvents"));
    
23. if(CapsDone==TRUE)
    
24. {
    
25.   acedRemoveFilterWinMsg(toCaps);
    
26. }
    
27. 
    
28. //  acedRemoveWatchWinMsg(toCaps);
    
29. 
    
30. return;
    
31. }
    
32. 
    
33. //此处获得鼠标在Dwg图纸中的坐标，相当有用，值得珍藏的一段代码
    
34. 
    
35. BOOL toCaps(MSG* pMsg)
    
36. {
    
37. CString sTemp;
    
38. long ptx=0,pty=0;
    
39. 
    
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. }
    
50. 
    
51. 
    
52. 
    
53. return FALSE;
    
54. }
    
55. 
    
56. 
    
57. 
    
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;
    
73. 
    
74. }
    
75. 
    
76. 
    
77. void unregCaps()
    
78. {
    
79. if(CapsDone == TRUE)
    
80. {
    
81.   acedRemoveFilterWinMsg(toCaps);
    
82. //  acedRemoveWatchWinMsg(toCaps);
    
83.   CapsDone = FALSE;
    
84. }
    
85. return;
    
86. }
    

//函数的声明部分<br /> <br /> static BOOL CapsDone = FALSE;   //判断是否注册了该命令<br /> BOOL toCaps(MSG *pMsg);    //获得消息的函数，就是消息处理函数<br /> void regCaps();   //注册命令<br /> void unregCaps();  //注销命令<br /> <br /> <br /> <br /> ///程序实现<br /> <br /> void initApp()<br /> {<br /> acedRegCmds->addCommand(_T("MKEvents"),_T("caps"),_T("caps"),ACRX_CMD_MODAL,&regCaps);<br /> return;<br /> }<br /> <br /> <br /> <br /> void unloadApp()<br /> {<br /> acedRegCmds->removeGroup(_T("MKEvents"));<br /> if(CapsDone==TRUE)<br /> {<br />   acedRemoveFilterWinMsg(toCaps);<br /> }<br /> <br /> //  acedRemoveWatchWinMsg(toCaps); <br /> <br /> return;<br /> }<br /> <br /> //此处获得鼠标在Dwg图纸中的坐标，相当有用，值得珍藏的一段代码<br /> <br /> BOOL toCaps(MSG* pMsg)<br /> {<br /> CString sTemp;<br /> long ptx=0,pty=0;<br /> <br /> if(pMsg->message == WM_CHAR)<br /> {<br />     ptx=LOWORD(pMsg->lParam);<br />     pty=HIWORD(pMsg->lParam);<br />     CPoint pt(ptx,pty);<br />     acedDwgPoint getPts;<br />     acedCoordFromPixelToWorld(pt,getPts);<br />     sTemp.Format(_T("/nx=%0.3f,y=%0.3f/n"),getPts[0],getPts[1]);<br />     acutPrintf(sTemp);<br /> }<br /> <br /> <br /> <br /> return FALSE;<br /> }<br /> <br /> <br /> <br /> void regCaps()<br /> {<br /> if(CapsDone == TRUE)<br />   return;<br /> acedPrompt(_T("/ncapsing.../n"));<br /> if(acedRegisterFilterWinMsg(toCaps) == FALSE)<br /> // if(acedRegisterWatchWinMsg(toCaps) == FALSE)<br /> {<br />   acedPrompt(_T("/ncant/n"));<br /> }<br /> else<br /> {<br />   CapsDone=TRUE;<br /> }<br /> return;<br /> <br /> }<br /> <br /> <br /> void unregCaps()<br /> {<br /> if(CapsDone == TRUE)<br /> {<br />   acedRemoveFilterWinMsg(toCaps);<br /> //  acedRemoveWatchWinMsg(toCaps);<br />   CapsDone = FALSE;<br /> }<br /> return;<br /> }<br />

革天明

谢谢楼主分享

守仁格竹GM

                                               

why1025

:toCaps”: 函数调用缺少参数列表；请使用“&CVApp::toCaps”创建指向成员的指针，这个怎么回事

why1025

acedRemoveFilterWinMsg(toCaps);if(acedRegisterFilterWinMsg(toCaps)&nbsp;==&nbsp;FALSE)