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

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

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