[求助]：斑竹efan2000，如何实现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的钩子函数捕获吧，太麻烦？那么用定时器，每隔一定时间捕获一次。
其它的类似，祝你好运。

efan2000

这是一个简单的换化代码，可以参考一下，基本思路是这样的。

2. 
   
3.   [FONT=courier new]
   
4. Option Explicit
   
5. 
   
6. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
   
7. Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
   
8. Private Type POINTAPI
   
9.     X As Long
   
10.     Y As Long
    
11. End Type
    
12. 
    
13. Sub Test()
    
14.     Dim p As POINTAPI
    
15.     Dim ScreenSize As Variant
    
16.     Dim ViewCtr As Variant
    
17.     Dim ViewSize As Double
    
18.     Dim Pt(0 To 2) As Double
    
19.    
    
20.     ScreenSize = ThisDrawing.GetVariable("SCREENSIZE")
    
21.     ViewSize = ThisDrawing.GetVariable("VIEWSIZE")
    
22.     ViewCtr = ThisDrawing.GetVariable("VIEWCTR")
    
23.     GetCursorPos p
    
24.     ScreenToClient ThisDrawing.hwnd, p
    
25.     Pt(0) = ViewCtr(0) + Round((p.X - ScreenSize(0) / 2) * ViewSize / ScreenSize(1) + 0.0000000001, 8)
    
26.     Pt(1) = ViewCtr(1) - Round((p.Y - ScreenSize(1) / 2) * ViewSize / ScreenSize(1) + 0.0000000001, 8)
    
27. End Sub
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> Option Explicit<br /> <br /> Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long<br /> Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long<br /> Private Type POINTAPI<br />     X As Long<br />     Y As Long<br /> End Type<br /> <br /> Sub Test()<br />     Dim p As POINTAPI<br />     Dim ScreenSize As Variant<br />     Dim ViewCtr As Variant<br />     Dim ViewSize As Double<br />     Dim Pt(0 To 2) As Double<br />     <br />     ScreenSize = ThisDrawing.GetVariable("SCREENSIZE")<br />     ViewSize = ThisDrawing.GetVariable("VIEWSIZE")<br />     ViewCtr = ThisDrawing.GetVariable("VIEWCTR")<br />     GetCursorPos p<br />     ScreenToClient ThisDrawing.hwnd, p<br />     Pt(0) = ViewCtr(0) + Round((p.X - ScreenSize(0) / 2) * ViewSize / ScreenSize(1) + 0.0000000001, 8)<br />     Pt(1) = ViewCtr(1) - Round((p.Y - ScreenSize(1) / 2) * ViewSize / ScreenSize(1) + 0.0000000001, 8)<br /> End Sub<br />   [/FONT]<br />

cyt4321

谢谢斑竹!