Editing UV Shells (2)

[andy-davis]

I am looking to develop a script that will move the UV's of a selected mesh object to the UV origin.
Something like this:

1) string $UVShells[] = list of the selected objects UV shells;
2) for ($this in $UVShells){
3) query the UV center of $this;
4) move $this closer to the origin, based on the above query;
5) }

So basically, lines 1, 3 and 4 seem hard to work out!
The command, 'polyEditUVShell' seems to work on UV's rather than shells.
Any ideas?

Andy.

[andy-davis]

Well I've been trying to write this script for years!
Asked on this forum a couple times, but never had a response.
Think I've made a bit of a breakthrough, but it's not perfect!
Sometimes, some of the shells get left behind, but on the whole, it's speeding up my workflow loads.

global proc AD_UVFixer()
// moves the shell of selected UVs to the origin
{
string $Sel[] = ls -sl;
for ($this in $Sel)
{
select $this;
SelectUVShell;
float $UList = 0;
float $VList = 0;
float $UVs[] = polyEditUVShell -q;
for ($i = 0; $i < size($UVs); $i++)
{
$UList += $UVs[$i];
$i++;
$VList += $UVs[$i];
}
$UList = ($UList * 2 / size($UVs));
$VList = ($VList * 2 / size($UVs));
float $UMod = -floor $UList;
float $VMod = -floor $VList;
polyEditUV -u $UMod -v $VMod;
}
select $Sel;
}

[rgkovach]

There is a script on this site that does exactly what you are looking for. You might find some ideas in it.