PlacePointOnCurve

From scripting
Jump to: navigation, search
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