Funksiya
|
Parametrlər
|
Qaytarılan ədədlər
|
Yazılışı
|
Misal1
|
RIAZI, MƏNTIQI VƏ HƏNDƏSI FUNKSIYALAR
|
+
|
N1 N2 [… NM*]
|
N1+N2+…+NM
|
Cəm
|
( + 5 8 )
|
-
|
N1 N2 [… NM*]
|
N1-N2-…-NM
|
Fərq
|
( - a 5 )
|
*
|
N1 N2 [… NM*]
|
N1*N2*…*NM
|
Hasil
|
( * 2 4 r )
|
/
|
N1 N2 [… NM*]
|
N1/N2/…/NM
|
Bölmə
|
(/(+ 2 2)d)
|
=
|
N1 N2 və ya S1 S2
|
B
|
Bərabərliyin iki ədədi və ya sətrinin müqayisəsi
|
( = x 0.5 )
|
/=
|
N1 N2 və ya S1 S2
|
B
|
Bərabərsizliyin iki ədədi və ya sətrinin müqayisəsi
|
( /= a "ABC" )
|
>
|
N1 N2 və ya S1 S2
|
B
|
Yoxlama "N1 böyükdür N2" və ya "S1 böyükdür S2"?
|
( > c ( + 3 d ) )
|
<
|
N1 N2 və ya S1 S2
|
B
|
Yoxlama "N1 kiçikdir N2" və ya "S1 kiçikdir S2"?
|
( < e 1 )
|
>=
|
N1 N2 və ya S1 S2
|
B
|
Yoxlama "N1 böyükdür və yabərabərdirN2" və ya "S1 böyükdür və yabərabərdirS2"?
|
(>= f 4.0 )
|
<=
|
N1 N2 və ya S1 S2
|
B
|
Yoxlama "N1 kiçikdirvə yabərabərdirN2" və ya "S1 kiçikdirvə yabərabərdirS2"?
|
( <= 5 a1 )
|
AND
|
B1 B2
|
B
|
Qytarır T, və əgər B1=T, və B2=T, əks halda NIL.
|
( AND ( = 5 a ) flag )
|
OR
|
B1 B2
|
B
|
Qytarır NIL, əgər B1=NIL və B2=NIL, əks halda T.
|
( OR ( = ans "Н" )( = ans "н") )
|
NOT
|
B1
|
B
|
Məntiqi ifadəni əksinə dəyişir (NIL -i T-yə , T-ni NIL-yə).
|
( NOT flag )
|
ANGLE
|
P1 P2
|
N
|
OX oxunun müsbət tərfini və P1P2 vektorunun radianla oxun müsbət tərəfi ilə əmələ gətirdiyi bucağı hesablayır.
|
(ANGLE a ( LIST 0 0 ) )
|
COS
|
N1
|
N
|
N1 radianla verilmiş bucağın kosinusunu qaytarır
|
( COS ( / PI 2 ) )
|
DISTANCE
|
P1 P2
|
N
|
P1 vəP2 arasındakı məsafəni hesablayır
|
( DISTANCE ( LIST 10 y) a )
|
POLAR
|
P1 N1 N2
|
P
|
P1 nöqtəsindən N1 məsafəsində və N2 bucağı altında aralıda yerləşən nöqtənin koordinatlarını qaytarır.
|
( POLAR ( LIST x y ) 10
PI )
|
SETQ
|
V1 AL1 [… VN ALN ]
|
ALN
|
V1 dəyişəninə AL1 qiymətini, V2 - ə AL2 -ni və s.Sonuncu mənimsədilmiş qiyməti qaytarır
|
( SETQ a ( + b 4 ) )
|
SQRT
|
N1
|
N
|
N1-in kvadrat kökünü tapır.
|
(SQRT ( * a a ) ( * b b ))
|
ABS
|
N1
|
N
|
N1-in modulnu qaytarır.
|
( ABS -5)
|
FIX
|
N1
|
N
|
N1-in tam hissəsini qaytarır.
|
(FIX 5.25 )
|
SIN
|
N1
|
N
|
Radianlarla verilmiş N1 bucağının sinusns təyin edir
|
( SIN 0 )
|
SADƏLƏŞDIRICI KONSTRUKSIYALAR
|
DEFUN
|
S [AL1 … ALN] [/ V1 … VM]
|
AL
|
S adında istifadəçi funksiya yaradır,arqumentlər AL1 … ALN (olmayada bilər) vəlokal dəyişənlər V1 … VM(olmayada bilər, onda bu işarə "/"qoyulmur)
|
( DEFUN myfunc ( a / n )
( SETQ a ( + a 10 ) )
)
|
IF
|
E1 E2 [E3]
|
NIL
|
E1 ifadəsi hesablanır. Əgər o düzdürsə (NIL deyilsə), onda E2 ifadəsi hesablanır,əks halda - E3
|
( IF ( = a b )
( PRINT "\nA=B" )
( PRINT "\nA<>B" )
)
|
PROGN
|
E1 .. EN
|
EN
|
IF funksiyasında istifadə üçün bir neçə ifadəni birləşdirir, əgər ayırmalarda "əgər" və ya "əks halda" varsa onda brdən çox istifadə edilir..
|
( IF ( = a 0 )
( PROGN
( SETQ a 1 )
( PROMPT "\nA=0" )
)
)
|
REPEAT
|
N E1 [... EN]
|
EN
|
E1 .. EN ifadəsi N dəfə təkrar hesablanır
|
( REPEAT 10 ( PRINT "\n" )
)
|
WHILE
|
E1 E2 [... EN]
|
EN
|
E1NILolmayana qədər E2 .. EN dövrü təkrar hesablanır
|
( WHILE ( <= i 10 )
( SETQ i ( + i 1 ) )
)
|
AUTOCAD LA ƏLAQƏ YARADAN FUNKSIYALAR
|
COMMAND
|
S1 […SN]
|
NIL
|
S1 adlı və S2..SN parametrləri ilə Autocad-ın komandası yerinə yetirilir. Parametrlər dəyişənlərin adı və ya Autolisp in ifadəsi ola bilər
|
( COMMAND "Pline" ( LIST 10 10 ) a "Close" )
|
GETVAR
|
S
|
AL və ya S və ya B
|
S adında Autocad-ın sistem dəyişəninin adını qaytarır.
|
( GETVAR "DIMTXT" )
|
SETVAR
|
S AL və ya S və ya B
|
ALvə ya S və ya B
|
S adında Autocad-ın sistem dəyişənininə yeni ədəd mənimsədir.
|
( SETVAR "dimext" 3.5 )
|
SIYAHILARI EMAL EDƏN FUNKSIYALAR
|
CADR
|
L1
|
AL
|
L siyahısından ikinci elementi qaytarır (məsələn, nöqtənin y koordinatını)
|
( CADR ( LIST 10 20 ) )
|
CAR
|
L1
|
AL
|
L siyahısından birinci elementi qaytarır (məsələn, nöqtənin x koordinatını)
|
( CAR a )
|
LIST
|
AL1 AL2 [… ALN*]
|
L
|
Öz arqumentlərini bir siyahıda birləşdirir
|
( LIST x y )
|
NTH
|
N L
|
AL
|
L siyahısından N-ci nömrəli elementi qaytarır (birinci element sıfırdır)
|
( NTH 1 a )
|
GIRIŞ-ÇIXIŞ PARAMETRLƏRI
|
GETINT
|
S
|
N
|
Klaviaturadan tam ədədin daxili. S - mətnli yardaımdır.
|
( SETQ n ( GETINT "\ndaxil et еnöqt. sayı: " ) )
|
GETPOINT
|
[P1] S
|
P
|
Siçanla koordinatın daxili. S - mətnli yardaımdır. P1 nöqtəsi verilibsə ondan cari nöqtəyə "elastik" xətt uzanır.
|
( SETQ p ( GETPOINT ( LIST 0 0 ) "\nGöstər еbaşlanğıc nöqtə: " ) )
|
GETREAL
|
S
|
N
|
Klaviaturadan həqiqi ədədin daxili. S - mətnli yardaımdır.
|
( SETQ x ( GETREAL "\nВведите координату Х: " ) )
|
GETSTRING
|
[N] S
|
S
|
Klavituradn mətnli sətrin daxili. S - mətnli yardaımdır.Əgər B gösərilib və 0 deyilsə, onda daxil edilən sətirdə probel ola bilər, əks halda probel Enter deməkdir.
|
( SETQ s( GETSTRING "\nEnter your name: " ) )
|
GRAPHSCR
|
-
|
NIL
|
AutoCAD ın qrafiki ekranını qoşur.
|
( GRAPHSCR )
|
INITGET
|
N
|
NIL
|
GET funksiyaya düzgün mənimsətməni müdafiə edir. N - aşağıdakı qiymətlərin cəmidir: 1 - boş daxiletmə qadağandır; 2 - 0 daxiletmə qadağandır;
4 - mənfi qimətlərin daxili qadağandır.
|
( INITGET 1 )
( SETQ a ( GETREAL "?" ) )
|
PRIN1
|
[A və ya E]
|
-
|
Parametrsiz müracətdə qiymət qaytarılmır.
|
....
( PRIN1 )
) ; son ПРОГРАММЫ
|
PRINT
|
A və ya E
|
A və ya E
|
A ifadəsi mətnli ekrandan daxil edilir.
|
( PRIN1 ( + 2 2 ) )
|
PROMPT
|
S
|
NIL
|
S mətnli ekrana çıxarır.
|
( PROMPT "\nHello, world!")
|
TEXTSCR
|
-
|
NIL
|
AutoCAD ın mətnli ekranını qoşur.
|
( TEXTSCR )
|
SƏTIR FUNKSIYASI
|
STRCASE
|
S B
|
S
|
S sətirdəki hərfləri başlıq (əgər B=NIL) və ya sətir (əgər B=T) çevirir (yalnız latın əlifbası üçün).
|
( STRCASE s1 T )
|
SUBSTR
|
S N1 N2
|
S
|
S sətrinin bir hissəsini N1 dən başlayaraq N2 sayda simvolları qaytarır.
|
( SUBSTR "M16x20" 4 2 )
|
STRCAT
|
S1 S2 [... SN ]
|
S
|
Bir neçə simvollaradn ibarət sətri birləşdirir.
|
( STRCAT "\nA=" a )
|
СHR
|
N
|
S
|
ASCII kodu N olan ilə simvolu qaytarır
|
( CHR 7 )
|
STRLEN
|
S
|
L
|
S sətrindəki simvolların sayını qaytarır.
|
( STRLEN "abc" )
|
ASCII
|
S
|
N
|
S sətrində ASCII kodu ilə birinci simvolu qayrtarır
|
( ASCII "Z" )
|
TIPLƏRI DƏYIŞƏN FUNKSIYALAR
|
ITOA
|
N
|
S
|
N tam rəqəmini onunS mətn formasına keçirir.
|
( PROMPT ( ITOA 5 ) )
|
ATOI
|
S
|
N
|
S mətn sətrini,N onun tqm rəqəm formasına çevirir.
|
( ATOI "4" )
|
RTOS
|
N1 N2 N3
|
S
|
N1 həqiqi ədədini onun S mətn formasına keçirir. N2 - kodurəqəmin formatıdır (1 - elmi; 2 - onluq), N3 - dəqiqlik (vergüldən sonrakı rəqəmlərin sayı).
|
( RTOS 5.255467 1 3 )
|
ATOF
|
S
|
N
|
S mətn sətrini N onluq ədədə çevirir.
|
( ATOF "3.141459" )
|