[Closed] Removing poly verts

Here is a function that “removes” poly verts, as with the button in the editable poly/edit poly modifier rollout.

fn removeSelectedVerts obj =
(
	setCommandPanelTaskMode mode:#modify
	select obj
	subobjectlevel = 1 --change to vertex level
	obj.Remove() --remove the current selection
	subobjectLevel = 0
)

removeSelectedVerts $

Obviously this function sucks, because it uses the mod panel, which makes it very slow.

Am I missing something? Is there a smarter way to do it?