RVB RandOrthVector
From scripting
Public Function RandOrthVector(BasePtArr, MaxRange) Dim XV, YV, ZV, EndArr XV = ((Rnd()*2)-1)*MaxRange + BasePtArr(0) YV = ((Rnd()*2)-1)*MaxRange + BasePtArr(1) ZV = ((Rnd()*2)-1)*MaxRange + BasePtArr(2) EndArr = Array(XV, YV, ZV) RandOrthVector = EndArr End Function