Пути оптимизации Editable Poly

macroScript remove category:"drFlashTools" tooltip:"Remove" 
(
case (getSelectionLevel $) of 
(
#Vertex: $.EditablePoly.Remove selLevel:#Vertex
#Edge:(
sel = #{}
edgesel = polyOp.getEdgeSelection $
vertsel = polyOp.getVertsUsingEdge $ edgesel
$.EditablePoly.Remove selLevel:#Edge
for i = 1 to vertsel.numberset do
if ($.GetVertexEdgeCount (vertsel as array)[i]) == 2 then sel = sel + #{(vertsel as array)[i]}
polyop.setVertSelection $ sel
$.EditablePoly.Remove selLevel:#Vertex
)
#Face:
(
sel = #{}
facesel = polyOp.getFaceSelection $
edgesel = polyOp.getEdgesUsingFace $ facesel
for i = 1 to edgesel.numberset do
if (((polyOp.getEdgeFaces $ (edgesel as array)[i]) as bitarray)*(facesel as bitarray)).numberset == 2 then sel= sel + #{(edgesel as array)[i]}
polyop.setEdgeSelection $ sel
$.EditablePoly.Remove selLevel:#Edge
)
)

)

macroScript SelectBadVerts
	category:"[b]Какую захотите[/b]"

(
	(
		for obj in selection do (
			varr=#()
			for i in obj.verts do (
				arr=(PolyOp.getEdgesUsingVert obj #(i.index)) as array
				if arr.count==2 do append varr i.index
			)
			polyOp.setVertSelection obj varr
		)
	)
)