[ceiba]

Вопрос: как сделать ожидание выполнения лиспа приятным глазу? Чтоб пользователь не бежал с криками «Зависло!», а знал, что идет процесс вычерчивания? Что-нибудь типа диалогового окна, которое создает “alert”, но чтоб само исчезало по завершении. Ткните носом, плиз

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

Искать ProgressBar от А.Ривилиса.

[ceiba]

Сообщение от Кулик Алексей aka kpblc Искать ProgressBar от А.Ривилиса.

Спасибо! Еще и DosLib гляну!

[nik_mb]

Или вставить код для функций из Express (файл acetutil.arx)

Код:

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

(acet-ui-progress-init "Суммирование линий" kn)
(while (> kn 0)
(setq n (1+ n))
(acet-ui-progress-safe n)
;; ПРОЦЕСС
);;end while
(acet-ui-progress-done)

[ceiba]

Сообщение от nik_mb Или вставить код для функций из Express (файл acetutil.arx)

Что такое здесь kn и n?

[VVA]

Еще простенький прогрессбар. Информация выводится в статусную строку

Код:

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

(setq i 0)
(repeat 10000
  (grtext -1 (strcat "Работаю - " (itoa (setq i (1+ i)))))
  (repeat 200 (princ)) ;_Что-то делаем
  )
(command "_redrawall")

[nik_mb]

Сообщение от ceiba Что такое здесь kn и n?

kn - длина обрабатываемого набора (обязательно больше нуля), n - предустановлено в 0, идет добавление шкалы. Можно шкалу изменять по kn, но тогда она будет двигаться в обратном направлении. Переменные n и kn могут называться как угодно.

[ceiba]

Сообщение от VVA Еще простенький прогрессбар. Информация выводится в статусную строку Код: [Выделить все] (setq i 0) (repeat 10000 (grtext -1 (strcat "Работаю - " (itoa (setq i (1+ i))))) (repeat 200 (princ)) ;_Что-то делаем ) (command "_redrawall")

Вставляю вместо слов "_Что-то делаем" то, что делаем, и это дело повторяется 10000 раз С ProgressBar'ом то же самое.
Моя что-то простое, видимо, не понимает. В чем дело?

[nik_mb]

Сообщение от ceiba Вставляю вместо слов "_Что-то делаем" то, что делаем, и это дело повторяется 10000

Все это предназначено для цикличных процессов (везде стоят функции repeat или while). Для нецикличных, последовательных операций придется вставлять отметку прохода.

Код:

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

 (grtext -1 (strcat "Работаю - " (itoa (setq i (1+ i)))))
;или, в зависимости от варианта 
(acet-ui-progress-safe n)(setq n (1+ n))

Чем чаще тем, лучше. Но размер кода всей программы станет поболее.

[VVA]

ceiba,
Вставь код как есть и посмотри куда это выводится.
Цикл repeat 10000 дан для примера. У тебя это может быть и while и foreach. Здесь показан просто принцип - писать сообщение об i-ой операции в статусную строку. А в конце подчищать. Можно писать туда же текущий шаг, типа
(grtext -1 "Черчу дом. Подожди...")
....
(grtext -1 "Подвожу сети к дому. Подожди...")
....
(grtext -1 "Завожу мебель в дом. Подожди...")
и.т.д
Есть еще и что-нибудь типа диалогового окна

[ceiba]

Сообщение от VVA Цикл repeat 10000 дан для примера. У тебя это может быть и while и foreach. Здесь показан просто принцип - писать сообщение об i-ой операции в статусную строку. А в конце подчищать.

Понятно. У меня там на точки ставятся блоки, а третья координата забирается и рядом проставляется текстом. В тот же while, значит, и вставлю. Спасибо огромное всем!
Сама долго искала бы