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