Sub Example_Rows()
    'Этот пример создает новый MInsertBlock в текущем рисунке и показывает
    ' информацию о столбеце и строке для нового MInsertBlock
    
    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 и метод AddMInsertBlock
    Set newMBlock = ThisDrawing.ModelSpace.AddMInsertBlock(InsertPoint, "CBlock", 1, 1, 1, 1, 2, 2, 1, 1)
        
    ThisDrawing.Application.ZoomAll
    
    'Покажите информацию о Столбцах и Строках, определенных MInsertBlock
    MsgBox "Новый прямоугольный массив состоит из: " & vbCrLf & _
            newMBlock.Columns & " столбцов с интервалом " & newMBlock.ColumnSpacing & " и" & vbCrLf & _
            newMBlock.Rows & " строк с интервалом " & newMBlock.RowSpacing

End Sub