Text dotazu:
Ahoj,

používám tento script na přejmenování instance name vše funguje jak má do chvíle kdy se v Part Number objeví tečka. Zkoušel jsem to upravit, ale už si s tím nevím rady.

MS VBScript

Sub CATMain()



Prod = 11

Part = 8





Set Documents = CATIA.documents



For Each Item In Documents





If Right(Item.Name,10) = "CATProduct" Then



CurrentFileName = Left(Item.Name, (Len(Item.Name) - Prod))



ElseIf Right(Item.Name,7) = "CATPart" Then



CurrentFileName = Left(Item.Name, (Len(Item.Name) - Part))



End If



Set CurrentPart = Item.GetItem(CurrentFileName)



CurrentPart.PartNumber = CurrentFileName



Next







For i = 1 To Documents.Count



If Right(Documents.Item(i).Name,10) = "CATProduct" Then



Set CurrentProduct2 = Documents.Item(i).Product.Products



For Each Item In CurrentProduct2



k = 1



For j = 1 To CurrentProduct2.Count



If CurrentProduct2.Item(j).PartNumber = Item.PartNumber Then



Exists = 0



NewInstanceName = Item.PartNumber & "." & k



For m = 1 To CurrentProduct2.Count



If CurrentProduct2.Item(m).Name = NewInstanceName Then



Exists = 1



Exit For



End If



Next



If Exists = 0 Then



CurrentProduct2.Item(j).Name = NewInstanceName



End If



k = k + 1



End If



Next



Next



End If



Next



End Sub