[evan247]

Dear all,

I've been trying to use ICEM's scripting feature to automate mesh generation. My geometry (curve) comes from a .dat file of (x,y,z) coordinates of points, and I'd like to create my curves "from points". However, in the .rpl file I find the line to be sth like:

ic_curve point GEOM crv.00 {{0.00000000 0.30000000 0.00000000} {0.00492865 0.30000876 0.00000000} ....

, rather than saying "import from <filename.dat>".

My question is then: is it possible to use .rpl file to directly import points from another file, or I have to input the points (manually) every time?

Thanks!

[bluebase]

Hello evan247,

the .rpl scripts use a language called tcl. That's why you can use that language's features.
To answer your question, no you don't have to input them all manually.
But.. you have to write a few extra lines in your replay script to load the data file.

I suggest you to read a short tutorial on tcl.

To give you a kick start, have a look at the following code snippet. I assume your data file uses a comma as separator.

# read file
set fp [open "filename.dat" r]      
set file_data [read $fp]      
close $fp

# define empty list
set xyzlist {}

# process data
set data [split $file_data "\n"] 
     foreach line $data {           
     lappend xyzlist [split $line ","]
}

# create line by point list
ic_curve point GEOM crv.00 $xyzlist

with regards,
Sebastian

[evan247]

Originally Posted by bluebase

Hello evan247,

the .rpl scripts use a language called tcl. That's why you can use that language's features.
To answer your question, no you don't have to input them all manually.
But.. you have to write a few extra lines in your replay script to load the data file.

I suggest you to read a short tutorial on tcl.

To give you a kick start, have a look at the following code snippet. I assume your data file uses a comma as separator.

# read file
set fp [open "filename.dat" r]      
set file_data [read $fp]      
close $fp

# define empty list
set xyzlist {}

# process data
set data [split $file_data "\n"] 
     foreach line $data {           
     lappend xyzlist [split $line ","]
}

# create line by point list
ic_curve point GEOM crv.00 $xyzlist

with regards,
Sebastian

Thanks Sebastina for the starting point - I will look into tcl language to get my script working!