Redirection du lien entre un dessin et une pièce

[pcharvet]

Bonjour

S'il est relativement aisé en VBA de récupérer sur quel document pointe le lien d'un dessin avec un truc du style de ce qui suit:

Function Lien()
Dim oDrawing As DrawingDocument

Set oDrawing = ThisApplication.ActiveDocument
Debug.Print oDrawing.AllReferencedDocuments.Item(1).FullDocumentName
End Function

comment peut on faire, pour rediriger ce lien sur un autre document (ipt ou iam).

Quelqu'un à t'il une idée, ne maitrisant pas vraiment la langue de Sheakspeare j'ai du mal à trouver des infos.

Merci

[jurain]

Bonjour,

Le modele 3D est associé à la vue et non au dcument. c'est donc en scrutant la vue que vous pourrez modifier le document asocié.

ce qui donne :

Dim oDrawing As DrawingDocument

Set oDrawing = ThisApplication.ActiveDocument
Dim oVue As DrawingView
Dim sNouveauDocument As String

'exemple on rempalce cardan manivelle.iam par cardan manivelle1.iam
sNouveauDocument = "cardan manivelle1.iam"

Set oVue = oDrawing.ActiveSheet.DrawingViews.Item(1)
oVue.ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference sNouveauDocument

oDrawing.Update