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

Aller en bas

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

Message par CharlyDuclos le Mer 24 Jan 2018 - 20:49

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 ?

CharlyDuclos
actif
actif

Messages : 21
Date d'inscription : 01/11/2017
Localisation : Toulouse

Revenir en haut Aller en bas

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

Message par lumpazepfel le Jeu 25 Jan 2018 - 20:30

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
avatar
lumpazepfel
actif
actif

Messages : 167
Date d'inscription : 03/11/2015
Localisation : Ensisheim

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum