Sub Example_OrthoOn()
    'Этот пример переключает установку OrthoOn.

    Dim viewportObj As AcadViewport
    
    'Установите viewportObj переменную в activeviewport
    Set viewportObj = ThisDrawing.ActiveViewport
    
    'Покажите текущую установку OrthoOn
    MsgBox "Изометрическая привязка " & IIf(viewportObj.OrthoOn, "включена.", "выключена."), , "OrthoOn Пример"

    'Переключите установку OrthoOn
    viewportObj.OrthoOn = Not (viewportObj.OrthoOn)
    
    'Сбросьте активную область просмотра, чтобы видеть изменение на строке состояния AutoCADа
    ThisDrawing.ActiveViewport = viewportObj
    
    MsgBox "Изометрическая привязка - теперь " & IIf(viewportObj.OrthoOn, "включена.", "выключена."), , "OrthoOn Пример"
    
End Sub