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; просмотров: 885;