N° |
Fonction |
Catégorie |
Version |
BIA 08 |
BiA_AngleT_D |
Fonction Arithmétique |
1.0 - Janvier 2007 |
Description
But
|
Vérifie si l’angle formé par 2 points permet l’écriture normale d’un texte.
|
Prototype
|
(BiA_AngleT_D Pt1 Pt2)
|
Arguments
|
Pt1 - Coordonnées du premier point - Liste -
Pt2 - Coordonnées du second point - Liste -
|
Retours
|
L’angle, en degrés, formé par les 2 points. - Réel
|
Var. globales
|
Néant
|
Description
|
Retourne en degrés la valeur de l’angle formé par 2 points de telle façon que
l’angle formé soit compatible avec l’insertion d’un texte - c’est à dire un
angle inférieur à 90° ou supérieur à 270°.
|
Notes
|
Si l’angle n’est pas correct, pour une lecture normale,
c’est l’angle contraire qui est retourné.
|
Exemples
|
Command: (setq Pt1 ‘(50 50 0)
Command: (setq Pt2 ‘(100 100 0)
Command:(BiA_AngleT_D Pt1 Pt2)
retourne 45.0
mais
Command:(BiA_AngleT_D Pt2 Pt1)
retourne également 45.0
alors que
Command:(BiA_RtD (Angle Pt2 Pt1))
retourne 225.0
(La fonction BiA_RtD transforme les radians en degrés).
|
La fonction
1- (defun BiA_AngleT_D (*Pt1 *Pt2)
2- (if (and (> (angle *Pt1 *Pt2) (/ pi 2))
3- (< (angle *Pt1 *Pt2) (* (/ pi 2) 3))
4- )
5- (* (/ (angle *Pt2 *Pt1) pi) 180)
6- (* (/ (angle *Pt1 *Pt2) pi) 180)
7- )
8- )
Ligne 2 :Si l’angle formé par *Pt1 et *Pt2 est supérieur à pi/2 (90° -
(Valeur donnée en radian)
Ligne 3 : et inférieur à 270°
Ligne 4 : Retourne la valeur de l’angle formé par *Pt2 *Pt1, transformée en degrés.
Ligne 5 : Sinon, retourne la valeur de l’angle formé par *Pt1 *Pt2,
transformée en degrés.
Angle : Donne l’angle en radians d’une ligne définie par 2 points.
Pi : Constante de valeur approximative 3.1415926 - pi radian - ou 3.1416 radian - équivaut à 180°