Sub Example_RemoveHiddenLines()
    'Этот пример создает новую область просмотра пространства листа.
    'Затем показывает значение RemoveHiddenLines для области просмотра.
    
    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
    
    'Найдите значение для RemoveHiddenLines для области просмотра
    Dim removeHidden As Boolean
    removeHidden = pviewportObj.RemoveHiddenLines
    MsgBox "Значение свойства RemoveHiddenLines для области просмотра пространства листа " & pviewportObj.RemoveHiddenLines, , "RemoveHiddenLines Пример"

End Sub