Sub Example_AltTabletMenuFile()
    ' Этот пример возвращает текущую установку AltTabletMenuFile. Затем
    ' изменяет значение, и наконец сбрасывает значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currAltTabletMenuFile As String
    Dim newAltTabletMenuFile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Восстановите nтекщее значение AltTabletMenuFile
    currAltTabletMenuFile = preferences.Files.AltTabletMenuFile
    If currAltTabletMenuFile = "" Then
        MsgBox "AltTabletMenuFile в настоящее время не установлен.", vbInformation, "AltTabletMenuFile Пример"
    Else
        MsgBox "Текущее значение для AltTabletMenuFile " & currAltTabletMenuFile, vbInformation, "AltTabletMenuFile Пример"
    End If
    
    ' Измените значение для AltTabletMenuFile
    newAltTabletMenuFile = "d:\acad\support\acad"
    preferences.Files.AltTabletMenuFile = newAltTabletMenuFile
    MsgBox "Новое значение для AltTabletMenuFile " & newAltTabletMenuFile, vbInformation, "AltTabletMenuFile Пример"
    
    ' Сбросьте AltTabletMenuFile к его первоначальному значению
    preferences.Files.AltTabletMenuFile = currAltTabletMenuFile
    If currAltTabletMenuFile = "" Then
        MsgBox "AltTabletMenuFile сброшен к Null.", vbInformation, "AltTabletMenuFile Пример"
    Else
        MsgBox "Значение AltTabletMenuFile сброшено к " & currAltTabletMenuFile, vbInformation, "AltTabletMenuFile Пример"
    End If
 End Sub

Сайт управляется системой uCoz