AddNewPointOnCurveSmall

From scripting
Jump to: navigation, search
Function AddNewPointOnCurveSmall(InputCurve As Variant, RatioNum As Double, tempset As HybridBody, NameStr As String) As HybridShapePointOnCurve
Dim ADN As HybridShapePointOnCurve
Set ADN = MyHSFactory.AddNewPointOnCurveFromPercent(InputCurve, RatioNum, True)
tempset.AppendHybridShape ADN
ADN.Name = NameStr
IsUpdatable ADN
MyHSFactory.GSMVisibility ADN, 0
Set AddNewPointOnCurveSmall = ADN
End Function