hypermesh二次开发：快速建立刚度分析工况的实用技巧

#清理模型

puts "moxing my_new.tcl"

*clearmark elems 1 all

*clearmark elems 2 all

*clearmark nodes 1 all

*clearmark nodes 2 all

#----清理模型完成

#创建输入确定

#Radius_rbe3

set radius_rbe3 [hm_getfloat "Load Radius=" "please specify a radius"]

#------创建输入完成

#定义变量

#node_loc 载荷集创建

#node_id 所选点，用于创建rbe3

#set_name 用于创建RBE3的节电集合

#rbe3_name用于容纳rbe3的component

#elems_id_1所选节点附近,满足条件1的单元

#elems_id_2所选节点附近，满足条件2的单元

#elems_id_3所选节点附近，满足条件3的单元

#elems_near所选节点附近，满足所有条件的单元

#sys_id 所选节点上创建的system坐标系

#force_id 所选节点上创建的载荷ID

#step_id 载荷步名称

*createmarkpanel nodes 1 "select one node"

set node_id [hm_getmark nodes 1]

set node_id_x [hm_getvalue nodes id= $node_id dataname = x]; #得到所选节点的坐标;

set node_id_y [hm_getvalue nodes id= $node_id dataname = y];

set node_id_z [hm_getvalue nodes id= $node_id dataname = z];

set SPC "SPC"

set set_name [concat "set_" "$node_id"]; #定义所选点各entity名称

set rbe3_name [concat "rbe3_force" "$node_id"];

set sys_id_name [concat "system_" "$node_id"]

set load_name [concat "load_" "$node_id"]

set step_name [concat "step_" "$node_id"]