ADN Club > AutoLisp / VisualLISP и DCL

Функции обработки времени в AutoLISP\Visual LISP

(1/1)

Андрей Бушман:
В справочнике "AutoLISP и Visual LISP в среде AutoCAD" безуспешно пытаюсь найти функции, позволяющие засечь время выполнения кода. Поиск в Интернете по фразам "lisp засечь время", "lisp время выполнения" и "autolisp time calculation" результатов пока так же не дал.

Есть ли в автокадовском лиспе такие функции? Мне нужны функции получения текущего времени, а так же функция, вычитающая одно время из другого, чтобы засечь время работы.
Извините, вам запрещён просмотр содержимого спойлеров.
Очень не хочется городить лишний огород с предварительной загрузкой через _.NETLOAD управляемой библиотеки, предоставляющей такие функции.

Александр Ривилис:
Подойдёт: http://autolisp.ru/wp-content/uploads/2009/09/benchmark.lsp ?

Александр Ривилис:
Еще вариант отсюда: http://www.cadtutor.net/forum/showthread.php?55931&p=378976&viewfull=1#post378976

--- Код - Auto/Visual Lisp [Выбрать] ---(setq BenchStart nil)(defun BenchTime (start / millisecs)  (if start    (setq BenchStart (getvar "Millisecs"))    (if BenchStart      (progn        (princ (strcat "\nElapsed: " (rtos (* 0.001 (- (getvar "Millisecs") BenchStart)))))        (setq BenchStart nil)      )      (princ "\nThere's an error. The bechmark wasn't started yet.")    )  )  t)

--- Цитировать ---Command: (progn (BenchTime t) <здесь твоя функция> (BenchTime nil))
Elapsed: <время в секундах>
--- Конец цитаты ---

Николай Полещук:
Можно также работать через системные переменные CDATE, TD*.

Навигация

[0] Главная страница сообщений