Code:
'Sweep erstellen "Unterseite" Dim hybridShapeSweepLine2 As HybridShapeSweepLine
Set hybridShapeSweepLine2 = hybridShapeFactory2.AddNewSweepLine(voHybridShapeIntersection1_Leitkurve)
hybridShapeSweepLine2.Mode = 6
hybridShapeSweepLine2.SetFirstLengthLaw 50#, 0#, 0
hybridShapeSweepLine2.SetSecondLengthLaw 50#, 0#, 0
hybridShapeSweepLine2.SetAngle 1, 1#
hybridShapeSweepLine2.SolutionNo = 2
hybridShapeSweepLine2.SmoothActivity = True
hybridShapeSweepLine2.GuideDeviationActivity = True
hybridShapeSweepLine2.DraftComputationMode = 0
Dim hybridShapeDirection2 As HybridShapeDirection
Set hybridShapeDirection2 = hybridShapeFactory2.AddNewDirection(hybridShapeLineAngle3)
hybridShapeSweepLine2.DraftDirection = hybridShapeDirection2
hybridShapeSweepLine2.SetFirstLengthDefinitionType 0, Nothing
hybridShapeSweepLine2.SetSecondLengthDefinitionType 0, Nothing
hybridShapeSweepLine2.SetbackValue = 0.02
hybridShapeSweepLine2.FillTwistedAreas = 1
hybridShapeSweepLine2.C0VerticesMode = True
hybridBody2.AppendHybridShape hybridShapeSweepLine2
hybridShapeSweepLine2.Name = "Sweep.Unterseite"
part1.InWorkObject = hybridShapeSweepLine2