[-mavlin-]

Как програмно сделать, чтобы ключевые слова отображались в менюшке при нажатии правой кнопкой мыши?
Как это происходит, например, при выполнении комманды _pline.


Я хочу, чтобы такое же меню выскакивало в лисп программы (когда она запрашивает ключевые слова) при нажатии правой кнопки мыши.

Все, разобрался. Надо делать так:
(setq p1 (getstring "\nДа или нет [Да/Нет]: "))
т. е. ключевые слова надо брать в квадратные скобки и разделять "/"

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

А про initget вспомнить не треба?

Код:

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

(initget "Да Нет Yes No _Y N Y N")
(setq answer (cond ((getstring "\nДа или нет [Да/Нет] <Да> : "))
(t "Y")))

Как-то так, вроде бы...

[VVA]

Так как не указана версия Автокада, то добавлю на всякий случай, что с русскими буквами в 2002 могут быть проблемы.

[Дима_]

Я использую такую функцию:

Код:

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

(defun menu (name lvar); Выводит запрос name и выбор вариантов lvar, возвращает выбранный
(initget (apply 'strcat (mapcar '(lambda (x) (strcat x " ")) lvar)))
(getkword (strcat "\n " name "[" (apply 'strcat (mapcar '(lambda (x) (strcat x "/")) lvar)) "]"))
);end of menu

запускать соответственно:

Код:

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

(menu "Выберите вариант" '("Что" "Где" "Когда"))

Если все же хочеться оформление как в примере - замени getkword на getstring.