acadapp.GetAcadState.IsQuiescent 总是false,为什么？

xinxirong

VB6做的exe程序，打开dwg文件。acadapp.open 文件出现“部件忙”没有响应，点切换按钮到cad，却是空闲状态。有时候要重启cad才正常打开文件

1.     Dim ts As String
   
2.     Dim tsmsg As String
   
3.     Dim acadapp As AcadApplication
   
4. 
   
5.     On Error Resume Next
   
6.     cadfilepathd = Command$
   
7.     cadfilepathd = "C:\temp\1.dwg"
   
8. 
   
9.     Set acadapp = GetObject(, "AutoCAD.Application.17.1") '检测cad是否打开
   
10.     If Err.Number = 429 Then  'cad如果没有打开
    
11.         Error.Clear
    
12. 
    
13.             Set acadapp = CreateObject("", "AutoCAD.Application.17.1") '打开cad
    
14.             acadapp.Visible = True 'cad可见
    
15.             SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0
    
16.             SetForegroundWindow acadapp.hwnd
    
17.             BringWindowToTop acadapp.hwnd
    
18. 
    
19.             If acadapp.GetAcadState.IsQuiescent = True Then
    
20.               acadapp.Documents.Open cadfilepathd '打开相应文件
    
21.               acadapp.Visible = True 'cad可见
    
22.             End If
    
23.             'SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0
    
24.             SetForegroundWindow acadapp.hwnd
    
25.             BringWindowToTop acadapp.hwnd
    
26.     Else        '如果打开了
    
27. 
    
28.         If acadapp.GetAcadState.IsQuiescent = True Then
    
29. 
    
30.             acadapp.Visible = True 'cad可见
    
31.             SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0
    
32.             SetForegroundWindow acadapp.hwnd
    
33.             BringWindowToTop acadapp.hwnd
    
34. 
    
35.             acadapp.Documents.Open cadfilepathd '打开相应文件
    
36.         Else
    
37. 
    
38.         End If
    
39. 
    
40.     End If
    

    Dim ts As String<br />     Dim tsmsg As String<br />     Dim acadapp As AcadApplication<br /> <br />     On Error Resume Next<br />     cadfilepathd = Command$<br />     cadfilepathd = "C:\temp\1.dwg"<br /> <br />     Set acadapp = GetObject(, "AutoCAD.Application.17.1") '检测cad是否打开<br />     If Err.Number = 429 Then  'cad如果没有打开<br />         Error.Clear<br /> <br />             Set acadapp = CreateObject("", "AutoCAD.Application.17.1") '打开cad<br />             acadapp.Visible = True 'cad可见<br />             SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0<br />             SetForegroundWindow acadapp.hwnd<br />             BringWindowToTop acadapp.hwnd<br /> <br />             If acadapp.GetAcadState.IsQuiescent = True Then<br />               acadapp.Documents.Open cadfilepathd '打开相应文件<br />               acadapp.Visible = True 'cad可见<br />             End If<br />             'SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0<br />             SetForegroundWindow acadapp.hwnd<br />             BringWindowToTop acadapp.hwnd<br />     Else        '如果打开了<br /> <br />         If acadapp.GetAcadState.IsQuiescent = True Then<br /> <br />             acadapp.Visible = True 'cad可见<br />             SendMessageBynum& acadapp.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0<br />             SetForegroundWindow acadapp.hwnd<br />             BringWindowToTop acadapp.hwnd<br /> <br />             acadapp.Documents.Open cadfilepathd '打开相应文件<br />         Else<br /> <br />         End If<br /> <br />     End If<br />