Sub Example_LensLength()
    'Этот пример создает новую область просмотра пространства листа.
    'Затем показывает длину линзы области просмотра.
    
    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)
    pviewportObj.DISPLAY True
    ThisDrawing.mspace = True
    ThisDrawing.ActivePViewport = pviewportObj
    ThisDrawing.Regen acAllViewports
    
    'Найдите длину линзы для области просмотра
    Dim lenslgnth As Double
    lenslgnth = pviewportObj.LensLength
    MsgBox "Длина линзы области просмотра пространства листа " & pviewportObj.LensLength, , "LensLength Пример"

End Sub