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

End Sub