Sub Example_Blocks()
    ' Этот пример сначала находит коллекцию Blocks, используя свойство
    ' Blocks. Затем добавляет новый блок к коллекции Blocks.
    
    Dim blkColl As AcadBlocks
    Dim newBlock As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    
    ' Получите коллекцию Blocks
    Set blkColl = ThisDrawing.Blocks
    
    ' Определите точку ввода для нового блока
    insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    
    ' Добавьте новый блок в коллекцию Blocks
    Set newBlock = blkColl.Add(insertionPnt, "TEST")
    MsgBox "Блок " & newBlock.name & " добавился к коллекции блоков", vbInformation, "Blocks Пример"
End Sub