Sub Example_Drafting()
    ' Этот пример получает ссылку на объект Drafting Preferences от объекта Application Preferences,
    ' и читает один из параметров Drafting
    
    Dim ACADPref As AcadPreferencesDrafting
    
    ' Получите ссылку к объекту Drafting Preferences
    Set ACADPref = ThisDrawing.Application.preferences.Drafting
    
    MsgBox "Мы получили доступ к свойствам и методам объекта Drafting Preferences! "
    MsgBox 
"Параметр Drafting AutoSnapTooltip установлен в: "
 & ACADPref.AutoSnapTooltip
    
    ' Освобождаем объект Drafting Preferences
    Set ACADPref = Nothing
    MsgBox 
"Мы освободили объект Drafting Preferences! "
End Sub