Hi , I have created a macro to create multiple material in hypermesh using TCL. I am able to create 3 material at a time. but if i try to create more than 3 materials hypermesh throws an error. I have attached a TCL code and Error PPT. Please help me. Thanks, Nitin Kandiyal
Unable to find an attachment - read this blog
Use this code:
variable templatefilename [hm_info templatefilename];
proc createMat {name E G Nu RHO id} \ { variable templatefilename *collectorcreate materials '$name' '' 35 *createmark materials 1 '$name' *dictionaryload materials 1 '$templatefilename' 'MAT1' *attributeupdateint materials $id 3240 1 2 0 1 *attributeupdatedouble materials $id 1 1 0 0 $E *attributeupdatedouble materials $id 2 1 0 0 $G *attributeupdatedouble materials $id 3 1 0 0 $Nu *attributeupdatedouble materials $id 4 1 0 0 $RHO *clearmark materials 1;
}
createMat Steel 54000 72000 0.36 0.0000000065 1; createMat 'Al 2024' 72000 80769.2 0.33 0.00000000785 2; createMat 'Al 6065' 54000 72000.2 0.36 0.0000000065 3; createMat 'ttl' 34000 71000.2 0.37 0.0000000067 4;
Use this code:
variable templatefilename [hm_info templatefilename];
proc createMat {name E G Nu RHO id} \
{
variable templatefilename
*collectorcreate materials '$name' '' 35
*createmark materials 1 '$name'
*dictionaryload materials 1 '$templatefilename' 'MAT1'
*attributeupdateint materials $id 3240 1 2 0 1
*attributeupdatedouble materials $id 1 1 0 0 $E
*attributeupdatedouble materials $id 2 1 0 0 $G
*attributeupdatedouble materials $id 3 1 0 0 $Nu
*attributeupdatedouble materials $id 4 1 0 0 $RHO
*clearmark materials 1;
}
createMat Steel 54000 72000 0.36 0.0000000065 1;
createMat 'Al 2024' 72000 80769.2 0.33 0.00000000785 2;
createMat 'Al 6065' 54000 72000.2 0.36 0.0000000065 3;
createMat 'ttl' 34000 71000.2 0.37 0.0000000067 4;