You can try to set the focus back to Autocad.
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetActiveWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Sub SetAcadFocus()
Dim AcadHandle As Long
Dim WindowReturn As Long
AcadHandle = FindWindow(vbNullString, Application.AcadApplication.Caption)
WindowReturn = SetActiveWindow(AcadHandle)
End Sub
---------------------------
(defun botsbuildbots() (botsbuildbots))