[函数]获取AutoCAD命令行窗口句柄的函数

mccad

2. Option Explicit
   
3. '相关 API 函数声明
   
4. Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
   
5.         ByVal lpString As String, ByVal cch As Long) As Long '取得指定窗口的标题
   
6. Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long '取得窗口句柄
   
7. Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long '获取父窗口句柄
   
8. 
   
9. Const GW_CHILD = 5
   
10. Const GW_HWNDNEXT = 2
    
11. Const WM_GETTEXT = &HD
    
12. Const WM_GETTEXTLENGTH = &HE
    
13. 
    
14. '获取命令行窗口句柄的示例
    
15. Sub MC_GetCommandLineSample()
    
16.     Debug.Print GetCommandLineWindows(GetAcadHwnd)
    
17. End Sub
    
18. 
    
19. '获取AutoCAD主窗口句柄
    
20. Public Function GetAcadHwnd() As Long
    
21.     GetAcadHwnd = GetParent(GetParent(ThisDrawing.hwnd))
    
22. End Function
    
23. 
    
24. 
    
25. '遍查子窗口，判断窗口是否为命令行窗口，并返回命令行窗口句柄
    
26. Public Function GetCommandLineWindows(Window_Hwnd As Long) As Long
    
27.     Dim Buf As String
    
28.     Dim BufLen As Long
    
29.     Dim Child_hwnd As Long
    
30.     Dim Children() As Long
    
31.     Dim Num_Children As Integer
    
32.     Dim i As Integer
    
33.     Dim TitleText As String * 1024
    
34.     Dim TitleLeng As Long
    
35.     Dim Title As String
    
36.     Dim CHwnd As Long
    
37.    
    
38.     TitleLeng = GetWindowText(Window_Hwnd, TitleText, Len(TitleText))
    
39.     Title = Left$(TitleText, TitleLeng)
    
40.     If Left(Title, 3) = "命令行" Or Left(Title, 12) = "Command Line" Then
    
41.         GetCommandLineWindows = Window_Hwnd
    
42.         Exit Function
    
43.     End If
    
44.    
    
45.    
    
46.     Num_Children = 0
    
47.     Child_hwnd = GetWindow(Window_Hwnd, GW_CHILD) '取得第 1 个子窗口的句柄
    
48.     Do While Child_hwnd <> 0 '如果有子窗口
    
49.         Num_Children = Num_Children + 1
    
50.         ReDim Preserve Children(1 To Num_Children)
    
51.         Children(Num_Children) = Child_hwnd
    
52.         Child_hwnd = GetWindow(Child_hwnd, GW_HWNDNEXT) '取得下一个兄弟窗口的句柄
    
53.     Loop
    
54.    
    
55.     For i = 1 To Num_Children
    
56.         CHwnd = GetCommandLineWindows(Children(i))
    
57.         If CHwnd <> 0 Then GetCommandLineWindows = CHwnd
    
58.     Next i
    
59.    
    
60. End Function
    

Option Explicit<br /> '相关 API 函数声明<br /> Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _<br />         ByVal lpString As String, ByVal cch As Long) As Long '取得指定窗口的标题<br /> Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long '取得窗口句柄<br /> Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long '获取父窗口句柄<br /> <br /> Const GW_CHILD = 5<br /> Const GW_HWNDNEXT = 2<br /> Const WM_GETTEXT = &HD<br /> Const WM_GETTEXTLENGTH = &HE<br /> <br /> '获取命令行窗口句柄的示例<br /> Sub MC_GetCommandLineSample()<br />     Debug.Print GetCommandLineWindows(GetAcadHwnd)<br /> End Sub<br /> <br /> '获取<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>主窗口句柄<br /> Public Function GetAcadHwnd() As Long<br />     GetAcadHwnd = GetParent(GetParent(ThisDrawing.hwnd))<br /> End Function<br /> <br /> <br /> '遍查子窗口，判断窗口是否为命令行窗口，并返回命令行窗口句柄<br /> Public Function GetCommandLineWindows(Window_Hwnd As Long) As Long<br />     Dim Buf As String<br />     Dim BufLen As Long<br />     Dim Child_hwnd As Long<br />     Dim Children() As Long<br />     Dim Num_Children As Integer<br />     Dim i As Integer<br />     Dim TitleText As String * 1024<br />     Dim TitleLeng As Long<br />     Dim Title As String<br />     Dim CHwnd As Long<br />     <br />     TitleLeng = GetWindowText(Window_Hwnd, TitleText, Len(TitleText))<br />     Title = Left$(TitleText, TitleLeng)<br />     If Left(Title, 3) = "命令行" Or Left(Title, 12) = "Command Line" Then<br />         GetCommandLineWindows = Window_Hwnd<br />         Exit Function<br />     End If<br />     <br />     <br />     Num_Children = 0<br />     Child_hwnd = GetWindow(Window_Hwnd, GW_CHILD) '取得第 1 个子窗口的句柄<br />     Do While Child_hwnd <> 0 '如果有子窗口<br />         Num_Children = Num_Children + 1<br />         ReDim Preserve Children(1 To Num_Children)<br />         Children(Num_Children) = Child_hwnd<br />         Child_hwnd = GetWindow(Child_hwnd, GW_HWNDNEXT) '取得下一个兄弟窗口的句柄<br />     Loop<br />    <br />     For i = 1 To Num_Children<br />         CHwnd = GetCommandLineWindows(Children(i))<br />         If CHwnd <> 0 Then GetCommandLineWindows = CHwnd<br />     Next i<br />     <br /> End Function<br />

mccad

该函数进行一些改造，还可以取得AutoCAD窗口中任何一个控件的句柄。

iwzw

获得后可用来做什么？

yxr_MJTD

这是一个好方法啊，只是我想获取命令行中所输入的内容应该怎么做呢？请教一下老大。

crazylsp

谢谢找控件的分享