' Get name of component to be replaced from model tree
 
oBody = ThisDoc.Document.ComponentDefinition.Occurrences.Item(1).Name
oShade = ThisDoc.Document.ComponentDefinition.Occurrences.Item(2).Name

'Replace current shade according to parameter

Select ShadeType

Case "Shade1"
Component.Replace(oShade, "Shade1.ipt", True)

Case "Shade2"
Component.Replace(oShade, "Shade2.ipt", True)

Case "Shade3"
Component.Replace(oShade, "Shade3.ipt", True)

End Select

'Replace current body according to parameter


Select BodyType

Case "Body1"
Component.Replace(oBody, "Body1.ipt", True)

Case "Body2"
Component.Replace(oBody, "Body2.ipt", True)

Case "Body3"
Component.Replace(oBody, "Body3.ipt", True)

End Select