Параметрические изображения объектов проектирования на основе использования языка АВТОЛИСП в среде АВТОКАД. Притыкин Ф.Н. - 66 стр.

(setq ugol (getangle "Задайте вектор:")) − создается пауза и высвечива-
ется факультативная подсказка.
     • (getpoint [<точка>] [<подсказка>]). Эта функция используется для
ввода пользователем точки. Аргументы <точка> и <подсказка> являются
факультативными. Ввод точки возможен как устройством указания, так и
при задании ее координат. Если в записи присутствует аргумент <точка>,
то Автокад строит "резиновую" нить от этой точки до положения, в кото-
ром находится курсор. Примеры:
(setq p (getpoint)) − создается пауза для задания точки;
(setq p (getpoint "Задайте точку:")) − создается пауза и высвечивается
факультативная подсказка Задайте точку:.
     • (getcorner <точка> [<подсказка>]) возвращает координаты ука-
зываемой точки. Отличие от функции getpoint состоит в том, что getcor-
ner строит "резиновую" рамку на экране при передвижении курсора. Ар-
гумент <точка> в данной функции обязателен.
     • (getdist [<точка>][ <подсказка>]) используют для ввода расстоя-
ния. Функция возвращает величину расстояния как действительное число.
Аргументы <точка> и <подсказка> являются факультативными. Рас-
стояние может быть задано как с клавиатуры, так и вводом двух точек на
экране устройством указания. В последнем случае Автокад рисует "рези-
новую" нить от первой точки до положения, в котором в данный момент
находится курсор. С помощью этой функции можно определять расстоя-
ния между двумерными и трехмерными точками. В последнем случае с
помощью функции ihitget должен быть установлен соответствующий флаг
− "трехмерные точки". Примеры:
(setq rast (getdist)) − создается пауза для задания расстояния,
(initget 17) − устанавливается флаг ввода трехмерных точек,
(setq гаst (getdist '(10 10 10) "Укажите 2-ю точку:)) − создается пауза и
высвечивается факультативная подсказка.
     • (getint [<подсказка>]) создает паузу для ввода пользователем це-
лого числа и возвращает его. Аргумент <подсказка> является факульта-
тивным. Пример:
(setq snak (getint "Задайте целое число:)) − создается пауза и высвечи-
вается факультативная подсказка.

                                   66