Acquérir un point en diagonale d'un autre
Dessine un rectangle élastique entre deux points ou depuis un point mémorisé jusqu'à un deuxième qui est celui qui sera choisi par pointage à l'écran avec ou sans mode d'accrochage
Les deux points représentent la diagonale de ce rectangle virtuel.
| Syntaxe : | (getcorner [point] [message]) |
| Arguments : | point, un point 2D dans le SCU courant. point doit être renseigné, un rectangle élastique part de ce point comme base de départ, puis s'étire le long de sa diagonale, l'utilisateur ne pointera que le deuxième point. message, un message qui apparaîtra sur la ligne de commande |
| Valeur renvoyée : | La valeur du deuxième point cliqué sous forme de liste (list) |
Exemple :
On clique un point pour le mémoriser dans la variable pt1...
1 2 | (setq pt1 (getpoint "\nPoint de base\n")) (setq pt2 (getcorner pt1 "\nPoint en diagonale ...\n")) |
La variable pt2 contient une liste (list) qui définit les coordonnées du point en diagonale.
 |
Vous ne pouvez pas entrer une autre expression LISP comme réponse à la demande de (getcorner). Ce message sera affiché dans ce cas : Impossible de rentrer dans AutoLISP |
Le point de base (pt1 dans l'exemple) est exprimé dans les coordonnées du SCU courant.
Contrairement à ce que dit l'aide d'AutoCAD si l'utilisateur clique un point 3D, sa coordonnée Z n'est pas ignorée, bien que le rectangle virtuel se "dessine" en 2D
revenir au menu ENTRÉES UTILISATEUR
11 juillet 2017