(
	obj = $
	baseobj = obj.baseobject
	epoly = obj.Edit_Poly

	flag = bit.set 0 30 true
	c_getEdgeFlags = polyop.getEdgeFlags

	modPanel.setCurrentObject baseobj

	edgesel = polyop.getEdgeSelection baseobj
	polyop.setEdgeFlags baseobj edgesel flag mask:flag
	polyop.getEdgesByFlag baseobj flag

	modPanel.setCurrentObject epoly

	edgesNew = #{}
	for i=1 to (polyop.getNumEdges obj) do
	(
		fl = c_getEdgeFlags obj i
		if bit.get fl 30 then edgesNew[i] = true
	)
	subobjectlevel = 2
	epoly.SetSelection #Edge #{}
	epoly.Select #Edge edgesNew
)