Autodesk Inventor API. Первые шаги/Уровень сборки

Переименование компонента в сборке

Демонстрационный пример переименования первого по списку компонента активной сборки.

Sub RenameOcc()

   ' Получим ссылку на документ сборки
   ' Полагаем, что документ сборки открыт
   Dim oAsmCompDef As AssemblyComponentDefinition
   Set oAsmCompDef = ThisApplication._ 
            ActiveDocument.ComponentDefinition

   ' Ссылка на конкретный компонент, подлежащий переименованию
   ' Здесь это просто первый в списке компонентов сборки.
   Dim oOccurrence As ComponentOccurrence
   Set oOccurrence = oAsmCompDef.Occurrences.Item(1)
   
   ' Переименование компонента oOccurrence
   oOccurrence.Name = "XYZ"

End Sub