Пауза в выполнении

[1958]

Необходим пауза для закрытия окна 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)

Код один раз сработал вроде бы, а потом перестал.
В чем ошибка?

[Александр Ривилис]

1958
Напоминаю про правила форматирования кода на форуме - инструкция у меня в подписи. В этот раз я исправлю сам.

[Александр Ривилис]

В чем ошибка?

Думаю, что вот в этом:

[Александр Ривилис]

Еще вариант задержки на три секунды:

Код - Auto/Visual Lisp [Выбрать]

1. (command "_DELAY" 3000)

[1958]

(command "_DELAY" 3000)

Отлично!