mauvais placement de dimension après MAJ des liens - VB/VBA/VBS - Programmation
Marsh Posté le 30-01-2014 à 09:40:10
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
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 30-01-2014 à 09:40:10
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