CADR <список>) - еквівалентно (CAR (CDR <список>)); повернення першого елемента із списку без першого елемента.

(CDDR <список>) - еквівалентно (CDR (CDR <список>));

(CADAR <список>) - еквівалентно (CAR (CDR (CAR <список>)));

(CADDR <список>) - еквівалентно (CAR (CDR (CDR <список>))) і т.д. аж до чотирьох рівнів вкладеності;

(LAST <список>) - повернення останнього елемента списку;

(LAST ' (В С D Е F)) ; виклик функції

F ; результат - останній елемент списку

(LIST <елемент> <елемент>...) - створення списку з елементів;

(LIST 'А 'У 'З 'D 'Е) ; виклик функції

(А В С D Е) ; результат - список елементів

(APPEND <список>...) - з'єднання декількох списків в один;

(APPEND ' (А В) ' (С D Е) ) ; виклик функції

(А В С D Е) ; результат - один загальний список

(REVERSE <список>) - зміна порядку елементів на зворотний;

(REVERSE ' (А В С D Е F) ) ; виклик функції

(F Е D С В А) ; результат виконання

(ASSOC <ключ> <список>) - пошук елемента в списку по ключі;

(SETQ LA (LIST ' (1 А) ' (2 В) ' (3 С) ) ) ; виклик' функції

(ASSOC 2 LA) ; виклик функції

(2В) ; підсписок із заданим ключем

(SUBST <новий елемент> <старий елемент> <список>) - заміна в списку старого елемента на новий;

(SETQ LB ' (А В С D Е) ) ; виклик функції

(SUBST 'Z 'У LB) ; виклик функції

(A Z С D Е) ; список із заміненим елементом

(MEMBER <елемент N> <список>) - виділення списку з елемента N;

(MEMBER 'D'(ABCDEF)) ; виклик функції

(D Е F) ; результат виконання

(NTH <число N> <список>) - виділення (N +1)-го елемента списку, тому що рахунок елементів у списку починається з N = 0;

(NTH 3 ' (А В С D) ) ; виклик функції

D ; виділений 4-й елемент списку

(FIX <дійсне число>) - перетворення дійсного числа в ціле;

(FIX 5.4) ; виклик функції

; результат виконання - ціле число

(FLOAT <ціле число>) - перетворення цілого числа в дійсне;

(FLOAT 5) ;виклик функції


5.0 ; результат виконання - ; дійсне число

(ANGTOS <кут у радіанах> [<представлення>][<точність>]) - перетворення кута в радіанах у текстовий рядок;

(ANGTOS 0.685) ;виклик функції

"39.248" ; кут у градусах як текстова константа

(CHR <число>) - перетворення числа в символьний код ASCII;

(CHR 77) ; виклик функції

"М" ; результат - символьний код ASCII числа 77

(ASCII <"символ">) - значення символу в числовому коді ASCII;

(ASCII "G") ; виклик функції

71 ; результат - числовий код ASCII символу G

(ATOF <"число">) - перетворення числової текстової константи в дійсне число;

(ATOF "55.2") ;виклик функції

55.20000 ; результат виконання

(ATOI <"число">) - перетворення числової текстової константи в ціле число;

(ATOI "34") ; виклик функції

34 ; результат виконання

(ITOA <ціле число>) - перетворення цілого числа в числову текстову константу;

(ITOA 19) ; виклик функції

"19" ; результат виконання

(RTOS Дійсне число>)[<режим>][<точність>]) - перетворення дійсного числа в текстову константу.

(RTOS 34.5 1 4) перетворить 34,5 у "3.4500Е+01" - науковий режим

(RTOS 34.5 2 4) перетворить 34,5 у "34.5000" - десятковий режим

(RTOS 34.5 3 4) перетворить 34,5 у "2 ' -10 .5000"" - технічний режим

(RTOS 34,5 4 4) перетворить 34,5у"2'-101/2"" - архітектурний режим

(RTOS 34.5 5 4) перетворить 34,5 у "34 1/2"" - дробовий режим

(STRLEN <"рядок">) - визначення числа символів у рядку;

(STRLEN "AutoLISP") ; виклик функції

; результат - число символів у рядку

(STRCAT <"рядок 1"> <"рядок 2">...) - з'єднання рядків;

(STRCAT "Auto" "CAD") ; виклик функції

"AutoCAD" ; результат з'єднання рядків

(SUBSTR <"рядок"> <початок> [<довжина>]) - виділення частини рядка підряддка (початок - номер символу, довжина - число символів);

(SUBSTR "AutoCAD" 5) ; виклик функції

"CAD" ; результат - виділена частина тексту

(LENGTH <список>) - визначення довжини списку;

(LENGTH ' (А В С D E F) ) ; виклик функції

6 ; результат - число елементів

 

Функції роботи з числовими даними і виразами

(+ <N1> <N2> <N3>...) - додавання чисел N1, N2, N3, ...;

(+ 12.3 45 3.б 1) ; виклик функції

61.9 ; результат додавання декількох чисел

(- <N1> <N2> <N3>...) - вирахування з числа N1 чисел N2, N3,...;

(- 50.5 45.1 3 2.3) ; виклик функції

0.1 ; результат вирахування декількох чисел

 

(Е0.<вираз1> <вираз2>) - Т, якщо ідентичні, інакше NIL;

(SETQ El '(X Y Z) E2 '(X Y Z))

(EQ El E2) ; виклик функції

NILL ; результат виконання

(/= <атом!> <атом2>...) - Т, якщо <атом!> не дорівнює іншим атомам, інакше NIL;

(/=7.857.74) ; виклик функції

Т ; результат виконання

(< <атом1> <атом2>...) - Т, якщо <атом1> менше всіх наступних, інакше NIL;

(< "A" "D") ; виклик функції

Т ; результат виконання

(<= <атом1> <атом2>...) - Т, якщо <атом1> менше або дорівнює всім наступним, інакше NIL;

(= <атом1> <атом2>...) - Т, якщо <атом1> дорівнює всім іншим атомам, інакше NIL.

Функції для виведення даних різного типу

(WRITE-CHAR <ціле число>) - друкування символу ASCII коду;

(WRITE-CHAR 67) ; після введення з'являється ехо команди,
67 ; а на екран виводиться латинська буква С

(WHITE-LINE <текст>) - друкування тексту без лапок; (PRIN1 <вираз>) - друкування і повернення значення <вираз>; якщо <вираз> - текст, то в лапках;

(PRINl " HELLOW ") " HELLOW "

(PRINC <вираз>) - друкування і повернення значення <вираз>; якщо це текст, то без лапок;

(PRINT <вираз>) - друкування з нового рядка з наступною прогалиною і повернення значення виразу, текст без лапок;

(PRINT "HELLOW") ;виклик функції

HELLOW ; результат виконання

(WRITE-CHAR <ціле число> <F1>) - друкування тексту у файл без лапк, а повернення в лапк;

(WRITE-LINE <текст> <F1>) - друкування тексту у файл <F1> без лапок, а повернення в лапках;

(SETQ Fl (OPEN "D:\\KPI\\LISP\\WR.LSP" "а")) (WRITE-LINE "ХОРОШИЙ ПОЧАТОК" F1 )

(PRIN1 <вираз> <F1>) - друкування <виразу> у файл <F1> і повернення значення <виразу>, текст - у лапках;

(PRINC <вираз> <F1>) - друкування у файл <F1> і повернення значення <вираження>, текст без лапок;

(PRINC "ПРИВІТ КОРИСТУВАЧАМ КПІ" F1 )

(PRINT <вираз> <F1>) - друкування у файл <F1> і повернення значення виразу, текст без лапок.

Функції доступу до примітивів і засобів AutoCAD

(ENTGET <ім'я примітива>) - вибирає примітив з бази даних і повертає його у вигляді списку в кодах DXF;

(ENTNEXT <ім'я примітива>) - вибирає наступний примітив з бази даних;

(ENTLAST) - вибирає останній створений примітив (об'єкт) з бази даних.

 

Інші функції описані в літературі, наприклад,

Кудрявцев Е.М. AutoLISP. Программирование в AutoCAD 14. М.: ДМК.-1999.








Дата добавления: 2016-11-02; просмотров: 808;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.017 сек.