Distance Align Then Distribute

(   
	local distrib = true
    local cnt = selection.count
    local obj1, obj2
    local max_dist = 0
	local objA = undefined
	local objB = undefined
 
	fn AutoLineup =
	(
		if cnt > 2 do
		(
			for i = 1 to cnt - 1 do for j = i + 1 to cnt do
			(
				local dist = distance selection[i] selection[j]
				if dist > max_dist do
				(
					if objA ==undefined then 
					(
						obj1 = selection[i]
					)
					else
					(
						obj1 = objA
					)
					if objB ==undefined then 
					(
						obj2 = selection[j]
					)
					else
					(
						obj1 = objB
					)
					max_dist = dist
				)
			)
 
			local dum = dummy pos:obj1.pos dir:(obj2.pos - obj1.pos)
 
			in coordsys dum
			(
				local arr = selection as array
				fn order o1 o2 = o1.pos.z - o2.pos.z
				qsort arr order
				local dz = obj2.pos.z / (cnt - 1)
 
				for i = 2 to cnt - 1 do
				(
					obj = arr[i]
					obj.pos.x = obj.pos.y = 0
					if distrib do obj.pos.z = (i - 1) * dz
				)
			)
 
			delete dum
		)
	)
 
 
 
	rollout rlAlignDistribute "Lineup"
	(
		button btnClearStart "X" width:20 height:20 pos:[2,2]
		button btnClearEnd "X" width:20 height:20 pos:[2,24]
		pickbutton pkbtnPickStart "Start Object" width:126 height:20 pos:[22,2]
		pickbutton pkbtnPickEnd "End Object" width:126 height:20 pos:[22,24]
		button btnAutoLineUp "Auto Lineup" width:146 height:24 pos:[2,46]
 
		on btnAutoLineUp pressed do
		(
			AutoLineup()
		)
 
		on pkbtnPickStart picked obj do
		(
			if obj != undefined then
			(
				pkbtnPickStart.text = obj.name
				objA = obj
			)
		)
 
		on pkbtnPickEnd picked obj do
		(
			if obj != undefined then
			(
				pkbtnPickEnd.text = obj.name
				objB = obj
			)
		)
 
		on btnClearStart pressed do
		(
			pkbtnPickStart.text = "Start Object"
			objA = undefined
		)
 
		on btnClearEnd pressed do
		(
			pkbtnPickEnd.text = "End Object"
			objB = undefined
		)
 
	)
	createDialog rlAlignDistribute 150 72
)