Récupérer le lien d'une part dans un CATDrawing

Bonjour,

Je souhaiterais récupérer le nom du product ou part issue d'un drawing comme on peut le voir a partir de l'outil Bureau ou Lien du documents pointés.
Mes plans ne sont pas numérotés en fonction du nom de la part ou product mais suivant un autre systeme. Je dois donc créer un tableau faisant le lien entre CatDrawing et Part/Product.
Si on prend l'exemple ci-dessous, il faudrait que je trouve le code permettant de récupérer dans un tableau Excel le nom du Drawing parent et en vis-à-vis le nom du Product/Part enfant pour un ensemble de plan.


J'ai vu des lignes de codes permettant de récupérer le parent, le chemin du parent etc... mais rien concernant les enfants !

Quelqu'un à une solution ?

Salut Charly,

Ci dessous une petite macro qui permet de lister les liens d'un CATDrawing :

Code:

Sub CATMain()

Set MyDocument = CATIA.ActiveDocument
Set StiEngine = CATIA.GetItem("CAIEngine")
Set StiDBItem = StiEngine.GetStiDBItemFromAnyObject(MyDocument)
Set MyLinks = StiDBItem.GetChildren()

MyMessage = MyMessage & "Nombre de liens: " & MyLinks.Count & Chr(10)
MyMessage = MyMessage & "----------------------------------------" & Chr(10)
For N = 1 To MyLinks.Count
   MyMessage = MyMessage & "Lien Nr.: " & N & Chr(10)
   linktyp = MyLinks.LinkType(N)
   MyMessage = MyMessage & "Type de lien: " & linktyp & Chr(10)
   Set MyLink = MyLinks.Item(N)
   Set LinkDokument = MyLink.GetDocument
   MyMessage = MyMessage & "Document lié: " & LinkDokument.Name & Chr(10)
   MyMessage = MyMessage & "Chemin: " & LinkDokument.FullName & Chr(10)
   MyMessage = MyMessage & "----------------------------------------" & Chr(10)
Next

MsgBox MyMessage, 64, "Liens du CATDrawing"

End Sub