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

  _
    Public Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function
    
     _
    Public Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure
 
     _
    Public Shared Function GetTopWindow(ByVal hWnd As IntPtr) As IntPtr
    End Function
 
     _
    Public Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As UInt32) As IntPtr
    End Function    Public Shared Function GetChildWindows(ByVal ParentWindowsHandle As IntPtr) As List(Of IntPtr)
        Dim rtn As New List(Of IntPtr)
        Try
            Dim Handle As IntPtr = GetTopWindow(ParentWindowsHandle)
            While Handle  0
                rtn.Add(Handle)
                Handle = GetWindow(Handle, 2)
            End While
        Catch ex As Exception
        End Try
        Return rtn
    End Function
     _
    Sub T1()
        Dim doc As Document = Autodesk..ApplicationServices.Application.DocumentManager.MdiActiveDocument
    
        Dim HandleList As List(Of IntPtr) = GetChildWindows(doc.Window.Handle)
        Dim Rect As New RECT() With {.Bottom = 0, .Left = 0, .Right = 0, .Top = 0}
        GetWindowRect(HandleList(1), Rect) 'HandleList里有3个句柄，第2个为绘图区域的句柄
        doc.Editor.WriteMessage(String.Format("绘图区域左上角屏幕坐标为：x={0},y={1},宽度为:{2},高度为:{3}", Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top))
    End Sub