macroScript igorznag_edge_coordinate_system category:"_igorznag" buttonText:"Edge CS"
(
	if selection.count==1 then
	(
		obj_=selection[1]; co_=modPanel.getCurrentObject()
		if classof co_==Editable_poly then
		(
			es=polyop.getedgeselection co_ as array
			if es.count==1 then
			(
				ev=polyop.getEdgeVerts co_ es[1]
				v1=polyop.getvert co_ ev[1] node:obj_; v2=polyop.getvert co_ ev[2] node:obj_
				t=matrixfromnormal (normalize (v2-v1)); t.pos=1.0*(v1+v2)/2.0
				try delete $igorznag_dummy catch ()
				d=dummy(); d.name="igorznag_dummy"; freeze d; hide d
				d.transform=t; toolmode.coordsys d; completeredraw()
			)else messagebox "Select one edge!"
		)else messagebox "Select Editable Poly object!"
	)else messagebox "Select one object!"
)--macroscript