怎样获取CAD绘图区域左上角的屏幕坐标（代码篇）

guohq

2. <DllImport("user32.dll")> _
   
3.     Public Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
   
4. 
   
5.     End Function
   
6. 
   
7.    
   
8.     <StructLayout(LayoutKind.Sequential)> _
   
9.     Public Structure RECT
   
10.         Public Left As Integer
    
11.         Public Top As Integer
    
12.         Public Right As Integer
    
13.         Public Bottom As Integer
    
14.     End Structure
    
15. 
    
16. 
    
17. 
    
18.     <DllImport("user32.DLL", EntryPoint:="GetTopWindow", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    
19.     Public Shared Function GetTopWindow(ByVal hWnd As IntPtr) As IntPtr
    
20. 
    
21.     End Function
    
22. 
    
23. 
    
24.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    
25.     Public Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As UInt32) As IntPtr
    
26.     End Function
    
27. 
    
28. 
    
29. 
    
30.     Public Shared Function GetChildWindows(ByVal ParentWindowsHandle As IntPtr) As List(Of IntPtr)
    
31.         Dim rtn As New List(Of IntPtr)
    
32.         Try
    
33.             Dim Handle As IntPtr = GetTopWindow(ParentWindowsHandle)
    
34.             While Handle <> 0
    
35.                 rtn.Add(Handle)
    
36.                 Handle = GetWindow(Handle, 2)
    
37.             End While
    
38.         Catch ex As Exception
    
39. 
    
40.         End Try
    
41.         Return rtn
    
42.     End Function
    
43. 
    
44.     <CommandMethod("T1")> _
    
45.     Sub T1()
    
46.         Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
    
47.    
    
48.         Dim HandleList As List(Of IntPtr) = GetChildWindows(doc.Window.Handle)
    
49.         Dim Rect As New RECT() With {.Bottom = 0, .Left = 0, .Right = 0, .Top = 0}
    
50.         GetWindowRect(HandleList(1), Rect) 'HandleList里有3个句柄，第2个为绘图区域的句柄
    
51.         doc.Editor.WriteMessage(String.Format("绘图区域左上角屏幕坐标为：x={0},y={1},宽度为:{2},高度为:{3}", Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top))
    
52. 
    
53.     End Sub

<DllImport("user32.dll")> _<br />     Public Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean<br /> <br />     End Function<br /> <br />     <br />     <StructLayout(LayoutKind.Sequential)> _<br />     Public Structure RECT<br />         Public Left As Integer<br />         Public Top As Integer<br />         Public Right As Integer<br />         Public Bottom As Integer<br />     End Structure<br /> <br /> <br /> <br />     <DllImport("user32.DLL", EntryPoint:="GetTopWindow", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _<br />     Public Shared Function GetTopWindow(ByVal hWnd As IntPtr) As IntPtr<br /> <br />     End Function<br /> <br /> <br />     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _<br />     Public Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As UInt32) As IntPtr<br />     End Function<br /> <br /> <br /> <br />     Public Shared Function GetChildWindows(ByVal ParentWindowsHandle As IntPtr) As List(Of IntPtr)<br />         Dim rtn As New List(Of IntPtr)<br />         Try<br />             Dim Handle As IntPtr = GetTopWindow(ParentWindowsHandle)<br />             While Handle <> 0<br />                 rtn.Add(Handle)<br />                 Handle = GetWindow(Handle, 2)<br />             End While<br />         Catch ex As Exception<br /> <br />         End Try<br />         Return rtn<br />     End Function<br /> <br />     <CommandMethod("T1")> _<br />     Sub T1()<br />         Dim doc As Document = Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument<br />     <br />         Dim HandleList As List(Of IntPtr) = GetChildWindows(doc.Window.Handle)<br />         Dim Rect As New RECT() With {.Bottom = 0, .Left = 0, .Right = 0, .Top = 0}<br />         GetWindowRect(HandleList(1), Rect) 'HandleList里有3个句柄，第2个为绘图区域的句柄<br />         doc.Editor.WriteMessage(String.Format("绘图区域左上角屏幕坐标为：x={0},y={1},宽度为:{2},高度为:{3}", Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top))<br /> <br />     End Sub

知行ooo李肖坪

同步学习一下………………谢谢