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

guohq

通过 PointToScreen 只能获取某点相对于绘图区域 左上角屏幕坐标，要想获取此点在屏幕上的绝对坐标，还必须获取左上角的屏幕坐标。

枫叶棋语

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)

复制代码

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 /> }

d1742647821

可以参考一下

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

kozmosovia

读取系统变量"VIEWSIZE" "SCREENSIZE" "VIEWCTR"计算

guohq

此方法不行

知行ooo李肖坪

同步学习中…………谢谢

ivde

CPoint pt(0,0);
acedDwgPoint ptOut;
acedCoordFromPixelToWorld(pt,ptOut);

guohq

ivde 发表于 2016-1-23 21:56
CPoint pt(0,0);
acedDwgPoint ptOut;
acedCoordFromPixelToWorld(pt,ptOut);

不好意思 ，我在.net 中没有找到此方法呢acedCoordFromPixelToWorld  ，能说详细点不？谢谢！！

guohq

[DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acedCoordFromWorldToPixel@@YAHHQBNAAVCPoint@@@Z")]
private static extern bool acedCoordFromWorldToPixel(int viewportNumber, ref Point3d worldPt, out Point pixel);

经查证，acedCoordFromPixelToWorld   与 Editor.PointToScreen 方法得到的结果一样。

鱼与熊掌

1.             var pt= doc.Window.Location;
   
2.             var size = doc.Window.Size;
   
3. 
   
4.             var gs = doc.GraphicsManager;
   
5.             var gsSize = doc.GraphicsManager.DisplaySize;
   
6.             pt.Offset(0, gsSize.Height - size.Height);

复制代码

clh521

我也想知道

guohq

鱼与熊掌 发表于 2016-1-25 14:39

谢谢，此方法还是不够精确