Script para seleccionar y borrar objetos duplicados

Hola a todos, soy muy nuevo trabajando con Maxscript y me cuesta mucho comprender el lenguaje, encontré este script por internet y me a ayudado mucho, pero quisiera saber cómo poder optimizarlo.

La idea es eliminar objetos duplicados, por lo que hay que seleccionar y poner en marcha este script:
-- 1, select your objects end run next line todo collect obj, position.

Posarray = for i in selection collect i, pos.
-2, remove dublicated items.

Posarray = makeuniquearray posarray.
-3, filter out just 1 obj per pos.

Cleararray = #().

For I = 1 todo posarray, count do (tfor obj in selection do (t if (*.obj), pues == posarray[i] do cleararray[i] = obj t)).
-4, select them.

Select cleararray.

Al aplicarlo funciona de maravilla, queda seleccionada la geometría repetida y podemos presionar deleete, pero quisiera optimizar el script, ya que en caso de aplicarlo a mucha geometría, la cual se encuentra parte de ella duplicada y otra no, al borrar la selección, me borra parte de la geometría que no estaba duplicada, ojalá me puedan ayudar a complementar el script y poder agregar alguna función para seleccionar solo las partes duplicadas.