[batmax]

Вот кусок кода. Почему-то после ввода пользователя сначала в командной строке ничего нет (пока длится команда MOVE на достаточно большом числе примитивов), и только после её окончания появляется никому не нужное уже теперь предупреждение:

Код:

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

(defun urgc_wait_message ( / )
  (princ "\nВаш компьютер не завис. Подождите немного, пожалуйста.")
)
    (if (not (null (setq dx (getreal "\nВведите смещение по X \(ноль, если не нужно\): "))))
      (if (not (null (setq dy (getreal "\nВведите смещение по Y \(ноль, если не нужно\): "))))
        (if (> (distance '(0.0 0.0 0.0) (list dx dy 0.0)) 0.0)
          (progn
            (urgc_wait_message)
            (command "_.MOVE" (ssget "X") "" '(0.0 0.0 0.0) (list dx dy 0.0))
          )
        )
      )
    )

Переменная CMDECHO во время исполнения кода выставлена в нуль, если это имеет значение. Пробовал также с функцией vl-cmdf, результат тот же.
Почему так происходит ?

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

Попробуй использовать не комаду, а vla-move. И не в ком.строку выводи предупреждение, а в modemacro
Или второй вариант - использовать прогресс-бар. ИМХО - самый удобный и информативный вариант будет...

[Do$]

А если попробовать prompt вместо princ?

[ShaggyDoc]

Да это обычное поведение при выводе princ в цикле, начиная с какой-то из 200* версий Автокада. Вот в "старое доброе время" индикатор длительной работы я выводил через (princ ".") в цикле. Теперь и известный "пропеллер" в командной строке не сделать.

Попробуйте посмотреть, что выведено в текстовый экран во время работы.

Попробуйте вставить \n и в конец выводимой строки.

Попробуйте наподобие этого:

Код:

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

(defun ru-msg-term (Txt nAll nCurr / N S S1 nMax)
 ;;;
;|
 (setq ncurr 1) (repeat 1000 (ru-msg-term "Процесс" 1000 (setq ncurr (1+ nCurr)))) 
|;  
  ;; термометр в строке состояния
  (if (= nCurr nAll)
    (progn
      (grtext)
    ) ;_ end of progn
    (progn
      (setq nMax 100)
      (setq n (fix (/ (* nCurr nMax) nAll)))
      (setq s txt)
      (repeat nmax
	(setq s (strcat s "."))
      ) ;_ end of repeat
      (setq s1 txt)
      (repeat n
	(setq s1 (strcat s1 (chr 20)))
      ) ;_ end of repeat
      (setq s (strcat s1 (substr s (1+ (strlen s1)))))
      (grtext -1 s)
    ) ;_ end of progn
  ) ;_ end of if
)

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

[batmax]

Спасибо всем!
Получилось вот так:

Код:

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

(defun urgc_wait_message ( / )
  (princ "\nВаш компьютер не завис. Подождите немного, пожалуйста.")
  (princ)
)

То есть добавил ещё один (princ).

to ShaggyDoc:
Вы пишете: "Да это обычное поведение при выводе princ в цикле" - так вот у меня НЕ в цикле, наверное, это и помогло