[nikolaev]

Как прописать путь для автосохранения чертежа в его текущей директории? Нудно шарить по виндовским Temp-ам.

[Admin]

Сделай отдельную директорию Autosave например.
Лучше на другой диск от рабочих файлов (на всякий случай).
И текущие директории засоряться не будут, и в непредвиденных обстоятельствах все в одном месте найдешь.

[URKA]

Tools :arrow: Options :arrow: Automatic Save File Locations. :wink:

[nikolaev]

Господа, вы все правы, но удобнее, особенно для неопытных пользователей, сохранять именно в текущей директории, как и bak-и. Итак, как с помощью Tool\Option прописать путь в текущую директорию для sv$-файлов?

[Alan]

>nikolaev
Прочитай еще раз, что написал admin и сделай ТАК!

Вообще-то согласен с Admin и Alan, но если очень хочется...
В какой-то из автозагрузочных файлов:

(vl-load-com)

; Реактор на сохранение документа
(if (not (equal (type __savepathfile_reactor_docsave__) 'vlr-dwg-reactor))
(setq __savepathfile_reactor_docsave__ (vlr-dwg-reactor nil
(list '(:vlr-saveComplete . __savepathfile_callback_function_docsave__))))
(if (not (vlr-added-p __savepathfile_reactor_docsave__))
(vlr-add __savepathfile_reactor_docsave__)
);if
);if

; Функция действия для ректора на сохранение документа
(defun __savepathfile_callback_function_docsave__ (reac param / )
(setvar "SAVEFILEPATH" (getvar "DWGPREFIX"))
);defun

(__savepathfile_callback_function_docsave__ nil nil)

(princ)

[larolius]

восстановил пересохраненный чертеж.
путь C/windows/temp (в папке несколько версий чертежа, имя последнее, которое задавали) там файл разрешением bak поменял на dwg все успешно восстановилось. если не отображается разрешение в имени файла, то надо в настройках Windows поставить галочку чтобы отображалось разрешение (это сделал админ, я не знаю как это делать).

[Profan]

Ждал 8 лет, чтобы сообщить известные давно вещи? Не разрешение файла, а расширение (тип) файла.

[Boxa]

=) Может еще кому поможет. Уже как годика 3 отключил авто сохранение и автозагрузку засунул что то типа:

Код:

[Выделить все]

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
Dim cut_command As Integer
On Error Resume Next
        If cut_command < 10 Then
            cut_command = cut_command + 1
        Else
             If Left(ThisDrawing.name, 6) <> "×åðòåæ" And Left(ThisDrawing.name, 7) <> "Drawing" Then
             ThisDrawing.Utility.Prompt (vbCrLf & "Ñîõðàíèë" & vbCrLf)
             ThisDrawing.Save
                cut_command = 0
             End If
        End If
End Sub

Еще ни один чертеж с тех пор не потерял, чего и вам желаю. =)