Maxscript: Radial sorts objects using the average center position to determine sort.

Radial Sorting | .ms

(
	local theObjects = objects as array
    local count = theObjects.count
    local center = [0, 0, 0]
    for obj in theObjects do center += obj.pos
    center /= count
 
    fn radialSort obj1 obj2 =
        in coordSys (transMatrix center) (cross obj2.pos obj1.pos).z
 
    qsort theObjects radialSort
 
    --check resulting array
    for i = 1 to theObjects.count do
	(
		format "%\n" theObjects[i].name
		theObjects[i].wirecolor = black + (red*(i/theObjects.count as float)) 
	)
)