Funzione
repeat
(repeat numero
espressione)
In questa funzione numero č un qualsiasi numero intero positivo.
La funzione
valuta ogni espressione per "numero" volte.
(defun c:ciclo()
(setq valore1 100)
(setq valore2 1000)
(repeat 5
(setq valore1 (+ valore1 100))
(setq valore2 (+ valore1 1000))
(print (+ valore1 valore2 ))
)
)
restituirą 6600
salviamo il file lez23.lsp
eseguiamo autocad e scriviamo nella linea di comando
(load "lez23")
facciamo Invio
quindi scriveremo
ciclo
Scarica l'esempio
R. Pucci