demander à une macro de sélectionner une entité

Plan 2D Annotation
1

Bonjour

Dans une mise en plan, je voudrais créer une macro qui me remplit une note avec le paramètre personnalisé nommé 'Code Produit' de la pièce sélectionnée.

Je sais construire la macro pour la création et le remplissage de la note, mais je ne sais pas interrompre la macro pour demander à l'utilisateur de sélectionner une arrête ou une surface sur laquelle attacher la note.

Quelqu'un à une info ou un lien qui pourrait me servir ?

Merci d'avance

Jey

2

Bonjour,

Tu peux mettre un simple msgBox avec comme message quelque chose du genre "Veuillez sélectionner l'entité .... avant de valider ce message." puis récupérer l'entité sélectionnée dans ta macro par la fonction GetSelectedObject6.

Cordialement,

3

Bonjour,

Désolé pour le post précédent, ça ne marche pas. Par contre tu peux faire :

Dim SelMgr As SelectionMgr
Set SelMgr = Part.SelectionManager
Set Feature = SelMgr.GetSelectedObject6(1, 0)
Do While Feature Is Nothing
    DoEvents
    Set Feature = SelMgr.GetSelectedObject6(1, 0)
Loop

 

Ce qui permet de mettre la macro en attente jusqu'à ce qu'un élément soit sélectionné.

Cordialement,

4 « J'aime »
4

Bonjour,

Une petite question bête, mais pourquoi ne pas créer ta note qui pointe vers la propriété  "code produit" et la placer manuellement ?

Vous devez de toute façon sélectionner une arrête ou une face pour la placer, un glissé déposé serait aussi rapide.

2 « J'aime »
5

Merci d.roger

tout fonctionne bien.

merci beaucoup.

accobre 427 : juste pour aller plus vite et surtout pour éviter la répétition de certaine tache.