variable creation with EVAL not working

[dvelasco]

Here´s another way that I tried. In my mind, I should get a list of clusters when I ask the script to print $latClusters, but it just gives me an empty response.


select -r pSphere1;

global proc stretch (int $div)
{
// cria lattice
string $lat[] = eval ("lattice -divisions 2 " + $div + " 2 -cp -objectCentered true -ldv 2 2 2");
string $latTop[] = `pickWalk -d up`;
CenterPivot;
scale -r 1.2 1.2 1.2 ;
TemplateObject;

// variaveis
string $Clusters = `group -em`;
string $latClusters[];
string $sel[] = `ls -sl`;

// LATTICE -------------------------------------------------

int $latLoop = 0;
int $latLayer = $div - 1;
int $clusterNum = 1;

while ($latLoop < $div)
{

string $temp1 = ("select -r " + $lat[0] + "Lattice.pt[0:1][" + $latLayer + "][0] " + $lat[0] + "Lattice.pt[0:1][" + $latLayer + "][1] ") ;
print ($temp1 + "\n");
eval $temp1;

string $temp2 = ("string $C" + $latLoop + "[] = `newCluster \"-relative -envelope 1\"`");
print ($temp2 + "\n");
eval $temp2;

string $temp3 = ("$latClusters[" + $latLoop + "] = $C" + $latLoop + "[0]");
print ($temp3 + "\n");
eval $temp3;

print ("Cluster " + $clusterNum + " = \"$C" + $latLoop + "[0]\" \n \n \n");

eval ("select -add " + $Clusters);


$latLoop = $latLoop + 1;
$latLayer = $latLayer -1;
}


print ("--------------------");
print $latClusters;

}
stretch 7;

[dvelasco]

OK, this should make it pretty simple. What I want is the Cluster name, not "C0[0]" to be spit out. How can I get this? Select any object and run this script to get the result.

// ---------------------------------------- isolating problem

int $latLoop = 0;
string $temp;

eval ("string $C" + $latLoop + "[]");
eval ("$C" + $latLoop + " = `newCluster \"-relative -envelope 1\"`;");
$temp = ("$C" + $latLoop + "[0]");
print $temp;

// ----------------------------------------

[zaskar]

If you want to create variables on the fly, you need to declare them globally:
int $latLoop = 0;
string $temp;

eval ("global string $C" + $latLoop + "[]");
eval ("$C" + $latLoop + " = `newCluster \"-relative -envelope 1\"`;");
eval("print $C" + $latLoop);

But i would suggest you doing it the common way:
int $latLoop = 0;
string $cluster[] = {};
string $clusterHandle[] = {};

string $tmp[] = `cluster -relative -envelope 1`;
$cluster[$latLoop] = $tmp[0];
$clusterHandle[$latLoop] = $tmp[1];

print("clusterNode: " + $cluster[$latLoop] + " / clusterHandle: " + $clusterHandle[$latLoop] + "\n");

[dvelasco]

Thanks Zaskar! I felt like quite the newbie, but indeed I rarely code, and forgot about the global variable option! I´m going to go back into the script with that in mind, thanks for the technique! I´m sure that it´ll work now.

cheers!

--Diego