CAD programy 4M
(foreach proměnná seznam výraz...)
Aplikuje výraz na každou položku v seznamu.
Tato funkce provádí výraz pro každý prvku ze seznamu. První argument pro foreach je proměnná. Toto je dočasná proměnná, kde se ukládají změněné prvky. Další je argument seznamu s prvky, které mají být ovlivněny.
Následující seznam obsahuje jeden nebo více výrazů, které popisují akci, která má být provedena jeho prvcích. Funkce foreach vrací výsledek posledního vyhodnocení.
PŘÍKLAD:
Kód
Výsledek
Tato funkce provádí výraz pro každý prvku ze seznamu. První argument pro foreach je proměnná. Toto je dočasná proměnná, kde se ukládají změněné prvky. Další je argument seznamu s prvky, které mají být ovlivněny.
Následující seznam obsahuje jeden nebo více výrazů, které popisují akci, která má být provedena jeho prvcích. Funkce foreach vrací výsledek posledního vyhodnocení.
PŘÍKLAD:
Kód
(setq sample '(1.0 1.5 2.0 2.5))
(foreach var sample (progn
(setq var (* 2.0 var))
(princ (strcat "\nTwice the value is " (rtos var)))))
(princ)
Výsledek
Twice the value is 2.0000
Twice the value is 3.0000
Twice the value is 4.0000
Twice the value is 5.0000