Dim oPart As Part
Set oPart = CATIA.ActiveEditor.ActiveObject
Dim factory As InstanceFactory
Set factory = oPart.GetCustomerFactory("InstanceFactory")
factory.BeginInstanceFactory "Power_Inst_Test", "3sh_546876498", "A.1"
factory.BeginInstantiate
Dim FirstPlane As Object
Set FirstPlane =...