hypermesh中用tcl脚本生成多个线段

hypermesh中原本有利用多个节点生成线段的功能，但实际应用中不太好用，因为hypermesh会自动对线段进行拟合。如果手动生成多个线段，又太繁琐，这里写了一段脚本来自动生成（#为注释符号）。

set alist {}
for {set j 361} {$j <= 375} {incr j} {lappend alist $j}
set n [llength $alist]

#以上代码的功能为生成一个id的list，包含了要生成线段的节点的id；其中361和375为节点id的开始和结束。

for {set j 1} {$j<$n} {incr j} {
set a [lindex $alist [expr $j-1]]
set b [lindex $alist $j]
*createlist nodes 1 $a $b
*linecreatefromnodes 1 2 0.0 0.0 0.0
}

#以上代码的功能为遍历所有节点id，按顺序连接所有节点。