AutoSaveInterval property example

Sub AutoSave_Example()
' This example obtains the AutoSaveInterval property.
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    Dim iCurrSaveInterval As Integer
    iCurrSaveInterval = myPrefs.OpenSave.AutoSaveInterval
    MsgBox "Save Interval: " & iCurrSaveInterval
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. Copyright © 2001- Menhirs NV - All rights reserved.