version 6.0
dr_GROUPER (zone; cible)
| Paramètre | Type | Description | |
| zone | Entier long | Zone 4D Draw | |
| cible | Entier long | -1 = Tous, 0 = Sélection |
Description
La commande dr_GROUPER groupe les objets désignés par cible.
Si cible est égal à -1, dr_GROUPER groupe tous les objets de zone.
Si cible est égal à 0, dr_GROUPER groupe les objets de la sélection.
Lorsque les objets sont créés, un nouveau numéro d'identification est attribué au groupe.
Après un appel à dr_GROUPER, le nouvel objet est automatiquement sélectionné et vous pouvez enchaîner avec dr_Lire ID pour connaître son numéro d'identification.
Si la sélection contient moins de deux objets, dr_GROUPER ne fait rien.
Note : Il est possible de sélectionner un groupe par les attributs Nom, Type et Rotation.
Exemple
L'exemple suivant commence par compter le nombre d'objets présents dans la sélection. Si ce nombre est supérieur à 1, il groupe les objets et attribue au nouveau groupe le nom choisi par l'utilisateur. Si le nombre d'objets est inférieur 1, un message annonce l'impossibilité de créer un groupe.
Si (dr_Compter (LaZone;0)>1)
$Temp:=Demander("Donnez un nom au groupe :")
Si (OK=1)
dr_GROUPER (LaZone;0)
dr_FIXER NOM (LaZone;0;$Temp)
Fin de si
Sinon
ALERTE("Votre sélection doit contenir plus d'un objet !")
Fin de si
Référence