#327 Creates nodes with coordinates from text file using HyperMesh Tcl

nodes.txt

3 10 3
1 6 0
2 7 4
8 10 9
0 2 2
6 6 10
1 5 7
5 3 3
0 8 9
1 0 6

create_nodes.tcl

set script_path [ file dirname [ file normalize [ info script ] ] ]
cd $script_path
set myfile "nodes.txt"
set a [open $myfile]
set lines [split [read $a] "\n"]
close $a
foreach line $lines {
    eval *createnode $line
}
# add label to each node
*createmark nodes 1 "all"
*numbersmark nodes 1 1
*window 0 0 0 0 0