Альбомы технических решений и чертежи
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как автоматически добавлять к имени файла дату и время его создания при сохранении

Как автоматически добавлять к имени файла дату и время его создания при сохранении

Ответ
Поиск в этой теме
Непрочитано 03.07.2012, 17:05
Как автоматически добавлять к имени файла дату и время его создания при сохранении
Denis Ch
 
Сопровождение проектов, внутренний технадзор
 
Санкт-Петербург
Регистрация: 05.06.2012
Сообщений: 46

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


 
Регистрация: 13.06.2008
Сообщений: 14


можно в 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"

Значок на свое усмотрение, конечно же.
Формат отображения тоже. Параметры правим как больше нравится.
Удачи.
Dukk вне форума  
 
Непрочитано 10.01.2020, 10:58
1 | #42
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 1,811
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от 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
__________________
Мастерская СПДС
doctorraz вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как автоматически добавлять к имени файла дату и время его создания при сохранении

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
А как насчёт уважения к РУССКОМУ ЯЗЫКУ, дамы и господа инженеры? Зяблик Разное 1228 22.09.2017 10:27
Электромагнитная пушка T-Yoke Машиностроение 112 06.08.2008 18:48
Юмор 2007 Огурец Разное 1172 29.12.2007 11:16
английский ACAD2005 в имени файла не понимает русские буквы sv_penza AutoCAD 6 26.04.2007 16:20