Обучение AutoLISP в восьми уроках - стр. 4
Должно существовать одно выражение после выражения проверки. Мо-
жет существовать также второе, необязательне выражение, которое
будет оцениваться если выражение проверки возвращает нуль.
Например определеим функцию, которая бы проверяла, большее ли 0
значение переменной X. Если так, тогда это вывести на дисплей "X
greater than 0".
Создайте файл с именем GREATER.LSP и определите эту функцию.
(defun GREATER ()
(if
(> x 0)
(prompt "\nX is greater than 0.")
)
(prin1)
)
Command: (setq x 1)
1
Command: (load "greater")
GREATER
Command: (greater)
X is greater than 0.
Command: (setq x -1)
-1
Command: (greater)
Имеются несколько вещей, которые Вы можете выполнить чтобы де-
лать функцию GREATER более универсальной. Сначала, сделайте зна-
чение для выражения проверки аргументом функции, чтобы GREATER
больше не зависила от значения специфической глобальной перемен-
ной X. Затем, добавьте второй оператор к выражению IF который бы
выводил на экран сообщение, если значение требуемого параметра
МЕНЬШЕ или РАВНО нулю.
Отредактируйте файл GREATER.LSP и сделают эти два изменения в
функции GREATER.
(defun GREATER (x)
(if
(> x 0)
(print "\nArgument is greater than 0.")
(print "\nArgument is less than or equal to 0.")
)
(prin1)
)
Command: (load "greater")
GREATER
Command: (greater 1)
Argument is greater than 0.
Command: (greater -1)
Argument is less than or equal to 0.
Command: (setq y 1)
1
Command: (greater y)
Argument is greater than 0.
ПРАКТИЧЕСКОЕ ИСПОЛЬЗОВАНИЕ ОПЕРАТОРА IF
Одна из недавних тем на CompuServe ADESK Форуме были желание из-
Содержание Назад Вперед