Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: 1958 от 07-02-2018, 13:48:23

Название: Пауза в выполнении
Отправлено: 1958 от 07-02-2018, 13:48:23
Необходим пауза для закрытия окна acet-ui-status.
Часть кода:
Код - Auto/Visual Lisp [Выбрать]
  1.  (acet-ui-status "Укажите объект" "Объект")
  2.  (setq ent (car (entsel)))
  3.  (setq ent_t (cdr (assoc 0 (entget ent))))
  4.  (if (= ent_t "INSERT")
  5.   (TS_gs-block)
  6.   (TS_gs-line)
  7.  )
  8. (setq ti (getvar "date")
  9. tn (+ ti (/ 3 86400)) ; 3 - три секунды - время задержки
  10. )
  11. (while (< ti tn) (setq ti (getvar "date"))) ; конец while
  12. (acet-ui-status)
Код один раз сработал вроде бы, а потом перестал.
В чем ошибка?
Название: Re: Пауза в выполнении
Отправлено: Александр Ривилис от 07-02-2018, 13:50:29
1958
Напоминаю про правила форматирования кода на форуме - инструкция у меня в подписи. В этот раз я исправлю сам.
Название: Re: Пауза в выполнении
Отправлено: Александр Ривилис от 07-02-2018, 14:04:27
Цитата: 1958 от 07-02-2018, 13:48:23
В чем ошибка?
Думаю, что вот в этом:
(https://farm5.staticflickr.com/4706/28351235399_7e0c218eb0_o.png)

Название: Re: Пауза в выполнении
Отправлено: Александр Ривилис от 07-02-2018, 14:08:40
Еще вариант задержки на три секунды:
Код - Auto/Visual Lisp [Выбрать]
  1. (command "_DELAY" 3000)
Название: Re: Пауза в выполнении
Отправлено: 1958 от 07-02-2018, 14:29:39
Цитата: Александр Ривилис от 07-02-2018, 14:08:40
(command "_DELAY" 3000)
Отлично!