Code:
Language="VBSCRIPT"Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeLinePtDir1 As HybridShape
Set hybridShapeLinePtDir1 = hybridShapes1.Item("Line.1")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLinePtDir1)
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromDistance(reference1, 0, False)
hybridShapePointOnCurve1.DistanceType = 1
hybridBody1.AppendHybridShape hybridShapePointOnCurve1
dim Abstand
Abstand = 10
For i=1 to 5
Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeLinePtDir1)
Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)
Dim hybridShapePointOnCurve2 As HybridShapePointOnCurve
Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference2, reference3, Abstand*i, False)
hybridShapePointOnCurve2.DistanceType = 1
hybridBody1.AppendHybridShape hybridShapePointOnCurve2
next
part1.Update
End Sub