Sub Example_SnapRotationAngle()
    'Этот пример изменяет угол поворота привязки для области просмотра 
    'пространства листа и пространства модели.
    
    'Создайте новую область просмотра пространства модели
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.Viewports.Add("NewViewport")
    
    'Найдите текущий угол поворота привязки
    Dim currSnapAngle As Double
    currSnapAngle = viewportObj.SnapRotationAngle
    MsgBox "Текущий угол поворота привязки пространства модели " & viewportObj.SnapRotationAngle, , "SnapRotationAngle Пример"
    
    'Измените угол поворота привязки
    viewportObj.SnapRotationAngle = 1.5
    MsgBox "Новый угол поворота привязки пространства модели " & viewportObj.SnapRotationAngle, , "SnapRotationAngle Пример"
   
    
    'Создайте новую область просмотра пространства листа
    Dim pviewportObj As AcadPViewport
    Dim center(0 To 2) As Double
    Dim width As Double
    Dim height As Double
    
    center(0) = 3: center(1) = 3: center(2) = 0
    width = 40
    height = 40
    ThisDrawing.ActiveSpace = acPaperSpace
    Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
    
    'Найдите текущий угол поворота привязки
    currSnapAngle = pviewportObj.SnapRotationAngle
    MsgBox "Текущий угол поворота привязки пространства листа " & pviewportObj.SnapRotationAngle, , "SnapRotationAngle Пример"
    
    'Измените угол поворота привязки
    pviewportObj.SnapRotationAngle = 1.5
    MsgBox "Новая базовая точка привязки пространства листа " & pviewportObj.SnapRotationAngle, , "SnapRotationAngle Пример"

End Sub