[求助]：如何实现CAD中鼠标屏幕坐标与Windows鼠标的位置转换？

cyt4321

斑竹efan2000 ，这是去年向你提的问题，当时没弄清，能否给一个例子呢？谢了！

由 cyt4321 于 2003年04月23日 11:18 发表:
[VBA程序]：如何实现CAD中鼠标屏幕坐标与Windows鼠标的位置转换？

1. 在CAD中如何动态适时得到鼠标的坐标？
2. 如何用API得到鼠标在Windows中的屏幕位置数值?
3. 该数值在CAD中如何转换？
4. 在CAD中如何判断鼠标位置？在菜单条区，在图标区等区域
上述问题可能重复，我主要目的是想在VBA中通过API函数来控制和检测鼠标的当前位置，实现程序中的某些功能。谢谢各位了！

由 efan2000 于 2003年04月23日 11:57 发表:

先从第2个开始吧，API函数GetCursorPos可以返回鼠标在屏幕中的位置。
但是这个还不能解决问题，再用函数ScreenToClient将其坐标转化成相对于AutoCAD中当前文档的坐标吧。如何转化？传递当前文档的句柄给它，,ActiveDocument.Hwnd。
现在当前文档的鼠标位置有了，接下来呢，用系统变量VIEWCTR，VIEWSIZE，SCREENSIZE。这些系统变量怎么用？VIEWCTR是文档文档显示部分的中心点坐标，VIEWSIZE是当前文档显示部分的高度，它们的单位都是当前文档的坐标单位。知道了就可以求出左上角的坐标，为什么用左上角啊，因为窗口的坐标系原来在那儿。接着求出当前文档显示的宽度和高度吧，什么用处？看下面说明吧。SCREENSIZE是当前文档的以像素为单位的X坐标和Y坐标，而上面求出的鼠标位置（已经经过转换）与它的比例，再与当前文档显示的宽度和高度相乘，知道了鼠标与当前文档左上角的偏移距离了吗？
剩下的还有什么？动态，那么用API的钩子函数捕获吧，太麻烦？那么用定时器，每隔一定时间捕获一次。
其它的类似，祝你好运。