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