Когда я работаю с dwg файлом из других приложений (Excel или Access), я использую свойство MyAutoCAD.Visible = False. См. нижеприведенный пример. Правда, он написан давно… Поэтому, как всегда, его надо бы усовершенствовать…
Думаю, что так же можно сделать и при обращении из AutoCAD
Option Explicit
Dim wasAutoCADOpen As Boolean
Dim MyAutoCAD As AcadApplication
Public AcadFiles() As String 'массив Acadфайлов
Private Function AutoCADOpen()
'Разработал В.Г. Тимаков 16.01.2007
'Цель: Открытие AutoCAD'приложения
'попытка работать с открытым AutoCAD-приложением
On Error GoTo StartAutoCAD
Set MyAutoCAD = GetObject(, "AutoCAD.Application")
'Внимание! Имеют место нюансы, связанные с версией AutoCAD'а, к которому ты обращаешься.
'Если это AutoCAD2006, например, то вместо "AutoCAD.Application"
'следует писать "AutoCAD.Application.16.2"
wasAutoCADOpen = True
StartAutoCAD:
If Err.Number = 429 Then 'если нет открытого AutoCAD-приложения
'вставить здесь запуск окна с текстом "Подождите, пожалуйста. Идет загрузка приложения AutoCAD"
Set MyAutoCAD = CreateObject("AutoCAD.Application")
End If
Err.Clear
MyAutoCAD.Visible = True
или
MyAutoCAD.Visible = False
End Function