Закрыл файл и случайно нажал не сохранить

Неужели нет автосохранения?

И что за 6 часов ни разу не была нажата кнопка сохранить? Ну это не совсем разумно. А если была нажата то лежит ли рядом файл с расширением bak?

Ну тады ой.

P.S. маленький совет. Заведите себе привычку, каждый раз, когда начальство отвлекает, жать на иконку сохранения или жать ctrl+s. Это спасет не только от начальства но и от внезапно зависшей или вылетевшей программы.

Есть код на VBA для Autocad

Специально на такой случай делл.

Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
Dim i, i2, i3, i4, ig, igt, igr As Integer
Dim sysVarTime_open, sysVarTime_open2, filename As String
Dim put_file As String

put_file = load_users_ini()


        If Not (ThisDrawing.Saved) Then

            'If igr > 30 Or igr < 0 Then

            filename = ThisDrawing.Application.ActiveDocument.Name

            ThisDrawing.SaveAs put_file & filename

            'End If

        End If

End Sub
Function GetLispSym(symbolName As String) As Variant 'Retrieves a variable from ACAD (LISP)
Dim sym, VL As Object

Set VL = CreateObject("VL.Application.16")
Set sym = VL.ActiveDocument.Functions.Item("read").funcall(symbolName)
GetLispSym = VL.ActiveDocument.Functions.Item("eval").funcall(sym)
Set VL = Nothing
Set sym = Nothing
End Function
Function load_users_ini() As String
Dim put_load_users_ini As String
put_load_users_ini = "d:\Program Files\UnrealSOFT\Users\not_close.ini"

If Dir(put_load_users_ini) <> "" Then

    Open put_load_users_ini For Input As #1

    nom_acc2 = 0

    Do While Not EOF(1) 'ïðîâåðÿåì íå äîñòèãíóò ëè êîíåö ôàéëà

        Line Input #1, TextLine

        nom_acc2 = nom_acc2 + 1


            Select Case nom_acc2

                Case 1

                    put_onlines = TextLine '& "onelines.xls"


            End Select




    Loop

    Close #1

Else

    put_onlines = ""


End If


load_users_ini = put_onlines

End Function

Можно как-то адаптировать под NC

Ещё для worda такую штуку бы прикрутить.

Заинтересовала тема. Зашла, открыла чертеж для редактирования. В настройках стоит птичка для автосохранения. Путь по-умолчанию в локальную папку "Local\Temp" текущего пользователя. После того как прошло 5 минут работы, сработало как и положено автосохранение. В папке автосохранения появился автосохраненный чертеж. Если вдруг вырубится компьютер, то автосохраненный файл останется. Но в конце работы я вышла без сохранения и на вопрос сохранять ли, ответила отрицательно. И автосохраненный файл удалился. В Автокаде можно было в таком случае найти автосохраненные файлы с датой в имени и восстановить хоть какую-то версию пропавшего чертежа, хоть и не самую последнюю.

А вот, если комп вырубится внезапно или еще какой глобальный сбой, то вы найдете свой автосейв с папке, которая задана в настройках.

Советую прописать свои папки для Автосейвов и Истории, т.к. папка Temp имеет место переполняться, и от этого сильно зависит работоспособность программ.