|
|
|
|
|
|
|
|
|
version 6.0
dr_LIRE FLECHES (zone; cible; embout; placeFlèche)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D Draw |
| cible | Entier long | | -2 = Valeur par défaut, -1 = Tous, 0 = Sélection, |
| >0 = ID | |||
| embout | Entier |  | 1 = Fléché, 2 = Tiret perpendiculaire |
| placeFlèche | Entier | | 0 = Sans terminaison, 1 = Au départ du trait |
| 2 = A la fin du trait, 3 = Départ et fin |
Description
La commande dr_LIRE FLECHES retourne dans les variables embout et placeFlèche les caractéristiques du trait désignée par cible.
• Si cible est égal à -2, dr_LIRE FLECHES retourne les valeurs par défaut de embout et placeFlèche pour zone.
• Si cible est égal à -1, dr_LIRE FLECHES retourne les valeurs de embout et placeFlèche pour l'ensemble des objets de zone.
• Si cible est égal à 0, dr_LIRE FLECHES retourne les valeurs de embout et placeFlèche pour la sélection.
• Si cible est supérieur à 0, dr_LIRE FLECHES interprète la valeur passée comme étant le numéro d'identification d'un objet et restitue ses caractéristiques. Si l'objet n'existe pas dans la zone, dr_LIRE FLECHES retourne dans les différents paramètres la valeur -32000 et l'erreur n°2 est renvoyée par dr_Erreur.
embout indique l'élément qui marque l'extrémité de la ligne, s'il existe.
• Si embout est égal à 1, la ligne est fléchée.
• Si embout est égal à 2, la ligne est délimitée par un ou deux tirets perpendiculaires.
placeFlèche précise la position des terminaisons.
• Si placeFlèche est égal à 0, la ligne ne présente aucune terminaison.
• Si placeFlèche est égal à 1, la terminaison se trouve au démarrage du trait.
• Si placeFlèche est égal à 2, la terminaison se trouve à l'extrémité finale du trait.
• Si placeFlèche est égal à 3, une terminaison est présente aux deux extrémités.
Si embout et placeFlèche diffèrent à l'intérieur d'une même sélection, les paramètres concernés renverront -32000 et dr_Erreur renverra 29.
Exemple
L'exemple suivant récupère le numéro d'identification de l'objet sélectionné et vérifie son type. S'il s'agit d'un trait fléché, l'utilisateur est prévenu de la position occupée par la ou les flèche(s).
$ID:=dr_Lire ID(LaZone;0;1)
$Type:=dr_Lire type(LaZone;$ID)
Si ($Type=9)
dr_LIRE FLECHES (LaZone;$ID;Embout;Place)
Au cas ou
: ((Place=1) & (Embout=1))
ALERTE("Cette ligne est fléchée à son origine.")
: ((Place=2) & (Embout=1))
ALERTE("Une flèche apparaît en fin de ligne.")
: ((Place=3) & (Embout=1))
ALERTE("Cette ligne est fléchée à ses deux extrémités.")
Sinon
ALERTE("Nous ne sommes pas en présence d'un trait fléché.")
Fin de cas
Fin de si
Référence
|
|
|
|
|
|
|
|
|