Tema: Script copiar uvs - Ayuda

[Dios]

Hola, pues estoy haciendo un pequeño script para copiar y pegar uvs en objetos, por ahora, cúbicos.
 El primer objeto de la coleccion tiene que tener creadas y las uvs y colocadas como queramos, sino utilizaría un script para darles la misma proyección a todos y listo, pero no es el caso
Pues eso, que seleccionas varios objeto, cubos, y me da error. Alguien me puede ayudar.
GRacias

Código: [Seleccionar]

//SCRIPT en VBscript

'***Copia y pega las uvs de un objeto que ya tiene las uvs hechas en los demás, a los que se le crea antes una proyeccion***

Set oList = Selection
For i = 1 To oList.Count - 1

   LogMessage oList(0)
   '***Crea una proyeccion cubica para cada objeto seleccionado***
   CreateProjection oList(i), siTxtCubic, siTxtDefaultCubic, , "Texture_Projection"
   
Next


For i=1 To oList.Count - 1

  SelectGeometryComponents oList(0)
  CopyUVW oList(0)&".polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection", oList(0)&".sample[*]"
  'LogMessage oList(i)
  SelectGeometryComponents oList(i)&".sample[*]"
  PasteUVW oList(i)&".polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection", oList(i)&".sample[*]"

Next


GRacias WOunded por el CODE

[Tomás]

prueba a usar el botón code, no interpretará ningún código para hacer smiles ni naaaa

por ejemplo...

Código: [Seleccionar]

lalalalala [*] :D y pongo [b] que sería negrita [/b]
saludos