Page 19 - AutoLISP и Visual LISP в среде AutoCAD

которых они имеют смысл. Второй аргумент initget используется для задания
списка ключевых слов при вводе. Установки функции initget действуют на
первую следующую за ней функцию GET.

(getkword [текст_подсказки])
Функция запрашивает у пользователя ключевое слово, определенное
ранее при помощи функции initget. Если ответ не совпадает ни с одним
определенным ключевым словом, AutoCad просит повторить ввод. Если
ответ совпадает с ключевым словом, функция getkword возвращает это
ключевое слово как строковую константу. Пустой ввод, если он разрешен,
возвращает nil.
Пример:
(initget 1 "Да Нет")
(setq x (getkword "Вы согласны ? Да/Нет " )) ; Пустой ввод запрещен и
; установлены ключевые
; слова
Переменной x в зависимости от ответа будет присвоено значение "Да"
или "Нет". Можно ответить только одной первой буквой и неважно, строчной
или прописной. В данной ситуации пустой ввод не разрешен, поэтому при
неправильном ответе AutoCad потребует повторить ввод.

18