Corso Autocad

Getangle
La funzione getangle introduce una pausa ed attende che l'utente inserisca il valore di un angolo. L'angolo verrà restituito in radianti.

(getangle punto "richiesta")

è possibile inserire  2 punti dell'area grafica o comunicare direttamente il valore dell'angolo.

Esempio:

(defun c:angolo()
(setq puntorif(getpoint "inserisci un punto di riferimento"))
(setq ango(getangle puntorif "\nIndicami la direzione\n"))
(alert (strcat "L'angolo indicato è di gradi "  (angtos ango 0 0)))
(alert (strcat "L'angolo indicato in radianti è "  (angtos ango 3 6)))

(princ)
)

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

Scarica l'esempio    

R. Pucci