[Игорь Костюкович]

Столкнулся со следующей проблемой:
при обработке цикла, занимающей продолжительное время, решил дать в комстроке сообщение пользователю, мол не нервничайте и не жмите кнопки - прцесс требует времени. Уж кажется чего проще: до начала цикла

Код:

[Выделить все]

 (princ "Для выполнения процесса требуется время...")

По окончании цикла

Код:

[Выделить все]

 (princ "Готово")

Но в результате обе строки с сообщениями выдаются после завершения работы функции.
С чего бы это?...

[TararykovDG]

Игорь Костюкович, по-моему, что-то подобное уже обсуждалось на форуме, но не помню где и как разрешилось, предлагаю такой вариант

Код:

[Выделить все]

 
(setvar 'modemacro "Для выполнения процесса требуется время...")

По окончании цикла

Код:

[Выделить все]

 
(setvar 'modemacro "")

[dimitriy_popov]

Попробуй добавь после каждой

Код:

[Выделить все]

 (princ "...........")

функцию

Код:

[Выделить все]

 (print)

, она создает пустую строчку в командной строке. Должно получиться. А лучше выложи lisp или его фрагмент между (princ "....").

[Игорь Костюкович]

TararykovDG, modemacro не фурычит...
dimitriy_popov, print работает. Код интереса не представляет: простой цикл перебора объектов (примитивов) чертежа.

Спасибо за помощь.

[Кулик Алексей aka kpblc]

modemacro не может не фурычить. Чего-то у тебя не то с кодом. МОжет быть, вообще до princ дело не доходит?
Да, кстати! А где переводы строк-то?

Код:

[Выделить все]

 (princ "\nДля выполнения процесса требуется время...")
; <...>
(princ "\nГотово")

[TararykovDG]

Сообщение от Игорь Костюкович TararykovDG, modemacro не фурычит...

Как сказал Кулик Алексей aka kpblc,

modemacro не может не фурычить

Просто modemacro отображает текстовую последовательность в строке состояния, а не в комадной строке, см. рисунок

[ShaggyDoc]

А где переводы строк-то?

И в конце надо

Код:

[Выделить все]

 (princ "\nДля выполнения процесса требуется время...\n")

Это в каких-то версиях потребовалось. А вообще всегда в цикле princ писал текс надежно.

[Игорь Костюкович]

Кулик Алексей aka kpblc, тем не менее...
Первый princ стоит сразу после defun.
Переводы строк никак не влияют на данный процесс.

[dimitriy_popov]

Можно добавь строку

Код:

[Выделить все]

 (princ (strcat "\r Выполнено " (itoa temp) "%"))

внутри цикла, и будет видно текущее выполнение (на пример в процентах), где temp - рассчитывается внутри цикла.

[gomer]

я обычно пользуюсь пользуюсь prompt

(prompt "\nДля выполнения процесса требуется время...")

Сообщение от dimitriy_popov Можно добавь строку

если стоят et - acet-ui-progress... или в doslib есть схожая функция

[Do$]

Если от подвисаний не избавиться никак, то есть arx приложение от А.Ривилиса, называется ProgressBars. По-моему, это лучшее решение. Поиск найдет .

[Игорь Костюкович]

Do$, спасибо.
Именно этим методом проблема и решена.
А.Ривилису отдельное спасибо...