Difference between revisions of "GenerateLengthParametersFromDblArray"
From scripting
(Created page with " Function GenerateLengthParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant 'Default units are mm. Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For...") |
(No difference)
|
Latest revision as of 05:36, 22 April 2017
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
