set oldpoly = selection (0)
ApplyOp "PolyMeshPNet", oldpoly, 3, siPersistentOperation