Request: Siemens PLM NX - How to Create Solid Body from Sheet Bodies

This video presents how to create solid body from sheet bodies.

The CreateFill function for the journal:

Public Function CreateFill(ByVal throughCurvesObj As Features.BodyFeature)
Dim fillHoleBuilder1 As Features.FillHoleBuilder
Dim throughCurvesEdges() As Edge = throughCurvesObj.GetEdges
For i As Integer = 0 To CType(throughCurvesEdges, System.Array).GetLength(0) - 1
fillHoleBuilder1 = workPart.Features.FreeformSurfaceCollection.CreateFillHoleBuilder(Nothing)
fillHoleBuilder1.Tolerance = 0.01
fillHoleBuilder1.ShapeControlType = Features.FillHoleBuilder.ShapeControlTypes.Fullness
fillHoleBuilder1.Patch = True
fillHoleBuilder1.Fullness.RightHandSide = "0"
fillHoleBuilder1.CurveChain.DistanceTolerance = 0.01
fillHoleBuilder1.CurveChain.ChainingTolerance = 0.0095
fillHoleBuilder1.CurveChain.SetAllowedEntityTypes(Section.AllowTypes.OnlyCurves)
Dim edge1(0) As Edge
edge1(0) = throughCurvesEdges(i)
Dim edgeDumbRule1 As EdgeDumbRule
edgeDumbRule1 = workPart.ScRuleFactory.CreateRuleEdgeDumb(edge1)
fillHoleBuilder1.CurveChain.AllowSelfIntersection(True)
Dim rules1(0) As SelectionIntentRule
rules1(0) = edgeDumbRule1
Dim helpPoint1 As Point3d = New Point3d(0.0, 0.0, 0.0)
fillHoleBuilder1.CurveChain.AddToSection(rules1, throughCurvesEdges(i), Nothing, Nothing, helpPoint1, Section.Mode.Create, False)
Dim markertonodelistitem1(0) As NXOpen.Features.FillHoleBuilder.BorderContinuity
markertonodelistitem1(0).BorderObject = edge1(0)
markertonodelistitem1(0).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
fillHoleBuilder1.SetBorderTypeItems(markertonodelistitem1)
fillHoleBuilder1.CommitFeature()
fillHoleBuilder1.Destroy()
Next
End Function

Видео Request: Siemens PLM NX - How to Create Solid Body from Sheet Bodies канала CAD Tutorials