*createarray 的问题

nemia

*createarray的格式如下
*createarray 3 123 123 123
第一个3表示有3个数，依次是123 123 123

在二次开发中，这个个数是会变的，有可能是20个123，有可能是30个123
在这种情况下，应该如何用*createarray呢？

谢谢。

nemia

自己回答一下
set array_dofs [list];
set array_weights [list];
set i 0
while {$i < $n_nodes} {
lappend array_dofs 123
lappend array_weights 1
incr i 1
                }

eval *createarray $n_nodes $array_dofs;
eval *createdoublearray $n_nodes $array_weights;
*rbe3 1 1 $n_nodes 1 $n_nodes $node_id 123456 1;
关键在于eval，之前没有加，所以总是出错。