[分享]：论：vba中无法获得当前鼠标的坐标值

caicad

结论：vba中无法获得当前鼠标的坐标值
在新闻组中也查了一下，也没有人知道，看来vba诗作不到这一点了，只有用lisp才可以了

rave

最初由 caicad 发布
[B]结论：vba中无法获得当前鼠标的坐标值
在新闻组中也查了一下，也没有人知道，看来vba诗作不到这一点了，只有用lisp才可以了 [/B]

结论不要下太早
可以通过访问几个Win32 API 函数来求得鼠标在作图窗口中的Windows坐标
然后再访问几个Acad系统变量加以运算即可求出鼠标的ACAD坐标值

caicad

能否举例说明

efan2000

应该结合API函数，文档对象本身提供了窗口的句柄，可以用GetCusroPos获取光标的位置，用GetWindowRect获取文档窗口的位置，再结合系统变量SCREENSIZE，计算出光标点在CAD中的位置（像素）。然后用系统变量VIEWCTR和VIEWSIZE换算成WCS坐标点。

XDSoft

给你贴篇ADN文章，把DWG坐标转换成屏幕象素坐标

2. <normalfont>
   
3. Translating DWG coordinates to screen coordinates  
   
4. ID    42345  
   
5. Applies to:    AutoCAD 2000
   
6. AutoCAD 2000I
   
7. AutoCAD 2002
   
8. 
   
9. Date    1/22/2002  
   
10. 
    
11. This document is part of   Coordinates and Transformations   ObjectARX   COM-ActiveX Interfaces   
    
12. 
    
13. 
    
14. Question
    
15. Can I get the screen (Windows) coordinates from the DWG coordinates using VBA to
    
16. show a UserForm with its position set exactly on the position of an object in
    
17. the .DWG?
    
18. Answer
    
19. Although you cannot do this in VBA, you can use the Win32 API and ObjectARX.
    
20. 
    
21. ObjectARX has functions that allow you to convert points from client windows to
    
22. .DWG points. You can create wrapper functions around them and export them. Make
    
23. sure you use VB-acceptable database types, and use the __stdcall calling
    
24. convention. It is suggested that you place the .ARX file in your installed
    
25. AutoCAD directory in order to make it easy to resolve the path to find such a
    
26. file for a VBA or VB application.
    
27. 
    
28. In VBA or VB, you can declare the exported functions from the .ARX file just as
    
29. all other functions from the Win32 API libraries. Now you can use them as if
    
30. they areVBA ot VB functions, but make sure that the .ARX file is loaded.
    
31. 
    
32. Two sample applications are attached; one in VC++ and another in VBA, that show
    
33. you how to do the above. If you prefer not to use the VC++ code, copy the
    
34. ..\release\asdktransformpts.arx file to your installed AutoCAD directory.
    
35. 
    
36. Notice that the translated coordinates are relative to the AutoCAD frame window.
    
37. If you want screen (desktop) points, use CWnd::ClientToScreen() to convert them.
    
38. 
    
39. </normalfont>
    

<normalfont><br /> Translating DWG coordinates to screen coordinates  <br /> ID    42345  <br /> Applies to:    AutoCAD 2000<br /> AutoCAD 2000I<br /> AutoCAD 2002<br /> <br /> Date    1/22/2002  <br /> <br /> This document is part of   Coordinates and Transformations   ObjectARX   COM-ActiveX Interfaces    <br /> <br /> <br /> Question<br /> Can I get the screen (Windows) coordinates from the DWG coordinates using VBA to<br /> show a UserForm with its position set exactly on the position of an object in<br /> the .DWG?<br /> Answer<br /> Although you cannot do this in VBA, you can use the Win32 API and ObjectARX.<br /> <br /> ObjectARX has functions that allow you to convert points from client windows to<br /> .DWG points. You can create wrapper functions around them and export them. Make<br /> sure you use VB-acceptable database types, and use the __stdcall calling<br /> convention. It is suggested that you place the .ARX file in your installed<br /> AutoCAD directory in order to make it easy to resolve the path to find such a<br /> file for a VBA or VB application.<br /> <br /> In VBA or VB, you can declare the exported functions from the .ARX file just as<br /> all other functions from the Win32 API libraries. Now you can use them as if<br /> they areVBA ot VB functions, but make sure that the .ARX file is loaded.<br /> <br /> Two sample applications are attached; one in VC++ and another in VBA, that show<br /> you how to do the above. If you prefer not to use the VC++ code, copy the<br /> ..\release\asdktransformpts.arx file to your installed AutoCAD directory.<br /> <br /> Notice that the translated coordinates are relative to the AutoCAD frame window.<br /> If you want screen (desktop) points, use CWnd::ClientToScreen() to convert them.<br /> <br /> </normalfont><br />

下面附件是例子代码