Sub Example_ObjectSnapMode()
    ' Этот пример переключает установку Объектной привязки.
    
    Dim currObjSnapMode As Boolean
    
    ' Получите текущее значение ObjectSnapMode
    currObjSnapMode = ThisDrawing.ObjectSnapMode
    MsgBox "Объектная привязка " & IIf(ThisDrawing.ObjectSnapMode, "on.", "off."), , "ObjectSnapMode Пример"
    
    ' Измените значение по умолчанию ObjectSnapMode
    ThisDrawing.ObjectSnapMode = Not (currObjSnapMode)
    MsgBox "Объектная привязка - теперь " & IIf(ThisDrawing.ObjectSnapMode, "on.", "off."), , "ObjectSnapMode Пример"

End Sub