AddNewPointOnCurveSmall

From scripting
Revision as of 04:45, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function AddNewPointOnCurveSmall(InputCurve As Variant, RatioNum As Double, tempset As HybridBody, NameStr As String) As HybridShapePointOnCurve Dim ADN As HybridShapePointO...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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