' ######### Programmteil: Offset einer Kurve ##############


Dim OffsetArray(3) As NXObject
Dim nXObject4411(0) As NXObject

        For i = 0 To 3


			.
			.
			.
			.



		Dim nXObject44 As NXObject            

		nXObject44 = offsetCurveBuilder44.Commit()
		nXObject4411 = offsetCurveBuilder44.GetCommittedObjects()

		
		'Hier kann kein Wert übergeben werden:
		'-------------------------------------------
                OffsetArray(i) = nXObject4411(0)
		'-------------------------------------------


            	offsetCurveBuilder44.CurvesToOffset.CleanMappingData()                   

            	offsetCurveBuilder44.Destroy()


        Next i




 ' ######### Programmteil: Projektion der Offset-Kurven ##############


'Hier wird jedes Element im OffsetArray durchlaufen:

For Each mySelObj51 As NXObject In OffsetArray


		Dim nullFeatures_Feature51 As Features.Feature = Nothing
                Dim projectCurveBuilder51 As Features.ProjectCurveBuilder

                projectCurveBuilder51 = workPart.Features.CreateProjectCurveBuilder(nullFeatures_Feature51)
                projectCurveBuilder51.CurveFitData.Tolerance = 0.0254
                projectCurveBuilder51.ProjectionDirectionMethod = Features.ProjectCurveBuilder.DirectionType.AlongVector
                projectCurveBuilder51.SectionToProject.DistanceTolerance = 0.0254
                projectCurveBuilder51.SectionToProject.ChainingTolerance = 0.02413
                projectCurveBuilder51.SectionToProject.SetAllowedEntityTypes(Section.AllowTypes.CurvesAndPoints)

                Dim curves51(0) As Curve
                projectCurveBuilder51.SectionToProject.AllowSelfIntersection(True)
                


		
		curves51(0) = mySelObj51
		


                Dim curveDumbRule5 As CurveDumbRule
                curveDumbRule5 = workPart.ScRuleFactory.CreateRuleCurveDumb(curves51)
                Dim rules51(0) As SelectionIntentRule
                rules51(0) = curveDumbRule5
                Dim spline51 As Curve = CType(mySelObj51, Curve)
                Dim nullNXObject51 As NXObject = Nothing
                Dim helpPoint51 As Point3d = New Point3d(3007.05780326895, -576.235610603804, 572.634849363865)

                projectCurveBuilder51.SectionToProject.AddToSection(rules51, spline51, nullNXObject51, nullNXObject51, helpPoint51, Section.Mode.Create, False)


			.
			.
			.
			.