[skrzatchlewny]

Hi,
I would like to have a simple parametric geometry (translated circle). To do that I generated following Tcl script:

1: ic_vdefine r variable 2
2: ic_point {} GEOM pnt.00 0,0,0
3: ic_point {} GEOM pnt.01 1,0,0
4: ic_point {} GEOM pnt.02 1,1,0
5: ic_curve arc_ctr_rad GEOM crv.01 {pnt.01 pnt.02 pnt.00 r 0 360}
6: ic_move_geometry curve names crv.01 translate {0 r 0}

the problem is with line 6, the circle stays at initial position and no error is displayed. Does anybody know the reason/solution?

[brunoc]

Hi,

That's because {..} does not allow substitution inside the brackets. Use ".." instead and it should work:

1: set r 2
2: ic_point {} GEOM pnt.00 0,0,0
3: ic_point {} GEOM pnt.01 1,0,0
4: ic_point {} GEOM pnt.02 1,1,0
5: ic_curve arc_ctr_rad GEOM crv.01 "pnt.01 pnt.02 pnt.00 $r 0 360"
6: ic_move_geometry curve names crv.01 translate "0 $r 0"

Cheers

[skrzatchlewny]

That solved the problem. Thank you!

[Felipe Mendes]

Hey guys,
I'm also doing a parametric script using Tcl.
Nevertheless, neither the while nor the for looping work:

while {$i < 10} {
puts "I dans le boucle: $i"
incr i
}


for {set i 0} {$i<5} {incr i} {
puts "I dans le boucle: $i"
}

Do you know how to make it work?
Does anybody knows how to select some point or line in ICEM parametric language by specifying a location (like in ansys workbench)?
Thanks a lot!

[skrzatchlewny]

try that code:
set i 0;
while {$i < 10} {\
ic_mess "I dans le boucle: $i";\
incr i;}

[Felipe Mendes]

Thanks!
It worked pretty well!

[hadikhayyamian]

Hi Brunoc;

Thanks for your great help. I wonder if there is any book, ..... as a source for tcl/tk and its use in ICEM.

Regards.