Corso Autocad

Strlen
Questa  funzione restituisce un numero intero che corrisponde al numero di caratteri che costituiscono una stringa

(strlen stringa)

 

Esempio:

(defun c:trovalung()
(setq miastringa(getstring"\nscrivi una parola"))
(setq lunstr(strlen miastringa))
(princ  "la stringa è lunga " )
(princ lunstr)
(princ)
)

salviamo il file lez14.lsp 
eseguiamo autocad e scriviamo nella linea di comando
(load "lez14")
facciamo Invio
quindi scriveremo
trovalung

Scarica l'esempio    

R. Pucci