Bonjour,
Il faut bidouiller pour renommer les product ou part qui ne sont pas au premier niveau. J'ai eu le même problème hier.
Spoiler :
Sub catia_models_list()
Dim objRootProductDoc As ProductDocument
Dim mySel As Selection
Dim myProduct As Product
Dim i As Integer
Dim ProductDoc As productDocument 'document incluant le product voulu
Dim ProductParent As Product 'product incluant le product voulu
Dim ProductParentProds As products 'collection de products du ProductParent
Dim ProductObject As Product 'le product voulu
Set objRootProductDoc = CATIA.ActiveDocument
Set mySel = CATIA.ActiveDocument.Selection
mySel.Search ("'Assembly Design'.Product,sel" )
For i = 1 To mySel.Count
Set ProductDoc = mySel.Item(i).Value.Parent.Parent.ReferenceProduct.Parent
Set ProductParent = ProductDoc.Product
Set ProductParentProds = ProductParent.products
Set ProductObject = ProductParentProds.Item(mySel.Item(i).Value.name)
If Right(ProductObject.Name, 2) Like ".*" Then
lenght = Len(ProductObject.Name) - 2
string1 = Left(ProductObject.Name, lenght)
' string1 = ProductObject.Name
ProductObject.Name = string1
End If
Next
End Sub |
Quelque chose dans ce genre là.
Message édité par ptittom le 06-09-2013 à 13:26:16
