[lnk]

Why this work

'
ic_undo_group_begin
ic_geo_new_family GEOM
ic_boco_set_part_color GEOM
ic_empty_tetin
ic_point {} GEOM pnt.00 1,2,3
ic_undo_group_end
ic_undo_group_begin
ic_undo_group_end
ic_undo_group_begin
ic_geo_new_family BODY
ic_boco_set_part_color BODY
ic_geo_create_volume {1 2 3} {} BODY
ic_undo_group_end
ic_undo_group_begin
ic_undo_group_end

'

but this doesn't work

'
set a 1
set b 2
set c 3

ic_undo_group_begin
ic_geo_new_family GEOM
ic_boco_set_part_color GEOM
ic_empty_tetin
ic_point {} GEOM pnt.00 1,2,3
ic_undo_group_end
ic_undo_group_begin
ic_geo_new_family HAHA
ic_boco_set_part_color HAHA
ic_geo_create_volume {$a $b $c} {} HAHA
ic_undo_group_end
ic_undo_group_begin
ic_undo_group_end
'
?


Can you parameterize the button 'Create Body'?
Best regard and many thanks,
lnk

[Far]

may be you need to create the new procedure.

[lnk]

Originally Posted by Far

may be you need to create the new procedure.

Thanks for your answer, Far. My problem is I can't find a way to parameterize the button 'create body'. ( I also tried to create the body by the middle of two points. But the coordinate is also showed as numbers but not the name of the points I used. )

Is there any way to make 'ic_geo_create_volume {$a $b $c} {} HAHA' works?

Best regards and many thanks,
lnk

[PSYMN]

I think the curly brackets are your problem...

You could do it this way...

ic_geo_create_volume [ic_geo_get_point_location pnt.00] {} BODY

Or this way...

set loc [ic_geo_get_point_location pnt.00]
ic_geo_create_volume $loc {} BODY

I have not had a chance to mess with trying to define each point as a separate parameter, but I am sure it can be done also...

[lnk]

Originally Posted by PSYMN

I think the curly brackets are your problem...

You could do it this way...



Or this way...



I have not had a chance to mess with trying to define each point as a separate parameter, but I am sure it can be done also...

Thank you very much for your answer!

[macfly]

Late answer but... here is another way to do it:

set a 1
set b 2
set c 3
set abc [format "%.0f %.0f %.0f" $a $b $c]

ic_undo_group_begin
ic_geo_new_family GEOM
ic_boco_set_part_color GEOM
ic_empty_tetin
ic_point {} GEOM pnt.00 $abc
ic_undo_group_end 
ic_undo_group_begin
ic_geo_new_family HAHA
ic_boco_set_part_color HAHA
ic_geo_create_volume $abc {} HAHA
ic_undo_group_end