bonjour,
je suis entrain de faire une macro permettant de remplacer les liens d'un CATPart sur un CATDrawing
voici une capture de la partie de l'opération en manuelle : http://www.hostingpics.net/viewer. [...] pture3.png
Une capture du Drawing avant l'execution : http://www.hostingpics.net/viewer. [...] apture.png
 
Code de la macro :  
Sub CATMain()
 
partFile = CATIA.ActiveDocument.FullName
 
Set partDoc = CATIA.Documents.Read(partFile)
 
Set myPart = partDoc.Part
 
drwFile = Replace(partFile, "Part", "Drawing" )
 
Set drwDoc = CATIA.Documents.Open(drwFile)
 
Set mySheet = CATIA.ActiveDocument.Sheets.Item("Sheet.1" )
 
For i = 1 To mySheet.Views.Count
Set myView = mySheet.Views.Item(i)
Set vLinks = myView.GenerativeLinks
vLinks.RemoveAllLinks
 
If InStr(myView.Name, "Main" ) < 1 Then
If InStr(myView.Name, "Background" ) < 1 Then
vLinks.AddLink myPart
End If
End If
 
 
Next
 
mySheet.ForceUpdate
 
'CATIA.ActiveDocument.Save
 
End Sub  
 
Le problème c'est qu'il y 'a perte de dimensions après l’exécution du code sachant bien que le remplacement des liens s'effectue correctement.
 
J'aurais donc comme résultat : http://www.hostingpics.net/viewer. [...] pture2.png