[rocker-serj]

Привет всем. Я новичок в LISP, как в принцыпе и в программировании. Вот вопрос. Как сделать такую функцию типа

Select point or : [EXtend, LOad, UNload, BLablabla]

Где можно выбрать точку getpoint либо ввести какую либо функцию ex, lo...

[Бот]

rocker-serj, просьба изменить название темы "LISP Опции функции." в соответствии с п.4.3. правил форума, в противном случае тема автоматически будет закрыта через 12 часов.

Как переименовать тему?

Сообщение сгенерировано автоматически, отвечать на него не нужно

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

см.справку по getpoint, initget

[rocker-serj]

Сообщение от Кулик Алексей aka kpblc см.справку по getpoint, initget

Можете дать пример какой?

[Do$]

Код:

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

(initget 1 "Нет Да _No Yes")
(setq word (getkword "Можете дать пример?: [Да/Нет]<Да>"))
(alert (if (= word "Yes") "Пример дать могу!" "А вот фиг вам!"))

Ну или для точки:

Код:

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

(while
  (/= (type
	(setq point (progn (initget 1 "неХочу неБуду _imBad imVeryBad")
			   (getpoint "\nВыбери точку: [неХочу/неБуду]")
		    )
	)
      )
      'list
  )
   (cond
     ((= point "imBad") (alert "Плохой мальчик!"))
     ((= point "imVeryBad") (alert "Очень плохой мальчик!!!"))
   )
)