Wirecolor by Z

----------------------------------------------------------------
arPos = #()
arObj = selection as array

for i in arObj do append arPos i.pos.z
sort arPos

arData = #()
for i = 1 to arPos.count do (append arData ((arPos[i] - arPos[1])/(arPos[arPos.count] - arPos[1]));  append arData arPos[i])

for i in arObj do (
    fi = findItem arData i.pos.z
    if fi != 0 do i.wirecolor = (color 255 (arData[if fi != 1 then fi-1 else fi]*255) 0)
    )
-----------------------------------------------------------------

Варьируя параметрами "(color 255 (arData[fi-1]*255) 0)"  можно менять расцветку.
Этим параметром можно менять оси "i.pos.z"