[===AAA===]

Всем привет!

Почему-то при старте АКАД-2002 конструкция

(defun S::STARTUP

....

(command "_.VSLIDE" "*d:\\dream\\news")
(command "_.VSLIDE")
(setq p (strcat
"\nЕсли Вы все прочитали и - главное! - запомнили, то ..."
"\nВведите Ключевое Слово: "
))
(initget 1 "LASER щит 5100")(getkword p)

...

)

работает некорректно. Выглядит это, как:

==============================================
Если Вы все прочитали и - главное! - запомнили, то ...
Введите Ключевое Слово:
Команда:
==============================================

Т.е. вылазит слово "Команда: ", на которую пользователь и
вводит некое слово. Выглядит нелепо, но все работает.

В 14-м АвтоКАДе эта же конструкция выдавала:

==============================================
Если Вы все прочитали и - главное! - запомнили, то ...
Введите Ключевое Слово:
==============================================

Т.е. подсказка выглядела совершенно логично. Нужно

а) понять, откуда вылазит эта "Команда: "
б) подавить ее.

Вариант с (setvar "nomutt" 1), в принципе, проблему решает,
но если "дурень-пользователь" введет неверное слово, то
повторная подсказка функции (getkword)
"Введите Ключевое Слово: "
также подавляется, а это не есть хорошо.

Идеи есть?

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

ИМХО:
Перед (initget ...) подавить cmdecho и nomutt, а потом восстановить. Потребуется запрет по выходу Esc или отлов ошибок.
Если без этого, то

Код:

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

(setq _cmdecho_ (getvar "cmdecho"
  _nomutt_ (getvar "nomutt"))
(initget <...>) 
(<...>)
(mapcar 'setvar (list "cmdecho" "nomutt") (list _cmdecho_ _nomutt_))

Написно "на коленке", так что проверь скобки.

[===AAA===]

Дык, это-то все уже сделано... Я же говорю - "nomutt"
подавляет не только слово "Команда: ", но и повтор
подсказки функции (getkword p) на неверный ввод,
чего не хотелось бы.

Переиначу вопрос: "Есть ли средство (например, системная
переменная), позволяющее временно заменить подсказку
"Команда" на что-то другое - в моем случае на "".

Сообщения других команд/функций при этом должны выводиться в обычном режиме" ?

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

(prompt ...) пробовал?

[===AAA===]

Я, конечно, дико извиняюсь, но что-то не догоняю... :-(
Вечер, наверное...

Еще раз - медленно и печально. Конструкция:
=======================================
(command "_.VSLIDE" "*d:\\dream\\news")
(command "_.VSLIDE")
(setq p (strcat
"\nЕсли Вы все прочитали и - главное! - запомнили, то ..."
"\nВведите Ключевое Слово: "
))
($modes '("nomutt"))(setvar "nomutt" 1)
(princ p)
(initget 1 "LASER щит 5100")(getkword p)
(setvar "nomutt" 0)
=======================================

работает нормально. Функция ($modes) - защита от ESC.
Не отображается лишь повтор подсказки на неверный
ввод ключевого слова.

Я, конечно, могу все это безобразие завернуть в (while ...),
даже отказавшись от (getkword), но хочется более красивого
решения.

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

Так, я ничего не понимаю. Конструкция

Код:

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

(command "_.VSLIDE" "*d:\\dream\\news")
(command "_.VSLIDE")
(setq p (strcat
	  "\nЕсли Вы все прочитали и - главное! - запомнили, то ..."
	  "\nВведите Ключевое Слово [LASER/щит/5100] : "
	  ))
(initget 1 "LASER щит 5100")
(getkword p)

вываливает (без изменения cmdecho, nomutt, prompt)

Код:

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

Если Вы все прочитали и - главное! - запомнили, то ...
Введите Ключевое Слово: [LASER/щит/5100]dfsfg

Invalid option keyword.

Если Вы все прочитали и - главное! - запомнили, то ...
Введите Ключевое Слово: [LASER/щит/5100]ertwerwrzvzcbvxcsfgdfhdgh

Invalid option keyword.

Проверено на ACAD 2005.

[AY]

У меня в 2000, 2002 тоже все работает норамально (проверял без вставки в S::STARTUP)

Может попробовать в конец строки вставлять символ BS.

[===AAA===]

Привет!

Спасибо, что проверили на своем 2002. У меня на 14-м тоже
все работало нормально. :-)

Значит, списываю на глюк конкретно моей версии АКАД'а и
оформляю это все красивым (while...).

Всем спасибо.

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

Должен Вас огорчить. Когда выполняется S::STARTUP AutoCAD еще не полностью инициализирован и функции типа (getxxx ...) отрабатывают не совсем "красиво". Простыми методами выкрутиться здесь врядли удастся.
Можно попробовать так (я не проверял):
1)Оформить нужный код с показом слайдов и вводом ключевых слов в виде отдельной
функции (например, ShowSlides)
2) В самом конце S::STARTUP вставить код:

Код:

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

(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq cmd "(ShowSlides) ") 
(vlax-invoke-method adoc 'Sendcommand cmd)

[ShaggyDoc]

Александр Ривилис прав. В S::STARTUP еще много подлостей скрывается, например с установкой переменных. Лучше вообще от нее отказаться, а обязательный код выполнять в ACADxxx.lsp или acaddoc.lsp

[===AAA===]

Привет!

Все решилось достаточно просто:
=============================================
(command "_.VSLIDE" "*d:\\dream\\news")
(command "_.VSLIDE")
(princ "\nЕсли Вы все прочитали и - главное! - запомнили, то ...")
($modes '("nomutt"))(setvar "nomutt" 1)
(setq p0 t)
(while p0
(princ "\nВведите Ключевое Слово: ")
(setq p3 (strcase(getstring)))
(if (or (= p3 "LASER")(= p3 "5100"))(setq p0 nil)
(princ "\nК сожалению, Вы не внимательно прочитали сообщение!"))
)
(setvar "nomutt" 0)
=============================================

А "S::STARTUP" - это "тяжкое наследие прошлого", когда при
старте (command ...) можно было выполнять только в ней. :-)

В любом случае - всем спасибо за отзывы.

Кстати, раз пошла такая пьянка. Кто как знакомит пользователей
с новыми наработками? У меня, допустим, это типичная
многолетняя проблема - хелп не читают, новых возможностей
не знают, а когда случайно кому-нибудь из пользователей их
покажешь - "А где ты раньше-то был! А мы так мучились..." :-)