macro module EHI: récuperer le nom de ma sélection

Bonjour
Dans CATIA, je sélectionne un élément dans l'arbre, et je voudrais récupérer son nom dans une variable string.
cliquez sur le lien pour voir l'image


Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

Debug.Print selection1.Item(1).Value.Name
me donne l'instance de la Part mais je n'arrive pas a récupérer le nom de l'élément sélectionné

Salut, est ce que tu veux récupéré le nom du élément dans un product? Donc un part? Ou est-ce que c'est un sous-assemblage. Et que veux-tu faire avec le nom (selection1) Si tu peux mettre une photo de ton arbre sa pourrait etre plus facile aussi!

Il faut cliquer sur le texte "Cliquer le lien pour voir l’image".

Comment tu utilises ton code?

Tu sélectionnes et ensuite tu lances ta macros ?



Car pour mois ce code à l'air de fonctionner

Code:


    Dim selection1 As Selection
    Set selection1 = CATIA.ActiveDocument.Selection
   
    Debug.Print selection1.Item(1).Value.Name


oui je sélectionne et je lance la macro.
le code fonctionne, mais cela me donne l’instance de la part (ensemble segment de harnais 14.1)

Il y a quelque temps j'avais fait une macro qui permettait de sélectionner une part
C'est une fonction il faut l'appeler avec les parmametre qu'il faut

Code:


Function select_(texte As String, type_ As String) As Object ' fonction séléctionant un porduit

        Dim EnableSelectionFor(0), UserSelection, message, selection, sel
    
    EnableSelectionFor(0) = type_
    Set selection = CATIA.ActiveDocument.selection
    selection.Clear
    MsgBox texte
    UserSelection = selection.SelectElement2(EnableSelectionFor, texte, False)
    
    
    If UserSelection <> "Normal" Then
        message = MsgBox("Erreur avec la sélèction!", vbCritical, "Error")
        End
    Else
        Set sel = selection.Item(1)
        Set select_ = sel.Value 'retourne la part séléctioner
    End If
End Function

On appelle la fonction de cette manière
select_(texte de la boite de dialogue , type d'objet à séléctioner )


Dans l'exemple je veux séléctoner une part

Code:


    Dim Produit_selection
    Set Produit_selection = select_("selectionez une Part", "Part")


Ensuite tu dois pouvoir faire

Code:

debug.print Produit_selection.name