heres the modded vba code:
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim OldTime
Dim NewTime
Select Case CommandName
'trigger when user selects
Case "LINE", "PLINE", "DDEDIT", "DIMLINEAR", "COPY", "MOVE", "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
End If
'if the difference is greater that 15 minutes
If (NewTime - OldTime) > 5 Then
'save the drawing
ThisDrawing.Save
'and then reset Useri2
ThisDrawing.SetVariable ("Useri2"), NewTime
End If
'end of the Select
End Select
End
End Sub
Private Sub AcadDocument_BeginSave(ByVal FileName As String)
End Sub
also attached the compiled dvb