proc p_derived_bars args {
*createmarkpanel elems 1 "select 3d elems"
set buff1 ""
set buff2 ""
set i 0; set j 0
foreach NodeList [hm_getvalue elems mark=1 dataname = nodes] cx [hm_getvalue elems mark=1 dataname=centrex] cy [hm_getvalue elems mark=1 dataname=centrey] cz[hm_getvalue elems mark=1 dataname=centrez] {
append buff1 "GRID,[incr i],,$cx,$cy,$czn"
foreach NodeId $NodeList {
append buff2 "PLOTEL,[incr j],$i,$NodeIdn"
}
}
set fpt [open temp.fem w]
puts $fpt $buff1
puts $fpt $buff2
close $fpt
}
我看不到多余的空间在哪里,有人介意帮我吗?这是针对超网格的。
在这里,你缺少一个空格:
cz[hm
这将导致传递给 foreach 的参数数量不正确。