PlacePointOnCurve
From scripting
Function PlacePointOnCurve(CurLine As Variant, StartPt As Variant, CurDist As String, CurSet As HybridBody, CurName As String) As HybridShapePointOnCurve Dim CC As HybridShapePointOnCurve Set CC = MyHSFactory.AddNewPointOnCurveWithReferenceFromDistance(CurLine, StartPt, 1, True) CurSet.AppendHybridShape CC CC.Offset.ValuateFromString CurDist CC.Name = CurName IsUpdatable CC ForceColorObjUgly CC, 254, 254, 254, 1000, 5, 1000, 1000 MovePointOnCurveCloserToObj CC, AxisLine Set PlacePointOnCurve = CC End Function