Sub Example_AddMInsertBlock()
    ' Этот пример создает новый Block в текущем рисунке, добавляет объект
    ' Circle к новому блоку, и использует недавно созданный блок, чтобы
    ' cоздать прямоугольный массив вхождений блока, используя
    ' AddMInsertBlock
    
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double, InsertPoint(0 To 2) As Double
    Dim radius As Double
    Dim newMBlock As AcadMInsertBlock
    Dim newBlock As AcadBlock
    
    ' Определите объект Circle, который будет вставлен в блок
    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
    InsertPoint(0) = 1: InsertPoint(1) = 1: InsertPoint(2) = 0
    radius = 0.5
    
    ' Создайте новый блок, чтобы держать объект Circle
    Set newBlock = ThisDrawing.Blocks.Add(centerPoint, "CBlock")
    
    ' Добавьте объект Circle к новому блоку
    Set circleObj = ThisDrawing.Blocks("CBlock").AddCircle(centerPoint, radius)
    
    ' Создайте прямоугольный массив Circle, используя новый блок,
    ' содержащий Circle и метод AddMInsertBlock
    Set newMBlock = ThisDrawing.ModelSpace.AddMInsertBlock(InsertPoint, "CBlock", 1, 1, 1, 1, 2, 2, 1, 1)
        
    ThisDrawing.Application.ZoomAll
    
    MsgBox "Прямоугольный массив был создан из первоначального блока. "

End Sub