' ********** Start of iLogic Code *******************************

Dim SB As SurfaceBody
Dim Doc As PartDocument = ThisDoc.Document
Dim SBs As SurfaceBodies = Doc.ComponentDefinition.SurfaceBodies
Dim SBName As String = ThisDoc.FileName(False)
Dim Suffix As Integer = 1

' Loop through all solid bodies, renaming them
For Each SB In SBs
SB.Name = SBName + "_Item_" & CStr(Suffix).Padleft _
(Len(CStr(Doc.ComponentDefinition.SurfaceBodies.Count)),"0")
Suffix += 1
Next

' ********** End of iLogic Code *********************************