Solid-Body renaming

[autodesk0343ART]

Hi,

I need a solid renaming rule that works as follows:
In a multi-body environment, I would like a form window to pop up and in it I would have the option to enter the name of a solid and then after clicking on the solid the name would be assigned to it. On the other hand, after pressing the "esc" button, nothing would happen.

Thanks

[Andrii_Humeniuk · Accepted solution]

Hi @autodesk0343ART . Please try this iLogic code:

Public Sub Main()
	Dim oInvApp As Inventor.Application = ThisApplication
	Dim oPDoc As PartDocument = TryCast(oInvApp.ActiveDocument, PartDocument)
	If oPDoc Is Nothing Then Exit Sub
	Dim oBodies As SurfaceBodies = oPDoc.ComponentDefinition.SurfaceBodies
	If oBodies.Count = 0 Then Exit Sub
	Do
		Dim oBody As SurfaceBody
		Dim sName As String
		sName = InputBox("Please enter the name of the body.", "Rename body", "Body123")
		If String.IsNullOrEmpty(sName) Then Exit Sub
		oBody = oInvApp.CommandManager.Pick(SelectionFilterEnum.kPartBodyFilter, "Select Body...")
		If oBody Is Nothing Then Exit Sub
		Try
			oBody.Name = sName
		Catch
			MessageBox.Show("Fail rename body.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
		End Try
	Loop
End Sub

[autodesk0343ART]

@Andrii_Humeniuk  
Great, exactly what I needed. Thank you very much