ArrayRectangular method example

Sub ArrayRectangular_Example()
' This example adds a circle  and applies a rectangular array based on it.
    Dim pt1(0 To 2) As Double: pt1(0) = 4: pt1(1) = 2: pt1(2) = 0
    Dim myCircle As AcadCircle
    Set myCircle = ThisDrawing.ModelSpace.AddCircle(pt1, 0.5)
    ' Create a 4x3 array of the circle.
    myCircle.ArrayRectangular 3, 4, 1, 2, 2, 1
    ThisDrawing.Application.ZoomExtents
    MsgBox "Rectangular array constructed."
End Sub