Difference between revisions of "PlacePointOnCurve"
From scripting
(Created page with " Function PlacePointOnCurve(CurLine As Variant, StartPt As Variant, CurDist As String, CurSet As HybridBody, CurName As String) As HybridShapePointOnCurve Dim CC As HybridS...") |
(No difference)
|
Latest revision as of 19:41, 24 April 2017
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