How do I remove mid-edge EPoly Vertices?

macroScript KillMidEdgeVerts category: "MXS Help"
(
--make sure a single EPoly object is selected
on isEnabled return
 selection.count == 1 and classof selection[1].baseobject == Editable_Poly
on execute do
(
 thePoly = selection[1] --get the selected object
 select thePoly --select it
 max modify mode --switch to modify panel
 --set the base object as current level:
 modPanel.setCurrentObject selection[1].baseobject
 subObjectLevel = 1 --set sub-*object level to vertex level
 numVerts = (polyop.getNumVerts thePoly) --get the total vertex count
 undo on "KillMidEdgeVerts" --enable undo context
 (
  --loop backwards from the last to the first vertex
  for v = numVerts to 1 by -1 do
  (
   --get the edges using the vertex to check the count
   nVerts = (polyop.getEdgesUsingVert thePoly v) as array
   if nVerts.count == 2 do --if only two edges found, then
   (
    --get the verts of the first egde
    edge1verts = (polyop.getVertsUsingEdge thePoly nVerts[1]) as array
    --calculate the vector defined by the two vertices in the first edge
    vector1 = (polyop.getVert thePoly edge1verts[1]) - (polyop.getVert thePoly edge1verts[2])
    --get the verts of the second edge
    edge2verts = (polyop.getVertsUsingEdge thePoly nVerts[2] as array)
    --calculate the vector defined by the two vertices in the second edge
    vector2 = (polyop.getVert thePoly edge2verts[1]) - (polyop.getVert thePoly edge2verts[2])
    --calculate the angle between the two normalized vectors
    angle = acos (dot (normalize vector1) (normalize vector2))
    --if the angle is less than the threashold (change 0.01 to whatever threashold you want!)
    if angle < 0.01 do
    (
     select thePoly.verts[v]--then select the current vertex
     thePoly.EditablePoly.buttonOp #Remove--and hit the remove button
    )
   )--end if
  )--end v loop
 )--end undo
)--end on
)--end macro