Руководство пользователя по АвтоЛиспу Автор "" Размер 218625 Байт Страница 8 из 30 СКАЧАТЬ КНИГУ ЦЕЛИКОМ

Функция возвращает результат выполнения логического И над списком
выражений. Возвращаться будет nil, если любое из выражений имеет
значение nil, иначе Т.
Hапример:

    (setq a 103)
    (setq b nil)
    (setq c "string")

тогда:

    (and 1.4 a c)     возвращает     T
    (and 1.4 a b c)   возвращает     nil

    4.16 (angle <точ1> <точ2>)

Функция возвращает угол (в радианах) между 2-мя лучами, напрвленными
из 2-х мерной <точ1>. Первый - вдоль оси Х в сторону положительного
направления, второй - в сторону 2-х мерной <точ2>, где 2-х мерная точка
- список 2-х действительных чисел.
Hапример:

    (angle '(1.0 1.0) '(1.0 4.0))     возвращает     1.570796
    (angle '(5.0 1.33) '(2.4 1.33))   возвращает     3.141593

    4.17 (angtos <угол> [<представление> [<точность>]])

Функция берет <угол> (действительное число, в радианах) и возвращает
его преобразованным в строковую константу. Аргумент <представление> -






                            - 27 -




                  !~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~!
                  !  ANGTOS !  Формат преобразования  !
                  !---------!-------------------------!
                  !    0    ! Градусы                 !
				  !         !                         !
                  !    1    ! Градусы/минуты/секунды  !
                  !---------!-------------------------!
                  !    2    ! Грады                   !
                  !---------!-------------------------!
                  !    3    ! Радианы                 !
                  !---------!-------------------------!
                  !    4    ! Геодезическое представл !
                  !_________!_________________________!

Аргумент <точность> - целое число, указывает количество цифр после
запятой. Аргументы <представление> и <точность> обращаются к переменным
AutoCADа AUNITS и AUPREC. Если проигнорировать эти аргументы, то будут
использованы текущие значения AUNITS и AUPREC.

Hапример, дано:

    (setq pt1 '(5.0 1.33))
    (setq pt2 '(2.4 1.33))
    (setq a (angle pt1 pt2))

тогда:

    (angtos a 0 0)       возвращает     "180"
    (angtos a 0 4)       возвращает     "180.0000"
    (angtos a 1 4)       возвращает     "180d0'0""
    (angtos a 3 4)       возвращает     "3.1416r"
    (angtos a 4 2)       возвращает     "W"

    4.18 (append <выражение>...)

Функция берет любое число списков (<выражений>) и сливает их вместе
как один список.

     (append '(a b) '(c d))           возвращает     (A B C D)
     (append '((a) (b)) '((c) (d)))   возвращает     ((A) (B) (C) (D))

APPEND требует, чтобы аргументы были списками.

    4.19 (apply <функция> <список>)

Выполняется <функция> с аргументами, заданными <списком>. Hапример:

    (apply '+ '(1 2 3))              возвращает     6
    (apply 'strcat '("a" "b" "c"))   возвращает     "abc"

APPLY работает как со встроенными функциями (субр), так и с функциями,
определенными пользователем (они создаются с помощью функций DEFUN или
LAMBDA.

    4.20 (ascii <строковая константа>)

Функция возвращает преобразование символа <строковая константа>  в его







Загрузка...








ASCII-символьный код (целое число). Эта функция подобна функции ASC в
Бейсике. Hапример:





                           - 28 -

            Руководство пользователя по АВТОЛИСПу


    (ascii "A")               возвращает     65
    (ascii "a")               возвращает     97
    (ascii "BIG")             возвращает     66

lsp-4-2

    4.21 (assoc <элемент списка> <структурированный список>)

Функция просматривает <структурированный список> по ключу <элемент
списка> и возвращает точку входа <структур. списка>. Если <элемент
списка> не найден, ASSOC возвращает nil. Hапример допустим, что "al"
определен как:

    ((name box) (width 3) (size 4.7263) (depth 5))

тогда:

    (assoc 'size al)       возвращает     (SIZE 4.7363)
    (assoc 'weight al)     возвращает     nil

Cтруктурированные списки часто используются для хранения данных, к
которым можно иметь доступ по ключу. Это похоже на структуры и массивы
в других языках программирования. Функция SUBST, описанная ниже в этой
главе, обеспечивает удобный способ замены величины, найденной по ключу
в структурированном списке.

    4.22 (atan <число1> [<число2>])

Если <число2> не задано, ATAN вычисляет арктангенс <числа1>, в радианах.
<Число1> может быть отрицательным; область допустимых значений от -pi
до +pi радиан. Hапример:

    (atan 0.5)                возвращает     0.463647
    (atan 1.0)                возвращает     0.785398
    (atan -1.0)               возвращает     -0.785398
    (angtos (atan -1.0) 0 4)  возвращает     "-45.0000"

Если заданы оба числа, возвращается арктангенс (<число1>/<число2>) в
радианах. Если <число2> - ноль, в зависимости от знака <числа1>,
возвращается + или -1.570796 радиан (90 или -90 градусов).

    4.23 (atof <строковая константа>)

Эта функция возвращает преобразование <строковой константы> в действи-
тельное число.
Hапример:

    (atof "97.1")       возвращает     97.100000
    (atof "3")          возвращает     3.000000

    4.24 (atoi <строковая константа> )

Эта функция возвращает преобразование <строковой константы> в целое
число.
Hапример:





                           - 29 -

            Руководство пользователя по АВТОЛИСПу



    (atoi "97")         возвращает     97
    (atoi "3")          возвращает     3
    (atoi "3.9")        возвращает     3

    4.25 (atom <элемент>)

Если <элемент> - список - возвращается nil, иначе Т.
Любой элемент, который не является списком, считается как неделимый
(атом). Hапример:

    (setq a '(x y z))
    (setq b 'a)

тогда:

    (atom 'a)          возвращает     T
    (atom a)           возвращает     nil
    (atom 'b)          возвращает     T
    (atom b)           возвращает     T
    (atom '(a b c))    возвращает     nil

Hекоторые версии LISPа различаются в своей интерпритации функции
АТОМ, так что будьте внимательны при переходе из одной версии в другую.

    4.26 (Boole <функция> <целое1> <целое2>...)