Sub Example_TwistAngle()
    'Этот пример создает новую область просмотра пространства листа.
    'Затем показывает угол завихрения области просмотра.
    
    Dim pviewportObj As AcadPViewport
    Dim center(0 To 2) As Double
    Dim width As Double
    Dim height As Double
    
    'Определите pviewport
    center(0) = 3: center(1) = 3: center(2) = 0
    width = 40
    height = 40
    
    'Изменение от пространства модели к пространству листа
    ThisDrawing.ActiveSpace = acPaperSpace

    'Создайте pviewport
    Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
    pviewportObj.DISPLAY True
    ThisDrawing.mspace = True
    ThisDrawing.ActivePViewport = pviewportObj
    ThisDrawing.Regen acAllViewports
    
    'Найдите угол завихрения для области просмотра
    Dim twistAngle As Double
    twistAngle = pviewportObj.twistAngle
    MsgBox "Угол завихрения области просмотра пространства листа " & pviewportObj.twistAngle, , "TwistAngle Пример"

End Sub