Среда программирования на AutoLISP в графической системе AutoCAD (Справочник), страница 9

Если <выражение> - строковая константа, включающая управляющие символы, функция PRIN1 интерпретирует эти символы, как следующие, добавляя перед ними знак “ \ ”:

\\ - для вывода знака \

\ - для вывода знака ”

\е - для выхода (escape)

\n - для перехода на новую строку (new line)

\r - для ввода (return)

\t - для табуляции (tab)

\nnn для символа, восьмеричный код которого nnn.

Функция PRIN1 может использоваться без аргументов в качестве последнего выражения функции, определённой пользователем, для обеспечения “тихого” выхода из функции.

(princ [<выражение> [<описатель файла>]])

аналог функции PRIN1. Отличие заключается в том, что управляющие символы в <выражении> печатаются без расширения. Функция РRIN1 служит для печати выражений способом, совместимым с функцией LOAD, в то время, как функция PRINC печатает их способом, совместимым с функциями типа READ-LINE.

(print [<выражение> [<описатель файла>]])

аналог функции PRIN1. Отличие заключается в том, что <выражение> печатается с новой строки, а после <выражения> ставится пробел.

(write-line <число> [<описатель файла>])

записывает один символ на экран или в открытый файл, заданный <описателем файла>. Атрибут <число> - код ASCII -символа, и является значением возвращаемым функцией.

(write-line <строка> [<описатель файла>])

вызывает строковую константу <строка> на экран или в открытый файл, заданный <описателем файла>. Она возвращает <строку>, взятую в кавычки, и опускает кавычки, когда строка записывается в файл.

(close <описатель файла>)

закрывает файл и возвращает nil. <Описатель файла> возвращается функцией OPEN. После выполнения CLOSE описатель файла остаётся неизменным, но файл становится недоступным.

4. Специфические функции AutoLISP

4.1. Функции организации интерактивной работ

Функции

контрольные биты

1         2       4       8     16       32

GETINT

*

*

*

GETREAL

*

*

*

GETDIST

*

*

*

*

*

GETANGL

*

*

*

GETORIENT

*

*

*

GETPOINT

*

*

*

GETCORNER

*

*

*

GETKWWORD

*

В AutoLISP R.11 вместо 16 используется бит 64.

4.1. Функции измерения и привязки

(distance <точка1> <точка2>)

возвращает расстояние между 2-мерными точками <точка1>и <точка2>.

(angle <точка1> <точка2>)

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

(polar <точка><угол><расстояние>)

возвращает точку, находящуюся под углом <угол> и на расстоянии <расстояние> от заданной <точки>. <Угол> выражается в радианах.

(inters <точка1><точка2><точка3><точка4>[<onseg>])

проверяется два отрезка на пересечение и возвращает точку пересечения или nil, если от INTE резки не пересекаются. <Точак1> и <точка2> - крайние точки первого отрезка, <точка3> и <точка4> - крайние точки второго отрезка. Если аргумент <onseg> задан и является nil, то функция RS будет возвращать точку пересечения даже, если она находится за крайними точками одного или обоих отрезков. Если же аргумент <onseg> отсутствует и не является nil, то точка пересечения должна находится на обоих отрезках.