How to close text window

[jjin]

Hi, Anyone knows how to close the text window.
When I use sendcommand, Each time in the middle of program I have to manually to close the text window. Is there any way I can use VB code to close this window?
thanks
John

 

[allfro]

Can you give us some example code? or at least explain why you think it
is happenning.

Are you sending "_-dimstyle "


--
allfro - Chaos Coder Extraordinaire

'site index' (http://www.vbdesign.net/) | please use [ vbcode]
\"your_code_here\" [/vbcode ] code tags | be nice | 'new posts'
(http://tinyurl.com/3xqrw) | 'go babelfish' (http://tinyurl.com/2j7df)

 

[developer]

Using A2K in SDI mode I do it this way:

' declare needed Win32 API functions globally in a module
Public Declare Function GetActiveWindow Lib "user32" () As Long

Public Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" (ByVal hwnd As Long, _
    ByVal lpString As String, ByVal cch As Long) As Long

' returns true if the AutoCAD text screen is currently active
Public Function IsTextScr() As Boolean
    Dim Handle As Long
    Dim Title As String
    Title = Space(256)
    Handle = GetActiveWindow
    GetWindowText Handle, Title, 125
    If StrComp(Left(Title, 19), "AutoCAD Text Window", 1) = 0 Then
        IsTextScr = True
    End If
End Function

' switch to the AutoCad drawing editor
If IsTextScr Then
    SendKeys "{F2}", True
End If

 

[Kevin Terry]

this works most of the time:

ThisDrawing.SendCommand "graphscr" & vbCr

Kevin

Hi, Anyone knows how to close the text window.
When I use sendcommand, Each time in the middle of program I have to

manually to close the text window. Is there any way I can use VB code to
close this window?