Code:
Language="VBSCRIPT"Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("(BodyName)")
Set shapes1 = body1.Shapes
Set solid1 = shapes1.Item("Solid.83")
Set reference1 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Solid.83;%2168);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", solid1)
Set hybridShapeExtract1 = hybridShapeFactory1.AddNewExtract(reference1)
hybridShapeExtract1.PropagationType = 2
hybridShapeExtract1.ComplementaryExtract = False
hybridShapeExtract1.IsFederated = False
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("(geoset_name_1)")
Set hybridBodies2 = hybridBody1.HybridBodies
Set hybridBody2 = hybridBodies2.Item("(geoset_name_2)")
hybridBody2.AppendHybridShape hybridShapeExtract1
part1.InWorkObject = hybridShapeExtract1
part1.Update
End Sub