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

           (expt 3.0 2.0)       возвращает     9.000000

    4.44 (fix <число>)

Функция возвращает преобразование <числа> в целое. <Число> может быть
как целым, так и действительным. Если оно действительное, то оно усе-
кается до ближайшего целого путем отбрасывания дробной части.
Hапример:

            (fix 3)             возвращает     3
            (fix 3.7)           возвращает     3

    4.45 (float <число>)

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



                           - 39 -

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



            (float 3)           возвращает     3.000000
            (float 3.7)         возвращает     3.700000

    4.46 (foreach <имя> <список> <выражение>...)

Эта функция, проходя по <списку>, присваевает каждому элементу <имя> и
вычисляет каждое <выражение> для каждого элемента в списке. Может быть
задано любое число <выражений>. FOREACH выдает результат последнего,
вычисленного <выражения>. Hапример:

            (foreach n '(a b c) (print n))

эквивалентно:

            (print a)
            (print b)
            (print c)

кроме того, что FOREACH возвращает результат только последнего вычислен-
ного выражения.

    4.47 (gcd <число1> <число2>)

Функция возвращает наибольший общий делитель <числа1> и <числа2>.
<Число1> и <число2> должны быть целыми. Hапример:

            (gcd 81 57)            возвращает     3
            (gcd 12 20)            возвращает     4

    4.48 (getangle [<точка>] [<подсказка>])

Эта функция создает паузу для того, чтобы пользователь ввел угол.
<Подсказка> - факультативная запись для высвечивания на экране в
качестве
подсказки, а <точка> - факультативная 2-х мерная базовая точка. Вы
можете задать угол путем набора числа на клавиатуре в текущих для
AutoCADa единицах измерения. Заметим, что несмотря на то, что текущая
единица измерения угла может быть градус, град, или какая либо еще,
функция всегда возвращает угол в радианах.

Вы можете так же "показать" AutoLISPу угол путем указания двух 2-х
мерных точек на экране. AutoCAD нарисует "резиновую" линию от первой
точки к текущему положению курсора для того чтобы визуализировать угол.
Факультативный аргумент GETANGLE - <точка> (если указывается) подразу-
мевается как первая из этих двух точек, позволяя тем самым вам "показать"
AutoLISPу угол, указывая на следующую точку.

Hиже приведены примеры функции GETANGLE.

        (setq ang (getangle))
        (setq ang (getangle '(1.0 3.5))
        (setq ang (getangle "Which way? "))             /"В какую сторону? "/
        (setq ang (getangle '(1.0 3.5) "Which way? "))  /"В какую сторону? "/

Вы не можете ввести другое выражение LISPa, как ответ на запрос функции




                           - 40 -

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


GETANGLE. При попытке сделать так, появится сообщение "Can't reenter
AutoLISP " /"Hе могу войти в AutoLISP"/. Cмотрите также GETORIENT INITGET.

    4.49 (getcorner <точка> [<подсказка>])

GETCORNER возвращает точку, так же как GETPOINT. Однако для
GETCORNER требуется <базовая точка> и функция строит прямоугольник от







Загрузка...








<базовой точки> в то время как пользователь передвигает курсор по экрану.
Смотрите GETROINT и INITGET для уточнения.

Вы не можете ввести другое LISP-выражение в ответ на запрс GETCORNER.


lsp-4-5

    4.50 (getdist [<точка>] [<подсказка>])

Эта функция создает паузу для того, чтобы пользователь ввел
расстояние. [<Промпт>] - факультативная запись для высвечивания на экране
в качестве подсказки, <точка>  - факультативная базовая точка. Вы можете
указать расстояние, набрав число на клавиатуре в текущих для AutoCADa
единицах измерения. Заметим, какими бы ни были текущие единиц измерения
(например футы или дюймы), функция всегда возвращает расстояние
как действительное число.

Вы можете так же "показать" AutoLISPу расстояние , указав две точки на
экране. AutoCAD рисует "резиновую" линию от первой точки до текущего
положения курсора для того, чтобы визуалировать расстояние.
Факультативный аргумент GETDIST <точка> подразумевается как первый из этих
двух точек, позволяя вам "показать" AutoLISPу расстояние, путем указания
в любую другую точку.

Hиже приведены примеры функции GETDIST:

       (setq dist (getdist))
       (setq dist (getdist '(1.0 3.5))
       (setq dist (getdist "How far? "))             /"Kак далеко? "/
       (setq dist (getdist '(1.0 3.5) "How far? "))  /"Kак далеко? "/

Вы не можете ввести другое LISP-выражение как ответ на запрос GETDIST.
Смотрите также INITGET.

    4.51 (getint [<подсказка>])

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

          (setq num (getint))
          (setq num (getint "Enter a number: "))   /"Введите число: "/

Вы не можете ввести другое LISP-выражение на запрос GETINT.
Смотрите также INITGET.





                           - 41 -

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


    4.52 (getkword [<подсказка>])

Эта функция  запрашивает ключевое слово у пользователя. Список
имеющих смысл ключевых слов задается прежде чем вызывается
функция GETKWORD, пользуясь функцией INITGET (описывается ниже). GETKWORD
возвращает ключевое слово, соответствующее введенному пользователем как
строковую константу. AutoCAD  переспросит, если введенное не является
одним из заданных ключевых слов. Пустой ввод возвращает nil (если поз-
воляется вводить пустой ввод). Если не было установлено ни одного ключе-
вого слова также возвращается nil.
Hапример:

          (initget 1 "Yes No")
          (setq x (getkword "Are you sure? (Yes or No) "))
                             /"Вы уверены? (Да или Hет) "/

запросит пользователя и установит в символ Х либо "Yes", либо "No",
в зависимости от его ответа. Если ввод не соотвктствует ни одному ключе-
вому слову, или же пользователь ответил пустым вводом, AutoCAD попросит
пользователя повторить ввод еще раз.

Вы не можете ввести другое LISP-выражение на запрос GETKWORD.
Смотрете также INITGET.

    4.53 (getorient [<точка>] [<подсказка>])

В AutoLISPe углы всегда представляются в радианах с нулевым направлением
слева направо (восток) и углы откладываются против часовой стрелки.
Таким образом должны иметь месть некоторые изменения, если пользователь
хочет выбрать отсчет в градусах или желает изменить направление отсчета
углов, используя команду UNITS или системные переменные ANGBASE и ANGDIR.

GETRIENT похожа на GETANGLE-функцию, но отличается от нее тем, что изме-
ряет углы в градусах и направление отсчета углов определяется другим
способом чем в GETANGLE. GETANGLE используется, если вам необходим сум-
марный угол (относительный угол), в то время как GETORIENT исползуется
для достижения ориентации (абсолютный угол).

Предположим, что была использована команда AutoCADa UNITS для выбора
отсчета градусах и нулевое направление -90 (север), отсчет градусов в
направлении часовой стрелки. В таблице указаны значения, которые возвра-
щают GETANGLE и GETORIENT (в радианах), если пользователем введены
указанные значения (в градусах):

           !~~~~~~~~~~~!~~~~~~~~~~~~~~~~!~~~~~~~~~~~~~~~!
           !Введено    !    GETANGLE    !      GETORIENT!
           !(градусы)  !                !               !