ArrayObjs = #()


seleccion = selection as array

if seleccion.count == 0 do ( 

	seleccion = for i in geometry collect i 
	
)

for i in seleccion do (
	
ObjSize = distance i.max i.min

append ArrayObjs ObjSize

)
sort ArrayObjs
print ArrayObjs
clearselection()

rollout SizeSelect "Select by Size" width:162 height:114

(

	slider SizeSlider "Size" pos:[13,25] width:142 height:44 range:[ArrayObjs[1],ArrayObjs[ArrayObjs.count],ArrayObjs[1]] type:#float toolTip:"Size" 
 	GroupBox grp1 "Select By Size" pos:[6,7] width:148 height:70
	label lbl3 "By alzarac www.camiloalcaraz.com" pos:[14,82] width:133 height:25
	edittext edt3 "" pos:[72,22] width:75 height:21 readOnly:true


	on SizeSlider changed slivalue do
		(
				SelectBySize = #()
				for o in seleccion do 
				( 	
					ObjSize = distance o.max o.min
					if ObjSize <= slivalue then 
					(appendifunique SelectBySize o )
						
				)	
				
				select SelectBySize

			edt3.text = slivalue as string

		)

)

createdialog SizeSelect SizeSelect.width SizeSelect.height