怎样获取CAD绘图区域左上角的屏幕坐标

guohq

查了几天资料，终于找到求解方法，具体如下

1.通过 doc.Window.Handle 获取 当前文档窗口的句柄 68478  （以下列出的数值皆为说明问题，每个人计算出的结果都不会一样）

2.获取 doc.Window对象下的所有子窗口，用到两个 api函数

    <DllImport("user32.DLL", EntryPoint:="GetTopWindow", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetTopWindow(ByVal hWnd As IntPtr) As IntPtr

    End Function


    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Public Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As UInt32) As IntPtr

    End Function

   调用如下：
   
   GetTopWindow(68478)  =  330634  顶层窗口
   GetWindow（330634,2） =   68484   第二个窗口(2代表 同级别Z序之下，具体解百度下）
   GetWindow（68484,2）  =   134058  第三个窗口
   GetWindow（134058,2） =0   此处说明没有窗口了
从上面的情况来看，每个CAD文档窗口下，都会有3个子窗口

3.根据窗口句柄获取窗口的大小与位置，使用下面api函数即可

<DllImport("user32.dll")> _
    Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure RECT
        Public Left As Integer '       // x position of upper-left corner
        Public Top As Integer ';         // y position of upper-left corner
        Public Right As Integer ';       // x position of lower-right corner
        Public Bottom As Integer ';      // y position of lower-right corner
    End Structure

    dim Rec as new RECT
    GetWindowRect(68478 ,Rec)  获取文档窗口的大小 与位置 （经查证，Rec返回的值 与 doc.Window.Location 与  doc.Window.Size的值完全一致）

    GetWindowRect(330634 ,Rec)  获取第一个子窗口的大小与位置（此值获取后，发现Left与Right值一样，Bottom与Top值一个，说明此窗口是一个大小为0的窗口，肯定不是绘图区域）

     GetWindowRect(68484 ,Rec)  获取第二个子窗口的大小与位置（此值获取后，用Right减Left Bottom减Top的值 与 doc.GraphicsManager.DisplaySize的值大小一值，说明此子窗口为绘图区域，而 Left与Top组成的值即为绘图区域左上角的坐标了 ）

     GetWindowRect(134058 ,Rec) 获取三个子窗口的大小与位置（此值获取后，发现此窗口是一个高度为6个像素的窗口，不知道有什么用处）


以上即为 获取 绘图区域左上角坐标的详细分析过程。

cairunbin

赞一下，赞分享。

llsheng_73

1. (defun ScreenWin(/ h c);;当前屏幕对角坐标(wcs)
   
2.   (setq c(trans(getvar'viewctr)1 0)
   
3.         h(*(getvar'viewsize)0.5)
   
4.         h(list(*(apply'/(getvar'screensize))h)h))
   
5.   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

(defun ScreenWin(/ h c);;当前屏幕对角坐标(wcs)<br />   (setq c(trans(getvar'viewctr)1 0)<br />         h(*(getvar'viewsize)0.5)<br />         h(list(*(apply'/(getvar'screensize))h)h))<br />   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

guohq

llsheng_73 发表于 2016-1-28 18:09

我要计算的是屏幕的像素坐标

wz0406

解决我一个难题，CAD截图

xgr

2. using System;
   
3. using System.Runtime.InteropServices;
   
4. using System.Windows.Forms;
   
5. using Application = Autodesk.AutoCAD.ApplicationServices.Core.Application;
   
6. 
   
7. namespace 取得CAD绘图区域屏幕坐标
   
8. {
   
9. public partial class Form1 : Form
   
10. {
    
11. public Form1()
    
12. {
    
13. InitializeComponent();
    
14. }
    
15. 
    
16. [DllImport("user32.DLL", EntryPoint = "GetTopWindow", SetLastError = true, CharSet = CharSet.Unicode,
    
17. ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
    
18. 
    
19. public static extern IntPtr GetTopWindow(IntPtr hWnd);
    
20. 
    
21. [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
    
22. public static extern IntPtr GetWindow(IntPtr hWnd, UInt32 uCmd);
    
23. 
    
24. [DllImport("user32.dll")]
    
25. [return: MarshalAs(UnmanagedType.Bool)]
    
26. static extern bool GetWindowRect(IntPtr hWnd, ref Rect lpRect);
    
27. 
    
28. [StructLayout(LayoutKind.Sequential)]
    
29. public struct Rect
    
30. {
    
31. public int Left; //最左坐标
    
32. public int Top; //最上坐标
    
33. public int Right; //最右坐标
    
34. public int Bottom; //最下坐标
    
35. }
    
36. 
    
37. private void button1_Click(object sender, EventArgs e)
    
38. {
    
39. Rect rect = new Rect();
    
40. IntPtr intPtr1 = GetTopWindow(Application.DocumentManager.MdiActiveDocument.Window.Handle);
    
41. textBox1.Text = intPtr1.ToString();
    
42. IntPtr intPtr2 = GetWindow(intPtr1, 2);
    
43. GetWindowRect(intPtr2, ref rect);
    
44. textBox2.Text = rect.Left.ToString();
    
45. textBox3.Text = rect.Top.ToString();
    
46. textBox4.Text = (rect.Right - rect.Left).ToString();
    
47. textBox5.Text = (rect.Bottom - rect.Top).ToString();
    
48. }
    
49. }
    
50. }

using System;<br /> using System.Runtime.InteropServices;<br /> using System.Windows.Forms;<br /> using Application = Autodesk.AutoCAD.ApplicationServices.Core.Application;<br /> <br /> namespace 取得CAD绘图区域屏幕坐标<br /> {<br /> public partial class Form1 : Form<br /> {<br /> public Form1()<br /> {<br /> InitializeComponent();<br /> }<br /> <br /> [DllImport("user32.DLL", EntryPoint = "GetTopWindow", SetLastError = true, CharSet = CharSet.Unicode,<br /> ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]<br /> <br /> public static extern IntPtr GetTopWindow(IntPtr hWnd);<br /> <br /> [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]<br /> public static extern IntPtr GetWindow(IntPtr hWnd, UInt32 uCmd);<br /> <br /> [DllImport("user32.dll")]<br /> [return: MarshalAs(UnmanagedType.Bool)]<br /> static extern bool GetWindowRect(IntPtr hWnd, ref Rect lpRect);<br /> <br /> [StructLayout(LayoutKind.Sequential)]<br /> public struct Rect<br /> {<br /> public int Left; //最左坐标<br /> public int Top; //最上坐标<br /> public int Right; //最右坐标<br /> public int Bottom; //最下坐标<br /> }<br /> <br /> private void button1_Click(object sender, EventArgs e)<br /> {<br /> Rect rect = new Rect();<br /> IntPtr intPtr1 = GetTopWindow(Application.DocumentManager.MdiActiveDocument.Window.Handle);<br /> textBox1.Text = intPtr1.ToString();<br /> IntPtr intPtr2 = GetWindow(intPtr1, 2);<br /> GetWindowRect(intPtr2, ref rect);<br /> textBox2.Text = rect.Left.ToString();<br /> textBox3.Text = rect.Top.ToString();<br /> textBox4.Text = (rect.Right - rect.Left).ToString();<br /> textBox5.Text = (rect.Bottom - rect.Top).ToString();<br /> }<br /> }<br /> }

枫叶棋语

1. from pycad.system import *
   
2. from pycad.runtime import *
   
3. import ctypes
   
4. import clr
   
5. 
   
6. clr.AddReference("System.Drawing")
   
7. clr.AddReference("System.Windows.Forms")
   
8. clr.AddReference("PresentationCore")
   
9. clr.AddReference("PresentationFramework")
   
10. clr.AddReference("WindowsBase")
    
11. clr.AddReference("OpenCvSharp")
    
12. clr.AddReference("OpenCvSharp.Extensions")
    
13. import OpenCvSharp as cv
    
14. from OpenCvSharp import Cv2
    
15. from OpenCvSharp.Extensions import BitmapConverter
    
16. from System.Windows.Forms import Form, Control, NativeWindow
    
17. from System.Drawing import Point, Bitmap, Graphics
    
18. from System.Windows.Forms import Screen
    
19. 
    
20. 
    
21. class POINT(ctypes.Structure):
    
22.     _fields_ = [("x", ctypes.c_long), ("y", ctypes.c_long)]
    
23. 
    
24. 
    
25. def get_mouse_position():
    
26.     pt = POINT()
    
27.     ctypes.windll.user32.GetCursorPos(ctypes.byref(pt))
    
28.     return pt.x, pt.y
    
29. 
    
30. 
    
31. 
    
32. x_offset = 0
    
33. y_offset = 0
    
34. 
    
35. 
    
36. @Command()
    
37. def InitialScreen(doc: Document):
    
38.     """屏幕坐标校准"""
    
39.     global x_offset, y_offset
    
40.     ed = doc.Editor
    
41.     res = getpoint()
    
42.     if not res.ok:
    
43.         return
    
44.     cad_pt = res.value  # tpye:Point3d
    
45.     windowpt = get_mouse_position()  # 屏幕的绝对坐标
    
46.     view_pt = ed.PointToScreen(cad_pt, 0)  # CAD视口的相对坐标
    
47.     # 求出坐标偏移值
    
48.     x_offset = windowpt[0] - view_pt.X
    
49.     y_offset = windowpt[1] - view_pt.Y
    
50. 
    
51. 
    
52. def capture_screen(pt1: Point, pt2: Point):
    
53.     """截屏"""
    
54.     x1, x2, y1, y2 = int(pt1.X), int(pt2.X), int(pt1.Y), int(pt2.Y)
    
55.     xmin = min(x1, x2) - 1
    
56.     xmax = max(x1, x2) + 1
    
57.     ymin = min(y1, y2) - 1
    
58.     ymax = max(y1, y2) + 1
    
59. 
    
60.     width = xmax - xmin
    
61.     height = ymax - ymin
    
62.     bitmap = Bitmap(width, height)
    
63.     graphics = Graphics.FromImage(bitmap)
    
64.     graphics.CopyFromScreen(xmin, ymin, 0, 0, bitmap.Size)
    
65.     return bitmap
    
66. 
    
67. 
    
68. @Command()
    
69. def CaptureScreen(doc: Document):
    
70.     global x_offset, y_offset
    
71.     ed = doc.Editor
    
72.     res = getpoint()
    
73.     if not res.ok:
    
74.         return
    
75.     pt1 = res.value
    
76.     res = getcorner(basept=pt1)
    
77.     if not res.ok:
    
78.         return
    
79.     pt2 = res.value
    
80. 
    
81.     winpts = []
    
82.     for pt in [pt1, pt2]:
    
83.         screenpt = ed.PointToScreen(pt, 0)
    
84.         windowpt = Point(int(screenpt.X + x_offset), int(screenpt.Y + y_offset))
    
85.         winpts.append(windowpt)
    
86. 
    
87.     screenshot = capture_screen(winpts[0], winpts[1])
    
88.     mat = BitmapConverter.ToMat(screenshot)
    
89.     prinf(mat)
    
90.     Cv2.ImShow("img", mat)

复制代码

d1742647821

可以参考一下

CAD坐标转为屏幕坐标
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=189169&fromuid=7329732
(出处: 明经CAD社区)