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

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

Кто нибудь знает как получить текущее "компьютерное

Ответ
Поиск в этой теме
Непрочитано 14.08.2006, 11:32 #1
Кто нибудь знает как получить текущее "компьютерное
игорёк
 
проектирование
 
москва
Регистрация: 30.10.2005
Сообщений: 216

Очень заинтересовал вопрос:
Как получить текущее "компьютерное" время и дату?
Если кто знает поделитесь пожалуйста этой информацией... :roll:
Просмотров: 4681
 
Непрочитано 14.08.2006, 11:37
#2
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


В правой части трея (лотка) панели задач Windows отображается текущее время. При задержке курсора в этом месте всплывает текушая дата. В AutoCAD'е есть команды "_date" ("дата") и "_time" ("время").
Profan вне форума  
 
Непрочитано 14.08.2006, 11:59
#3
Геннадий aka PG

Машиностроение, Проектирование
 
Регистрация: 15.09.2003
Москва
Сообщений: 1,112
<phrase 1=


Тут имя и дата Думаю пригодица
Код:
[Выделить все]
;;------------> Программа записи имени файла и даты на чертеж <-----------
;;
;;          ©  PG Single Soft  
;;     E-mail: gepos@mail.ru
;;   G.I.G.O. - Garbage In, Garbage Out
;;                                       Last Modify: 14.05.99
;;       02.08.2001 замечена особенность программа не работает (пишет "0")
;;     если в текстовом стиле стоит фиксированная высота текта
;;
;;------------> WNDATE <--------------------------------------------------
(defun c:wndate( / nam  dat tday tmon tyer strok1 strok2 pt old_cmd)

 (setq old_cmd  (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)

 (setq dat (itoa (fix(getvar "CDATE")))
       nam (getvar "DWGNAME")
     nam (strcat (getvar "DWGPREFIX")(getvar "DWGNAME"))
      tday (substr dat 7 2)
      tmon (substr dat 5 2)
      tyer (substr dat 1 4) 
    strok1 (strcat "File name:" nam "  Дата:" tday "-" tmon "-" tyer "г")

  strok1 (strcat "File name: " nam )
  strok2 (strcat "Дата: " tday "-" tmon "-" tyer "г")
        pt (getpoint "\nТочка вставки текста: ")
 )
 (COMMAND "TEXT" pt 2.0 0 strok1)
 
 (setq pt (list (car pt) (-(cadr pt) 3.)))
 (COMMAND "TEXT" pt 2.0 0 strok2)
 (setvar "CMDECHO" old_cmd)
 (princ)
)
;;------------> END of CODE <---------------------------------------------
__________________
С уважением,
Геннадий aka PG
Геннадий aka PG вне форума  
 
Непрочитано 14.08.2006, 12:17
#4
Эдуард

строительство
 
Регистрация: 16.01.2004
Петербург
Сообщений: 165
<phrase 1=


(menucmd "M=$(edtime,$(getvar,date),DDDD\",\" D MONTH YYYY hh:mm:ss)")
Эдуард вне форума  
 
Непрочитано 14.08.2006, 14:39
#5
Apelsinov

Проектировщик ВК. LISP-любитель.
 
Регистрация: 15.12.2003
Москва
Сообщений: 1,166
<phrase 1=


Код:
[Выделить все]
(defun apel-time_current (/ a b)
  (setq a (rtos (fix (getvar "cdate")) 2 0))
  (setq	b
	 (rtos (fix (* 1000000 (- (getvar "cdate") (fix (getvar "cdate"))))
	       )
	       2
	       0
	 )
  )
  (if (> 6 (strlen b))
    (setq b (strcat "0" b))
  )
  (strcat (substr a 7 2)
	  "."
	  (substr a 5 2)
	  "."
	  (substr a 1 4)
	  " "
	  (substr b 1 2)
	  ":"
	  (substr b 3 2)
	  ":"
	  (substr b 5 2)
  )
)
вернет строку типа "14.08.2006 14:31:34"
__________________
apel.fas
Apelsinov вне форума  
 
Автор темы   Непрочитано 14.08.2006, 14:51
#6
игорёк

проектирование
 
Регистрация: 30.10.2005
москва
Сообщений: 216


Apelsinov
Cпасибо!
Просто я и не подозревал что она хранится в системной переменной...
игорёк вне форума  
 
Непрочитано 07.07.2015, 10:47 Cпасибо
#7
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 810
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Уникальный идентификатор для имен блоков , файлов и т.д. и т.п.

(menucmd "M=$(edtime,$(getvar,date),YYYY\"-\"MO\"-\"HH\"-\"MM\"---tc71---\"SS\"-\"MSEC)")

Пример
"2015-07-10-38---tc71---33-400"
__________________
tc71
perpetule вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Кто нибудь знает как получить текущее "компьютерное

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

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