Из Excel в AutoCAD и обратно в Excel

      Dim acDoc as AcadDocument
      Set acDoc = [вот тот уже открытый чертеж]

Option Explicit
'' ***   Добавить Reference:   ***
''Tools--> References --> AutoCAD Focus Control for VBA Type Library
Dim pnum As String, x As String, y As String, z As String
Dim acApp As AcadApplication
Dim acDoc As AcadDocument
Dim acSpace As AcadBlock
Dim acdCap As String, ExcCap As String, copyStr As String
Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public Sub TestAcadExcelInteraction()
On Error GoTo Err_Control
ExcCap = Application.Caption

Set acApp = GetObject(, "Autocad.Application")
acApp.Visible = True
SetFocus acApp.hwnd
Application.WindowState = xlMinimized
acApp.WindowState = acMax

Set acDoc = acApp.ActiveDocument

If acDoc.GetVariable("CVPORT") = 1 Then
    Set acSpace = acDoc.PaperSpace
Else
    Set acSpace = acDoc.ModelSpace
End If
'здесь чего-нибудь рисуем в активной вкладке или модели
Dim ftype(0) As Integer
Dim fdata(0) As Variant
Dim dxfCode, dxfValue
ftype(0) = 0: fdata(0) = "*text"
dxfCode = ftype: dxfValue = fdata
     Dim oSset As AcadSelectionSet
          With acDoc.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set oSset = .Add("MySset")
          End With
acApp.Eval ("msgbox(" & Chr(34) & "Выбрать единичный Tекст или Mтекст, нажать Enter" & Chr(34) & ")")
oSset.SelectOnScreen dxfCode, dxfValue
Dim oEnt As AcadEntity
Set oEnt = oSset.Item(0)
If TypeOf oEnt Is AcadText Then
Dim oText As AcadText
Set oText = oEnt
Dim tstrval As String
tstrval = oText.TextString
copyStr = tstrval
''dummy test:
acApp.Eval ("msgbox(" & Chr(34) & tstrval & Chr(34) & ")")
End If

If TypeOf oEnt Is AcadMText Then
Dim oMText As AcadMText
Set oMText = oEnt
Dim mstrval As String
mstrval = oMText.TextString
copyStr = mstrval
''dummy test:
acApp.Eval ("msgbox(" & Chr(34) & mstrval & Chr(34) & ")")
End If


SetFocus Application.hwnd '' you go back to Excel
Application.WindowState = xlMaximized
''dummy test:
Cells(10, 10) = copyStr
Err_Control:
If Err.Number <> 0 Then

MsgBox Err.Description
End If

End Sub