Buongiorno a tutti
vorrei creare una macro CATIA (utilizzando CatiaScript) capace di rinominare in automatico tutti i parametri, con lo stesso nome, contenuti in un prodotto.

Per adesso ho scritto questo ma si ferma alla prima parte..
Spero possiate aiutarmi. Grazie

Sub CATMain()

sFilterValue = "XXXX" 'Default value
sFilterValue = InputBox("INSERISCI NUOVO CODICE", "Filtering value", sFilterValue)
If (sFilterValue <> "") Then
dFilterValue = Cdbl(sFilterValue)
End If
For Each Doc In CATIA.Documents
Set productDocument = CATIA.ActiveDocument
Set product = productDocument.Product
Set parameters = product.Parameters
Set strParam = parameters.Item("CODICE")
strParam.Value = sFilterValue
Next
End Sub