Angle
La funzione angle, restituisce l'angolo espresso in radianti rispetto all'UCS corrente, di una linea retta passante per i punti p1 e p2 .
Il comando che useremo è:
(angle p1 p2)
esempio:
(angle (list 1.0 1.0) (list 1.0 4.0)) restituisce 1.5708
il numero che viene restituito è espresso in radianti
Vediamo come convertirlo in gradi
Angtos è la funzione per convertire un numero reale che rappresenta un angolo espresso in radianti e lo restituisce in formato stringa.
(angtos angolo modo precisione)
dove angolo è l'angolo espresso in radianti, modo è il valore delle unità angolari (vedi tabella), precisione rappresenta il numero di cifre decimali.
| Valore Modo |
Formato |
| 0 |
Gradi |
| 1 |
Gradi,minuti,secondi |
| 2 |
Gradicentesimali |
| 3 |
Radianti |
| 4 |
Unità Topografiche |
esempio:
(angtos 0.785398 0 4) restituisce "45.0000"
nell'esempio su esposto viene convertito il numero reale 0.785398 che rappresenta un angolo espresso in radianti, in una stringa che rappresenta l'angolo espresso in gradi con 4 cifre decimali
Esempio:
(defun c:angolo()
(setq a 120)
(setq b 150)
(setq c 200)
(setq d 250)
(setq primop (list a b))
(setq secondop (list c d))
(setq radianti (angle primop secondop))
(setq gradi (angtos radianti 0 0))
(alert gradi)
(princ)
)
salviamo il file lez10.lsp
eseguiamo autocad e scriviamo nella linea di comando
(load "lez10")
facciamo Invio
quindi scriveremo
angolo
Scarica l'esempio
R. Pucci
