Text dotazu:
Dobrý den,
už nějakou dobu zápasím s jedním problémem, který se mi nedaří vyřešit.
Mám sestavu např. ze 2 parts, na 1 partu při aktivní sestavě označím face na solidu a do druhého partu potřebuji dostat "mrtý" surface dané selekce. Část kódu, který zkouším:

 oSelection = CATIA.ActiveDocument.Selection

  Dim sFilter(0)

        sFilter(0) = "BiDim"  'vybirame pouze plochu

        Dim sStatus = oSelection.SelectElement2(sFilter, "Vyber face!", False)

        If (sStatus = "Cancel") Then

            End

        End If

        oSurface = oSelection.Item(1).Value



       Dim oExtract As HybridShapeExtract = oHybridShape.AddNewExtract(oSurface)

        Dim oSets As HybridBodies = oNewPart.HybridBodies

        Dim oSet As HybridBody = oSets.Add()

        oSet.AppendHybridShape(oExtract)

        oNewPart.Update()