Sub Example_CustomScale()
   ' Этот пример добавляет линию в пространстве листа, создает новую
   ' область просмотра пространства листа и циклически проходит некоторое
   ' общее пространство листа выбранные размеры масштаба для новой
   ' области просмотра пространства листа
   
    Dim lineObj As AcadLine
    Dim PViewPort As AcadPViewport
    Dim startPoint(0 To 2) As Double, endPoint(0 To 2)  As Double
    Dim center(0 To 2) As Double
    Dim width As Double, height As Double
    
    ' Определите начальные и конечные точки для линии
    startPoint(0) = 1: startPoint(1) = 1: startPoint(2) = 0
    endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0
    
    ' Определите область просмотра пространства листа
    center(0) = 3: center(1) = 3: center(2) = 0
    width = 40: height = 40
    
    ' Создайте линию в пространстве листа
    Set lineObj = ThisDrawing.PaperSpace.AddLine(startPoint, endPoint)
       
    ' Создайте область просмотра пространства листа
    Set PViewPort = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
   
    ' Установите масштаб области просмотра пространства листа в выбранный 
    PViewPort.StandardScale = acVpCustomScale
    
    ' Изменение пространства модели на пространства листа
    ThisDrawing.ActiveSpace = acPaperSpace
    
    ' Читайте и показывайте существующую установку масштаба области просмотра пространства листа
    MsgBox "Масштаб нового PViewport: " & PViewPort.CustomScale
    
    ' Измените выбранный масштаб устанавливающий 1:10 масштаб
    PViewPort.CustomScale = 0.1
   
    ' Читайте и показывайте новую установку масштаба области просмотра пространства листа
    MsgBox "Масштаб нового PViewport был изменен на: " & PViewPort.CustomScale

End Sub