HyperMesh齿轮结构化小工具

#选择定义轴线set plane [hm_getplanepanel "Please define a axle"]set plane [regsub -all "{" $plane " "]set plane [regsub -all "}" $plane " "]set s2 " "string trim $plane $s2*createplane 1 [lindex $plane 0] [lindex $plane 1] [lindex $plane 2] [lindex $plane 3] [lindex $plane 4] [lindex $plane 5]# 选择单齿单元*createmarkpanel elems 1 "Please select the elements of a tooth."set es [hm_getmark elems 1]puts "The nodes selected are $es."# 输入齿轮齿数set teeth [hm_getint "teeth=" "Please specify the number of teeth." ]# 计算每次旋转的角度set angle [expr 360./$teeth]for { set a 1}  {$a < $teeth} {incr a} {#*duplicatemark elements 1 0*duplicateentities elems 1 2 destcomponent=2*rotatemark elements 1 1 [expr $angle]puts $a}