Sub CreateBlocksInAutoCAD80()
    ' Переменные для Excel
    Dim ws As Worksheet
    Dim length1 As Double, width1 As Double
       
    ' Переменные для AutoCAD
    Dim acadApp As Object
    Dim acadDoc As Object
    Dim insertionPoint1(0 To 2) As Double
    Dim insertionPoint2(0 To 2) As Double
    Dim blockRef1 As Object
    Dim blockName1 As String
      
    ' Инициализация переменных
    Set ws = ThisWorkbook.Sheets("Лист1")
    length1 = ws.Range("A1").Value
    width1 = ws.Range("B1").Value
    
    ' Установление связи с AutoCAD
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If acadApp Is Nothing Then
        Set acadApp = CreateObject("AutoCAD.Application")
    End If
    On Error GoTo 0
    
    ' Создание нового документа в AutoCAD
    On Error GoTo ErrorHandler
    Set acadDoc = acadApp.Documents.Add
    
    ' Координаты точки вставки первого блока
    insertionPoint1(0) = 0
    insertionPoint1(1) = 0
    insertionPoint1(2) = 0
        
    ' Имена блоков
    blockName1 = "Block1"
    
    ' Создание первого блока
    Set blockRef1 = acadDoc.ModelSpace.InsertBlock(insertionPoint1, blockName1, 1, 1, 1, 0)
    ' Пример установки свойств блока, если они поддерживаются
    ' blockRef1.Width = width1
    ' blockRef1.Height = length1
        
    ' Отображение AutoCAD
    acadApp.Visible = True
        
    Exit Sub