捕捉AutoCAD的鼠标滚轮事件

ahlzl

在雪山飞狐兄的指导下，修改了Kean的一个帖子（见http://mjtd.com/bbs/dispbbs.asp?boardid=33&ID=76191 四楼），能在AutoCAD 2009以上版本中捕捉鼠标滚轮事件。
注意：要引用WindowsBase。

2. using Autodesk.AutoCAD.ApplicationServices;
3. using Autodesk.AutoCAD.Runtime;
4. using System.Windows.Interop;
5. using System;
6. namespace PreTranslate
7. {
8.     public class Commands
9.     {
10.         const int WM_MOUSEWHEEL = 522;
11.         [CommandMethod("testOn")]
12.         public void testOn()
13.         {
14.             Application.PreTranslateMessage += new PreTranslateMessageEventHandler(Application_PreTranslateMessage);
15.         }
16.         void Application_PreTranslateMessage(object sender, PreTranslateMessageEventArgs e)
17.         {
18.             if (e.Message.message == WM_MOUSEWHEEL)
19.             {
20.                 System.Windows.Forms.MessageBox.Show("你在CAD操作中转动滚轮了！");
21.             }
22.         }
23.         [CommandMethod("testOff")]
24.         public void testOff()
25.         {
26.             Application.PreTranslateMessage -= new PreTranslateMessageEventHandler(Application_PreTranslateMessage);
27.         }
28.     }
29. }

using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.Runtime; using System.Windows.Interop; using System; namespace PreTranslate {     public class Commands     {         const int WM_MOUSEWHEEL = 522;         [CommandMethod("testOn")]         public void testOn()         {             Application.PreTranslateMessage += new PreTranslateMessageEventHandler(Application_PreTranslateMessage);         }         void Application_PreTranslateMessage(object sender, PreTranslateMessageEventArgs e)         {             if (e.Message.message == WM_MOUSEWHEEL)             {                 System.Windows.Forms.MessageBox.Show("你在CAD操作中转动滚轮了！");             }         }         [CommandMethod("testOff")]         public void testOff()         {             Application.PreTranslateMessage -= new PreTranslateMessageEventHandler(Application_PreTranslateMessage);         }     } }

xiongdi6k

回帖是一种美德！感谢楼主的无私分享 谢谢

china-hz

麻烦高手转成vb.net。

wylong

转成vb.net

2. Imports Autodesk.AutoCAD.ApplicationServices
3. Imports Autodesk.AutoCAD.Runtime
4. Imports System.Windows.Interop
5. Imports System
6. Namespace PreTranslate
7.     Public Class Commands
8.         Const WM_MOUSEWHEEL As Integer = 522
9.         <CommandMethod("testOn")> _
10.         Public Sub testOn()
11.             AddHandler Application.PreTranslateMessage, AddressOf Application_PreTranslateMessage
12.         End Sub
13.         Private Sub Application_PreTranslateMessage(ByVal sender As Object, ByVal e As PreTranslateMessageEventArgs)
14.             If e.Message.message = WM_MOUSEWHEEL Then
15.                 System.Windows.Forms.MessageBox.Show("你在CAD操作中转动滚轮了！")
16.             End If
17.         End Sub
18.         <CommandMethod("testOff")> _
19.         Public Sub testOff()
20.             RemoveHandler Application.PreTranslateMessage, AddressOf Application_PreTranslateMessage
21.         End Sub
22.     End Class
23. End Namespace

Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.Runtime Imports System.Windows.Interop Imports System Namespace PreTranslate     Public Class Commands         Const WM_MOUSEWHEEL As Integer = 522         <CommandMethod("testOn")> _         Public Sub testOn()             AddHandler Application.PreTranslateMessage, AddressOf Application_PreTranslateMessage         End Sub         Private Sub Application_PreTranslateMessage(ByVal sender As Object, ByVal e As PreTranslateMessageEventArgs)             If e.Message.message = WM_MOUSEWHEEL Then                 System.Windows.Forms.MessageBox.Show("你在CAD操作中转动滚轮了！")             End If         End Sub         <CommandMethod("testOff")> _         Public Sub testOff()             RemoveHandler Application.PreTranslateMessage, AddressOf Application_PreTranslateMessage         End Sub     End Class End Namespace

游天居士

顶。 一下。收藏了。

英雄无敌

麻烦哪位VB.net高手解释一下这句话的意思是什么？

AddHandler Application.PreTranslateMessage, AddressOf Application_PreTranslateMessage

addhandler应该是添加一个回传，就是是相当于VB中的钩子吧，可能是，但Application是指谁呢，是指.net所做的程序吗？

如果这样的话，是不是在别的窗口中按滑轮，也会有相应的消息弹出来呢？

我以前装了。net，但不会用删了，现在试不了，有时候再试试，也希望高手能做一些解答。

英雄无敌

还有，上述vb.net代码应怎样才能运行？要引用哪一个CAD的类库呢

雪山飞狐_lzh

Application：AutoCad的Net版本应用程序实例

引用Cad目录下的两个托管Dll:AcDbMgd.dll,AcMgd.dll

上面的功能在2009以上版本可以实现，低版本要用另外的办法

英雄无敌

哦，我在2008上试，在。net编辑器中通不过，错误很多,没有2009以上的cad/

yanglin112

新手学习了！！

wenxinwen

09版本以下除了用钩子函数以外还有别的办法实现没？