progman ad - DAIMI Wiki Server

24/2006
Best Marketing Concept of the Year
(Equal) Udtryk1
Udtryk2 [Afvigelse])
Denne funktion tester om Udtryk1 og
Udtryk2 returnerer de samme værdier.
Hvis:
(SetQ Var1 '(a b c d)
Var2 '(a b c d)
Var4 '(a b c)
Var3 Var2
)
Så er:
(Equal Var1 Var2)= T
(Equal Var3 Var2)= T
(Equal Var1 Var4) = nil
I forbindelse med test af to decimaltal
(eller lister af decimaltal, som
i koordinater), kan der forekomme
afvigelser på en yderligere decimal.
Afvigelse sætter en toleranceværdi
for, hvor stor denne afvigelse må være
i forbindelse med testen.
Hvis:
(SetQ 1ste 1.2345678
2den 1.2345679
)
Så er:
(Equal 1ste 2den) = nil
(Equal 1ste 2den 0.0000001) = T
Bemærk: Se også '=' og 'Eq'.
(Eval Udtryk)
Denne funktion returnerer resultatet
af en EVALuering af et LISP-udtryk.
Hvis:
(SetQ EnToTre 123
Samme EnToTre
)
Så er:
(Eval 123) = 123
(Eva1 EnToTre) = 123
(Eva1 Samme) = 123
(IF Test Så [Ellers])
Denne funktion tester om Test er T
(sandt). Hvis Test er T, udføres Så.
Alternativt udføres Ellers, hvis det er
angivet.
(IF (= 1 2) "Ja" "Nej!") = ”Nej!”
(IF (/= 1 2) "Ja" "Nej!") = ”Ja”
(IF (= 1 2) "Ja") = nil
(InitGet [Bits] [Streng])
Denne funktion tester brugerens svar
i forbindelse med Getxxx funktioner.
De forskellige Bits-argumenter er vist
nedenfor:
Bit-værdi
Betydning
1 Nægt tom data
2 Nægt værdien 0 (nul)
4 Nægt negative værdier
8 Test ikke for limits
32 Brug stiplede linier med
gummibånd og boks
64 Ignorer Z ved 3D-punkter
(Kun GetDist)
De forskellige bit-værdier kan adderes
frit til en værdi mellem 0 og 127.
Hvis vi har følgende LISP-program:
(DeFun C:TEST ()
(InitGet (+ 1 2 4))
(GetReal ”\nAngiv et positivt tal: ”)
)
Fås følgende svar:
Command: (Load "test") C:TEST
Command: TEST
Angiv et positivt tal: [Retur]
Requires numeric value.
Angiv et positivt tal: -1
Value must be positive and nonzero.
Angiv et positivt tal: 0
Value must be positive and nonzero.
Angivet positivt tal: 3
3.0
Det er ligeledes muligt at teste for
en bestemt streng i forbindelse med
InitGet, som i dette eksempel:
(InitGet l "Skrå VAndret VErtikal")
(SetQ Svar
(GetKWord "\nSkrå/VAndret/VErtikal 1:"))
Bemærk: Den bit som sættes af Init-
Get slettes automatisk efter næste
Getxxx.
(ListP Udtryk)
Denne funktion returnerer T, hvis
Udtryk er en liste. Ellers returneres
nil. ListP er således et modstykke til
Atom.
(ListP '(a b c))= T
(ListP 'a) = nil
(ListP 1.1) = nil
(ListP nil) = T
(nil er både et atom og en liste)
Sådan virker InitGet kontrolbits
Funktion 1 2 4 8 32 64
GetInt X X X
GetReal X X X
GetDist X X
GetAngle X X X
GetOrient X X X
GetPoint X X X
GetCorner X X X
GetKWord X
GetString
GetVar
26