AddNewPointOnCurveSmall
From scripting
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