Hypermesh二次开发自动创建网格材料属性并赋予相应的部件

      程序实现功能：用HyperMesh所支持的Tcl/TK创建了一个脚本，根据各个已经划分好网格的部件名称，提取其中的材料、厚度信息，创建对应名称的属性并赋予相应的部件。

      程序注意事项：1.修改User Profiles,选择需要环境 ，打开文件 2. 通过File-Run-Tcl/Tk Script选择程序文件 3.所有路径上的文件夹及文件命名都必须使用英文或数字，中文不可识别 4. 如出现名称不符合规定格式的部件，程序会自动跳过，并在Command Window中有提示。

程序很简洁，能快速执行，完成批量操作，并且准确无误！

以下是程序部分：

*createmark comps 1 "all"

set compsList [hm_getmark comps 1]

# 扫描comp名称并提取信息

foreach Compid $compsList {

set compname [hm_getvalue comps id=$Compid dataname=name]