Car
Questa funzione restituisce il primo elemento di una lista
(car lista)
Esempio:
(defun c:trovaprimo()
(setq mialista(list "a" "b" "c" "d"))
(setq elemento (car mialista))
(alert elemento)
(princ)
)
salviamo il file lez15.lsp
eseguiamo autocad e scriviamo nella linea di comando
(load "lez15")
facciamo Invio
quindi scriveremo
trovaprimo
Scarica l'esempio
R. Pucci