*createlistpanel nodes 1 "Select nodes for the line:"
set node_list [ hm_getlist nodes 1 ]
#if { ! [ Null node_list ] } {
# *linecreatefromnodes 1 0 150 5 179
#}
*createmark nodes 1 $node_list
hm_getmark nodes 1 //只有第一个node_id。恐怕 *createmark 不能这么用。
*createlistpanel nodes 1 "Select nodes for the line:"
set node_list [ hm_getlist nodes 1 ]
foreach node $node_list {
*appendmark nodes 1 $node
}
hm_getmark nodes 1
或者
*createlistpanel nodes 1 "Select nodes for the line:"
set node_list [ hm_getlist nodes 1 ]
eval *createmark nodes 1 $node_list
hm_getmark nodes 1
详见 手册 *createmark EXAMPLES 中的第三个示例。
【多看看手册的示例，一般问题都能解决。（这让我想起了javaexample这样的网站，我的mac收藏夹里有个最好的）】
{ 工作以后，通过编写tcl代码，我才开始真正触及编程学习的正确方法。就是带着目的，看示例，有需要时看看书籍，了解基础概念，足够解决自己的疑惑时就放下书继续编程。遇到问题多查api，多看示例代码片。javaapi没有示例程序，可以靠javaexample这样的网站。hypermesh的手册里有关于一个命令的各种用法示例（像 音速日语 讲解 日语语法(文法) 一样），相当全面。除了代码片，本田前辈所写的完整程序代码才是入门时候第一读的代码，了解了基础的样子。并且之前简单整理了tcl的语法，恩，简单整理。 }
学习，模仿创造，照葫芦画瓢，照猫画虎。
自己的概念体系搭建起来。技巧散点经过不断地练习和工作后，会淘汰不常用的，优先级降低。然后能自由发挥。
