AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

Save Manager

The Autosave feature in AutoCAD does not save the drawing you are working on, but saves a copy of your drawing to a directory stored in the Savefilepath system variable. This drawing does not have the same name as your drawing file and can be overwritten with subsequent Autosaves. Here's a little VBA application which I wrote that will save your drawings at a user determined interval. (or very close.) It basically takes the time from the system clock and stores it in one of the User system variables. Every time you select "Line," "Pline," or "Zoom," the application checks to see if 15 minutes have passed. If it hasn't, it does nothing. If it has, it saves the drawing and then resets the stored time to the system time. (Phew!)

Stick this coding in a module, save it as "SaveMan.dvb," and add it to your startup suitcase.

'<--Start Coding Here

Option Explicit

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)

Dim OldTime

Dim NewTime

'trigger when user selects

Case "LINE", "PLINE", "ZOOM"

'get the time now

NewTime = (Hour(Time) * 60) + Minute(Time)

'get the time stored in USERI2

OldTime = ThisDrawing.GetVariable("Useri2")

'If the time has not been set

If OldTime = 0 Then

'set the time

ThisDrawing.SetVariable ("Useri2"), NewTime

'then end


End If

'if the difference is greater that 15 minutes

If (NewTime - OldTime) > 15 Then

'save the drawing


'and then reset Useri2

ThisDrawing.SetVariable ("Useri2"), NewTime

End If

' end of the Select

End Select


End Sub

'End Coding Here-->

If you wish, you can download the source coding here. (4Kb)

Sorry!!  I mean Here. (4Kb)

The AutoLisp/Visual Lisp/VBA Resource Website

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website