Sub Vs()
'Прописываем переменные
Dim blockref As AcadBlockReference
Dim name As String
Dim pp As Variant
Dim AP As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
On Error Resume Next
'Подкл к ексель
Set AP = Excel.Application
Set WB = AP.Workbooks.Open("D:\Odnolineyka.xlsm")
Set WS = WB.Worksheets(1)
'Получаем точку вставки
pp = ThisDrawing.Utility.GetPoint(, "Укажите точку вставки")
'Вставка блока
name = "МультиФидер"
Set blockref = ThisDrawing.ModelSpace.insertblock(pp, name, 1, 1, 1, 0)
'Получение атрибутов
If blockref.HasAttributes = True Then
att = blockref.GetAttributes
For i = LBound(att) To UBound(att)
If att(i).TagString = "НАИМЕНОВАНИЕ_ПОТРЕБИТЕЛЯ" Then
att(i).TextString = Cells(12, 2)
ElseIf att(i).TagString = "МАРКА_КАБЕЛЯ" Then
att(i).TextString = Cells(13, 2)
ElseIf att(i).TagString = "ДЛИНА_КАБЕЛЯ" Then
att(i).TextString = Cells(14, 2)
ElseIf att(i).TagString = "НОМИНАЛ_АВ" Then
att(i).TextString = Cells(16, 2)
ElseIf att(i).TagString = "НОМИНАЛ_МП_1" Then
att(i).TextString = Cells(18, 2)
ElseIf att(i).TagString = "НОМИНАЛ_МП_2" Then
att(i).TextString = Cells(20, 2)
End If
Next
End If
AP.Quit
End Sub