-- connect edges for every givin distance
-- made by jos_balcaen@hotmail.com
rollout roll_distanceconnect "Distance connect"
(
	local myDistance
	
	spinner spnDistance "Distance" range:[0.01,100000,5]
	button btnPreview "Preview" across:3 width:45
	button btnCancel "Cancel" width:45
	button btnAccept "Accept" width:45 offset:[5,0]
	label lblLength "Select edges..."
	on btnPreview pressed do
	(
		if classOf $ == Editable_Poly and subObjectLevel == 2 then			
		(
			myEdgeSelection = polyop.getEdgeSelection $
			numberOfEdges = $.GetNumEdges()
			indexedge = 0
			for i = 1 to numberOfEdges do
			(
				if myEdgeSelection[i] == true do indexedge=i;break
			)
			print myEdgeSelection.count
			vOne = $.GetEdgeVertex indexedge 1
			vTwo = $.GetEdgeVertex indexedge 2
			pOne = $.GetVertex vOne
			pTwo =  $.GetVertex vTwo
			myDistance = distance pOne pTwo
			lblLength.text = "edgelength : " + myDistance as string
			--$.buttonOp #ConnectEdges 
			$.connectEdgeSegments = (myDistance/spnDistance.value) as integer
			$.PreviewBegin #ConnectEdges 
		)
		else
		(
			if classOf $ != Editable_Poly then lblLength.text = "Need Editable Poly..." else lblLength.text = "Need edge selection..."
		)
	)
	on spnDistance changed val do
	(
		$.connectEdgeSegments = (myDistance/spnDistance.value) as integer
	)
	on btnAccept pressed do $.previewAccept()
	on btnCancel pressed do $.previewCancel()
)
createDialog roll_distanceconnect 160 70 style:#(#style_toolwindow,#style_sysmenu)