Sub Example_ModelCrossHairColor()
    ' Этот пример возвращает текущую установку Пространства модели
    ' CrossHairColor. Затем изменяет значение, и наконец сбрасывает значение
    ' назад к оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currCrossHairColor As OLE_COLOR
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение CrossHairColor
    currCrossHairColor = preferences.DISPLAY.ModelCrosshairColor
    MsgBox "Текущее значение для пространства модели CrossHairColor " & preferences.DISPLAY.ModelCrosshairColor, vbInformation, "CrossHairColor Пример"
    
    'Измените значение для CrossHairColor
    preferences.DISPLAY.ModelCrosshairColor = vbGreen
    MsgBox "Новое значение для CrossHairColor " & preferences.DISPLAY.ModelCrosshairColor, vbInformation, "CrossHairColor Пример"
    
    'Сбросьте CrossHairColor к его оригинальному значению
    preferences.DISPLAY.ModelCrosshairColor = currCrossHairColor
    MsgBox "Значение CrossHairColor сброшено к " & preferences.DISPLAY.ModelCrosshairColor, vbInformation, "CrossHairColor Пример"
        
End Sub