Code:
Dim hybridShapeOffset1 As HybridShapeOffset
Set hybridShapeOffset1 = hybridShapeFactory1.AddNewOffset(reference1, 2.5, True, 0.01)Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%255);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference2
Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%1);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference3
Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%2);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference4
Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%17);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference5
Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%19);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference6
Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%1);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference7
Dim reference8 As Reference
Set reference8 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%344);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference8
Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%95);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference9
Dim reference10 As Reference
Set reference10 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%343);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference10
Dim reference11 As Reference
Set reference11 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(GSMBiDim.3;%135);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", hybridShapeInverse1)
hybridShapeOffset1.AddTrickyFace reference11
Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies2.Item("Support")
hybridBody3.AppendHybridShape hybridShapeOffset1
part1.InWorkObject = hybridShapeOffset1
part1.Update