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