' This rule replaces a component in a sub-assembly with an alternative.
' Note there is no error checking - if the component names are incorrect then
' error(s) will occur.

' Define the sub-assembly we want to replace something in
Dim oSubAsmOcc As ComponentOccurrence = Component.InventorComponent("SUB-ASM1:1")

' Activate it for edit
oSubAsmOcc.Edit

' Replace the desired component with an alternative
Component.Replace("CHANNEL1:1", "CHANNEL2.ipt", True)

oSubAsmOcc.ExitEdit(ExitTypeEnum.kExitToTop)