GenerateLengthParametersFromDblArray

From scripting
Jump to: navigation, search
Function GenerateLengthParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant
'Default units are mm.
Dim ParmArr()
ReDim ParmArr(UBound(DblArr))
For X = 0 To UBound(DblArr)
    Set ParmArr(X) = ParmList.CreateDimension("STD_Rad" & Format(X, "00"), "LENGTH", DblArr(X))
Next X
GenerateLengthParametersFromDblArray = ParmArr
End Function