GETORIENT
Orientation
Opère une pause dans le programme pour que l'utilisateur entre une valeur angulaire.
| Syntaxe : | (getorient [point] [message]) |
| Arguments
|
point, optionnel, un point 2D dans le SCU courant. Si point est renseigné, une ligne élastique part de ce point comme indication de direction, l'utilisateur ne pointera que le deuxième point. Si point n'est pas renseigné, il faudra cliquer deux points, une fois le premier point indiqué, une ligne élastique part de ce point indication de direction vers le deuxième point à cliquer. message, optionnel, un message sous forme de texte qui apparaîtra sur la ligne de commande pour informer l'utilisateur. |
| Valeur renvoyée | Un nombre réel exprimant un angle en radians |
Cette fonction est assez similaire à (getangle)
mais elle n'est pas affectée par les variables d'environnement
ANGBASE ni ANGDIR
l'angle est toujours mesuré sens anti-horaire
et avec l'axe des X comme direction 0
ne pas perdre de vue l'origine américaine d'AutoCAD,
et c'est leur norme qui prévaut.
Vous ne pouvez pas entrer une autre expression LISP comme réponse à la demande de (getangle), ce message sera affiché dans ce cas :
Impossible de rentrer dans AutoLisp.
Si vous renseignez des points 3D, l’angle sera mesuré sur le plan courant en 2D.
Dans un premier temps on définit le point de départ (ligne1) puis, depuis ce point on demande une direction, une ligne élastique va apparaitre puisque on a répondu "ptdep" en premier argument de la fonction (getangle) :
1 2 | (setq ptdep (getpoint"\nPoint de départ\n") (setq exemplex (getangle ptdep "\nDans quelle direction ?\n")) |
Exemple 1 >> Valeur retournée >> 0.0
Exemple 2 >> Valeur retournée >> 1.5708...
Exemple 3 >> Valeur retournée >> 3.14159...
Exemple 4 >> Valeur retournée >> 4.71239...
revenir au menu ENTRÉES UTILISATEUR
20 octobre 2017