Removing vertices that are shared by only 2 edges? As I see this question appear sequential. About two month ago I wrote a macro script (B-Vertex Eraser), also by user request, but recently asked my this again, so I'll post here (as reference) the last function I wrote for that purpose.
fn RemoveVertsWith2Edges epoly = (
vList = for v=1 to epoly.GetNumVertices() where
epoly.GetVertexEdgeCount v == 2 collect v
epoly.SetSelection #Vertex (vList as BitArray)
-- example usage:
-- on multiple objects:
for obj in selection do RemoveVertsWith2Edges obj
This function work with Editable Poly and remove ALL vertices that are shared by only 2 edges. To remove SELECTED vertices with 2 edges, use my B-Vertex Eraser macro script, which works as with Editable Poly as with Edit Poly modifier.