CAD programy 4M
(if test tvrzení1 [tvrzení2])
Pokud je to pravda, udělejte to; Jinak udělejte něco jiného.
Tato funkce vás nechá otestovat dvě podmínky: pokud bude test pravdivý, pak proveďte tvrzení1, jinak proveďte tvrzení2. (Tvrzení2 je volitelné) Pokud je test pravdivý, pak LISP vrací hodnotu tvrzení1. Pokud test není pravdivý, pak vrací hodnotu tvrzení2.
PŘÍKLAD
POZNÁMKA: Funkce if povoluje jenom jedno tvrzení pro tvzení1 a tvrzení2. Pokud chcete vícenásobné tvrzení, obklopte je funkcí progn, jak je ukázáno na následujícím příkladě:
Tato funkce vás nechá otestovat dvě podmínky: pokud bude test pravdivý, pak proveďte tvrzení1, jinak proveďte tvrzení2. (Tvrzení2 je volitelné) Pokud je test pravdivý, pak LISP vrací hodnotu tvrzení1. Pokud test není pravdivý, pak vrací hodnotu tvrzení2.
PŘÍKLAD
| Kód | Vrací |
|---|---|
| (setq d 9) | |
| (if (>= d 10) "Greater") | nil |
| (if (>= d 8) "Greater") | "Greater" |
| (if (and (> d 12) (< d 13)) "In range" "Out of range") | "Out of range" |
POZNÁMKA: Funkce if povoluje jenom jedno tvrzení pro tvzení1 a tvrzení2. Pokud chcete vícenásobné tvrzení, obklopte je funkcí progn, jak je ukázáno na následujícím příkladě:
(if (> x 15)
(progn (
(setq window 20.0 door 32.0)
(command "color" 1)
) ; end progn
) ; end then
) ; end if