hypermesh二次开发tcl脚本

1、tcl读csv文件,得到list,再转成二维数组

#source read_csv.tcl
#for {set i 0} {$i<3} {incr i} {
   
#	puts $i
#}

#read_csv::
set csvFile C:/Users/li/Documents/nodes.csv
set csv [open $csvFile]
set data [split [read $csv] '\n']
close $csv

#data 2 array aData::
set dataNum [llength $data]
incr dataNum -1
for {
   set i 0} {
   $i<$dataNum} {
   incr i} {
   
	set datai [split [lindex $data $i] ',']
	set dataiNum [llength $datai]
	for {