PlacePointOnCurve

From scripting
Revision as of 19:41, 24 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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