version 6.0
dr_LIRE COORDONNEES LIGNE (zone; cible; débutH; débutV; finH; finV)
| Paramètre | Type | Description | |
| zone | Entier long | 4D Draw area | |
| cible | Entier long | -1 = Objet placé au dernier plan de la sélection, | |
| 0 = Objet placé au dernier plan, >0 = ID | |||
| débutH | Numérique | Position horizontale du point de départ | |
| débutV | Numérique | Position verticale du point de départ | |
| finH | Numérique | Position horizontale du point final | |
| finV | Numérique | Position verticale du point final |
Description
La commande dr_LIRE COORDONNEES LIGNE retourne dans les variables débutH, débutV, finH et finV les coordonnées de la ligne désignée par cible.
Si cible est égal à -1, dr_LIRE COORDONNEES LIGNE retourne les bornes de l'objet placé au dernier plan dans zone. Si les différents plans n'ont pas été déplacés, il s'agit du premier objet créé.
Si cible est égal à 0, dr_LIRE COORDONNEES LIGNE retourne les bornes de l'objet placé au dernier plan de la sélection.
Si cible est supérieur à 0, dr_LIRE COORDONNEES LIGNE interprète la valeur passée comme étant le numéro d'identification d'un objet et renvoie ses bornes. Si l'objet n'existe pas à l'intérieur de zone, dr_LIRE COORDONNEES LIGNE retourne dans les différents paramètres la valeur -32000 et dr_Erreur a pour valeur 2.
Si l'objet désigné par cible n'est pas une ligne, dr_LIRE COORDONNEES LIGNE retourne dans chaque paramètre la valeur -32000 et dr_Erreur a pour valeur 47.
Les coordonnées de la ligne sont exprimées dans l'unité de base. Si vous souhaitez convertir cette valeur dans l'unité de l'échelle, utilisez la routine dr_Base vers echelle.
Note : Le point de départ d'un trait est l'emplacement où vous avez débuté le tracé de la ligne en enfonçant le bouton de la souris et le point final se situe à l'endroit où vous l'avez relâché.
Exemple
L'exemple suivant double la longueur de la ligne sélectionnée.
dr_LIRE COORDONNEES LIGNE(LaZone;0;PointDébutH;PointDébutV;PointFinalH;PointFinalV)
Si (dr_Lire type (LaZone;0)=9)
dr_FIXER COORDONNEES LIGNE(LaZone;0;PointDébutH;PointDébutV;PointFinalH + (PointFinalH -
PointDébutH);PointFinalV + (PointFinalV - PointDébutV))
Sinon
ALERTE("Veuillez sélectionner une ligne.")
Fin de si
Référence
dr_FIXER COORDONNEES LIGNE, dr_FIXER FLECHES.