[Denis Ch]

Всем привет.
На работе столкнулся с проблемой контроля выпуска проектной документации. А именно проблема с датами когда и в какое время был создан и сохранен тот или иной чертеж. Подскажите пожалуйста можно ли написать такой лисп или макрос который бы автоматически добавлял к имени файла дату и время его создания в момент сохранения. Ну и конечно нужно чтобы имя не менялось при простом открытии файла для просмотра. Подскажите пожалуйста как это реализовать? И вообще возможно ли это?

[Dukk]

можно в total commander создать кнопку добавляющую текущую дату перед выбранными файлами
ссылка на оригинальный скрипт - http://tc-image.3dn.ru/forum/3-66-1#312
здесь объясняют как установить скрипты в total commander http://tc-image.3dn.ru/forum/3-6-1

' NameByDate.vbs
'======================== Описание =====================
' Переименование выделенного -- добавление даты перед именем
' Параметры %L
' Автор: Volniy & Аверин Андрей
' Версия: 1.12 (2006 - 07.07.2012)
' Site: http://tc-image.3dn.ru/forum/3-66-312-16-1330560904
'======================================================
With CreateObject("Scripting.FileSystemObject")
Set List = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not List.AtEndOfStream
FF = List.ReadLine
If .FileExists(FF) Then : Set GFO = .GetFile(FF) : Else : Set GFO = .GetFolder(FF) : End If
GFO.Name = Year(date) & "-" & Right("0" & Month(date), 2) & "-" & Right("0" & Day(date), 2) & " " & GFO.Name
Loop
End With
Set GFO = Nothing : Set List = Nothing : Wscript.Quit

Для этого создаем новую кнопку, и в строке "Команда" пишем:

cmd /c

В строке "Параметры" пишем

for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "%%d%%c-%%b-%%a"

Значок на свое усмотрение, конечно же.
Формат отображения тоже. Параметры правим как больше нравится.
Удачи.

[doctorraz]

Сообщение от hwd тынц.

попробовал в АК 2018, работает, но
по видимому делает Wblock, поэтому фильтры слоев и параметры листов в копиях чертежей не сохраняются (((
готового решения не нашел, надергал кусков кода и собрал в меру своего понимания
работает

Код:

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

 
(defun c:DQC(/ dn pa panbdn) ;DwgQuickCopy
(setq dn (getvar "dwgname"))
(setq pa (getvar "dwgprefix"))
(vl-mkdir (setq kat (strcat pa  "\@OlD_DWG")))
(setq dd (itoa (fix(getvar "CDATE"))))
(setq tt (get-time (getvar "cdate")))
(setq lenn(strlen dn))
(setq ll(strcat (substr dn 1 (- lenn 4) )))
(setq panbdn (strcat kat "\\" ll "_" dd "-" tt ))
 (command "_SAVE" panbdn )
) 
;
(defun get-time (date) ;kpblc
         ; date - аналог (getvar "cdate")
 (setq date (itoa (fix (* 1e6 (- date (fix date)))))
       ) ;_ end of setq
 (while (< (strlen date) 6)
   (setq date (strcat "0" date))
   ) ;_ end of while
 (strcat date) ;(substr date 1 2) "_" (substr date 3 2) "_" (substr date 5 2))
 ) ;_ end of defun

лисп создает каталог рядом с копируемым файлом и сохраняет в этот каталог текущую копию с именем вида
ИМЯФАЙЛА_YYYYMMDD-hhmmss