Обучение AutoLISP в 8 уроках



             

Обучение 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 Форуме были желание  из-



Содержание  Назад  Вперед