Запуск макроса в AutoCad из Excel

> Loner Wanderer
Наверное автокад не может понять, что это за команда: "z-clear-empty-text"

Это запуск лиспа по очистке чертежей от пустых текстов. Но это не важно.
Ругается (как я понял) именно на метод
.SendCommand
А вот как правильно написать (и можно ли вообще это сделать из Excel) - я не знаю.

Sub MakeSpec()
Dim a As AcadDocument
For Each a In ThisDrawing.Application.Documents
    a.Activate
    'ThisDrawing.SendCommand "z-clear-empty-text" & vbCr
    'ThisDrawing.SendCommand "-purge" & vbCr & "a" & vbCr & vbCr & "n" & vbCr
    ThisDrawing.SendCommand "ai_selall" & vbCr
    'ThisDrawing.SendCommand "attout_my" & vbCr
    'ThisDrawing.SendCommand "qsave" & vbCr
    ThisDrawing.SendCommand "close" & vbCr
Next
End Sub
Sub ЗагрузкаAcad()
Dim DwgFileName As String
Dim FileName As String
DwgFileName = "I:\InGeo\Convert\ee1.dwg"
Set AcadApp = CreateObject("AutoCAD.Application")
AcadApp.Documents.Open DwgFileName
Set AcadDoc = AcadApp.ActiveDocument
FileName = "I:\InGeo\Convert\Examples.dvb"
LoadDVB FileName
AcadApp.RunMacro "I:\InGeo\Convert\Examples.dvb!Module1.MakeSpec"
End Sub
'Проверено,этот вариант работает на ACAD 2004
'**************************************
' А это авторский вариант на сайте
' Неверно имя переменной strFileName (объявлено  Dim DwgFileName As String
' И надо Set AcadApp=CreateObject("AutoCAD.Application")
'**************************************
'Sub ЗагрузкаAcad()
'Dim DwgFileName As String
'Dim FileName As String
'strFileName = "C:\test.dwg"
'CreateObject ("AutoCAD.Application")
'ACADApp.Documents.Open DwgFileName
'Set AcadDoc = ACADApp.ActiveDocument
'FileName = "C:\Proba.dvb"
'LoadDVB FileName
'AcadDoc.Application.RunMacro "Proba.dvb!Module1.MakeSpec"
'End Sub