cppetonglei 发表于 2007-7-30 10:03:00

关于CAD中鼠标滚轴事件响应，跪求明经高手指点

本帖最后由 作者 于 2007-7-30 10:04:25 编辑 <br /><br /> <p><strong>问题：</strong><br/>AutoCAD2004中能够响应鼠标滚轴事件而实时动态缩放图形(当然R14也有相应的补丁程序),<br/>我现在需要实现的功能是在AutoCAD2004鼠标滚轴事件中增加自己的代码,例如响应鼠标滚动<br/>事件随时判断并显示或关闭一些图元等功能.</p><p><strong>已经尝试过的方法: <br/>1、利用API函数<br/></strong>获取thisdrawing.HWND、ThisDrawing.Application.HWND句柄<br/>利用CallWindowProc、GetWindowLong、SetWindowLong、EnumChildWindows及回调函数增强窗口程序<br/>发现向AutoCAD2004中窗口(thisdrawing.HWND、ThisDrawing.Application.HWND及其部分子窗口)发送<br/>滚轴事件SendMessage(App_Hwnd, WM_MOUSEWHEEL, 0&amp;, 0&amp;)可以对CAD进行缩放.然而反过来,对这些窗口<br/>程序的回调过程却反应停滞,也不能正常接收到WM_MOUSEWHEEL等消息!!!!最有希望的方法失败了!!!!</p><p><strong>2、利用AutoCAD2004中VBA事件<br/></strong>在AutoCAD2004事件分为程序层事件、文档层事件和对象事件，我在问题中提到的功能初步判断可以通过<br/>程序层（或文档层）的MOUSEWHEEL事件实现，或者通过acadviewport.Modified事件实现。但是在程序层<br/>事件和文档层事件中只提供了BeginDoubleClick、BeginSave等事件，没有提供MOUSEWHEEL事件。本想<br/>acadviewport.Modified可以最后依靠的，但后来发现该事件并不因为鼠标滚轴事件而触发，而是只在当前<br/>视口发生变化等少数事件发生时才会触发。!!总之也是没成功!!</p><p><br/>&nbsp;</p>

pynet 发表于 2007-8-4 21:00:00

<p>我也正在考虑这个方面的问题！</p><p>不过现在还没有头绪！</p>

wangjianning 发表于 2008-4-24 15:10:00

你们说的我不懂

qjcpj 发表于 2008-5-1 13:49:00

vb不行,试试vc吧.
页: [1]
查看完整版本: 关于CAD中鼠标滚轴事件响应，跪求明经高手指点