[olga87]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как в lisp сделать, чтобы на старте выполнения кода выходило окно типа "Подождите..", которое по завершении или по ошибке пользователя или программы закрывалось.

Код:

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

defun c:test ( / )
(vl-load-com)

(defun *error* (msg)
  (if error-save (setq *error* error-save))
  (if msg (princ "\nВыполнение функции прервано."))
  (princ)
)

(cond
  (

....

)

Заранее спасибо!

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

Если делать окно dcl, то оно будет модальным - и все действия пользователя в ACAD (кроме этого окна) будут блокированы. Может, проще будет использовать какой-нибудь progressbar?

[Сергей812]

может, DOSLib умеет немодальные окна? Во всяком случае там в проекте заявлено:

Display Windows message boxes, progress meters, and splash screens.

[===AAA===]

Да, DosLib это вполне себе умеет.
Функция (dos_getprogress ...)

[koMon]

если речь идёт об автокаде, то можно использовать функции et (acet-ui-progress "Подождите...") для начала индикации "винта" в статусной строке (старт лиспа) и (acet-ui-progress-done) для окончания индикации (окончание лиспа или ошибка).

[===AAA===]

А к nanoCAD'у библиотеку этих функций (експресс-тулл) "прикрутить" можно?

А то у DOSLIB как раз этот функционал в НК и не идёт. :-(

[Pilot]

Сообщение от koMon если речь идёт об автокаде, то можно использовать функции et (acet-ui-progress "Подождите...") для начала индикации "винта" в статусной строке (старт лиспа) и (acet-ui-progress-done) для окончания индикации (окончание лиспа или ошибка).

Интересно. Попробовал.
Неудобство оказалось в том, что этот прогресс появляется справа, а туда в общем-то посматриваешь редко, и его не сразу замечаешь.
Вот если бы он был слева, сразу под комстрокой, то было бы много лучше. Но это место к сожалению уже занято вкладками.

Сам я давно пользуюсь такой функцией, которую надо вставлять непосредственно в тело цикла (а не перед его началом и после окончания).
При ее работе в комстроке появляются циклически бегущие точки. (залоченный вариант - "вертушка").

Код:

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

 
(defun Wait (t1 / t2 time1 l1);global wait0 =(list time1 t2)
(setq l1 (list ".         " "..        " "...       " "....      " ".....     "
               "......    " ".......   " "........  " "......... " "..........")
      ;l1 (list " |" " /" " -" " \\")
)
(if (not wait0)(setq wait0 (list 0 (nth 2 l1))))
(setq t2 (cadr wait0)
      time1 (/ (atoi (menucmd "M=$(edtime,$(getvar,date),MSEC)")) 200))
(if (/= time1 (car  wait0))
   (progn (princ (strcat "\r" t1 t2))
          (setq t2 (TogVar t2 l1))))
(setq wait0 (list time1 t2))
);wait

(defun TogVar (v1 l1)
(if (member v1 l1)
   (if (= (length (member v1 l1)) 1)
      (car l1)
      (cadr (member v1 l1))) v1));TogVar

[koMon]

Сообщение от Pilot Неудобство оказалось в том, что этот прогресс появляется справа, а туда в общем-то посматриваешь редко, и его не сразу замечаешь.

нвпс.
если сделать так
то прогресс будет появляться ровно слева.

[Pilot]

Сообщение от koMon если сделать так ... то прогресс будет появляться ровно слева.

Понятно. Но тогда снизу появляется полупустая строка, причем за счет поля чертежа где каждый мм2 на счету.
Но это может оказаться полезным в другом случае - когда вкладок лэйаутов очень много. Спасибо, идея пригодится.