Sub Example_ArrayPolar()
    ' Этот пример создает круг и затем исполняет полярный массив на
    ' этом круге.
    
    ' Создайте круг
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 2#: center(1) = 2#: center(2) = 0#
    radius = 1
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    ZoomAll
    MsgBox "Исполните полярный массив на круге.", , "ArrayPolar Пример"
    
    ' Определите полярный массив
    Dim noOfObjects As Integer
    Dim angleToFill As Double
    Dim basePnt(0 To 2) As Double
    noOfObjects = 4
    angleToFill = 3.14          ' 180 градусов
    basePnt(0) = 4#: basePnt(1) = 4#: basePnt(2) = 0#
    
    ' Следующий пример создаст 4 копии объекта, вращая и копируя его
    ' вокруг точки (3,3,0).
    Dim retObj As Variant
    retObj = circleObj.ArrayPolar(noOfObjects, angleToFill, basePnt)
    
    ZoomAll
    MsgBox "Полярный массив завершен.", , "ArrayPolar Пример"
    
End Sub