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. © 2001- Menhirs NV - All rights reserved.