Sub Example_Normal()
    'Этот пример создает круг в пространстве модели.
    'Затем находит текущую нормаль к этому кругу и изменяет её.
    
    'Определите круг
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 4: center(1) = 4: center(2) = 0
    radius = 1
    
    'Добавьте круг к пространству модели
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    ZoomAll
    
    'Найдите нормаль для круга
    Dim currNormal As Variant
    currNormal = circleObj.Normal
    MsgBox "Текущая нормаль для круга " & circleObj.Normal(0) & ", " & circleObj.Normal(1) & ", " & circleObj.Normal(2), , "Normal Пример"
    
    'Измените нормаль для круга
    Dim newNormal(0 To 2) As Double
    newNormal(0) = 1: newNormal(1) = 1: newNormal(2) = -1
    circleObj.Normal = newNormal
    circleObj.Update
    MsgBox "Текущая нормаль для круга " & circleObj.Normal(0) & ", " & circleObj.Normal(1) & ", " & circleObj.Normal(2), , "Normal Пример"
    
End Sub