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