recherche d'une entité par son nom (getitem)

bonjour a tous,
quelqu'un connaîtrait-il par hasard une méthode pour reccuperer un element 2D en fonction de son nom?
aujourd'hui, pour remplir le cartouche de mes plan, j'utilise une combinaison de fonction qui va rechercher sur tout le drawing un textdrawing, soit par son contenu, soir par ses coordonée lorsqu'il s'agit d'un tableau "a l'ancienne" des ligne et des texte, je combine les 2 methode, ce qui prend énormément de temps.

donc l'idée serait qu'une foi trouvé je le renome de text17980 a "cequilmefaut"
ce qui permettra(i) de le rechercher par son non a la prochaine execution.

le souci c'est que aujourd'hui je ne sais pas le trouver par son nom

merci pour votre aide

pour une zone de texte c'est assez facile.

J'ai fait cette macro qui vient éditer une zone de texte avec une nom spécifique, d'un cartouche prédéfinie en y mettant le nom de la part associée à la vue sélectionnée

Code:


Sub CATMain()
   
    '---- Début du script de résolution de l'objet : vue_active
    Dim drawingDocument1 As Document
    Set drawingDocument1 = CATIA.ActiveDocument
    Dim drawingSheets1 As DrawingSheets
    Set drawingSheets1 = drawingDocument1.Sheets
    Dim drawingSheet1 As DrawingSheet
    Set drawingSheet1 = drawingSheets1.Item("Calque.1")
    Dim drawingViews1 As DrawingViews
    Set drawingViews1 = drawingSheet1.Views
    Dim vue_active As DrawingView
    Set vue_active = drawingViews1.ActiveView
    '---- Fin du script de résolution
   
    '---- Début du script de résolution de l'objet : zone_text_nom
    Dim drawingView1 As DrawingView
    Set drawingView1 = drawingViews1.Item("Main View")
    Dim drawingTexts1 As DrawingTexts
    Set drawingTexts1 = drawingView1.Texts
    Dim zone_text_nom As DrawingText
    Set zone_text_nom = drawingTexts1.GetItem("nom")
    '---- Fin du script de résolution
   
    '----Traitement
    Dim nom_piece_3D As String
    If vue_active.Name = "Main View" Then
        MsgBox ("veuilliez séléctioner une vue")
    Else
        nom_piece_3D = vue_active.GenerativeBehavior.Document.ReferenceProduct.Name
        zone_text_nom.Text = Replace(nom_piece_3D, "_", " ")
    End If

End Sub

ok, donc d'apres ton code, il n'est pas possible de faire une recherche globale sans passer par toutes les vue et toutes les feuilles
le getitem ne fonctionne donc que dans la collection specifique

est ce que si tu ouvre ton plan et ensuite tu fais une recherche manuelle tu arrives à trouver ton élément ?

Si oui c'est que tu peux le faire via une macro avec search(), si non ça sera pas avec la fonction search()

oui cela fonctionne
d'apres les premiers essaie, cela réduit de moitié les temps

merci