! test_rotate_volm_msh_2.mac ! ! Type 2 test: This macro tests 'rotate_volm_msh.mac' ability to assign ! material property attributes to single-part areas and/or ! volumes in an assembly. ! clear_start_new ! ! !------------------------------- Part 1 ------------------------------- ! mod_assemb_prep,1 ! /title,Part 1 /units,bin ! name='part_1' ! part name arry_nam='p1' ! parameter array name ! ct_name='ctp1cs' ! cartesian cyl_name='cylp1cs' ! cylindrical sph_name='sphp1cs' ! spherical ! et,1,shell63 et,2,solid45 ! mat_select,'c410' ! h=4 t=1 ri=1 ro=2 ! mod_coord_system,0,5,5,5,0,-90,0 ! ! csys,ctp1cs ! k,,ri,0,0 k,,ro,0,0 k,,ro,0,t k,,ro,0,h k,,ri,0,h k,,ri,0,t ! create_area a1=am ! revolve_aset,ctp1cs,180,2 ! asel,s,area,,a1 ! ! (1) (2) (3) (4) (5) (6) (7) ! ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! (8) (9) (10) (11) (12) (13) (14) ! rotate_volm_msh,ctp1cs,0,,9,1,2,0.25,0.25 ! lplot ! finalize_model ! !------------------------------- Part 2 ------------------------------- ! mod_assemb_prep ! /title,Part 1 /units,bin ! name='part_2' ! part name arry_nam='p2' ! parameter array name ! ct_name='ctp2cs' ! cartesian cyl_name='cylp2cs' ! cylindrical sph_name='sphp2cs' ! spherical ! et,1,shell63 et,2,solid45 ! mat_select,'inc718' ! parm_val,'part_1','ro','ri' parm_val,'part_1','t','h' ro=ri+1 l1=0.500 ! mod_coord_system,ctp1cs,0,0,0,0,0,0 ! ! csys,ctp2cs ! k,,ri,0,0 k,,ro,0,0 k,,ro,0,h k,,ri,0,h ! create_area a2=am ! ! *go,:scen1 !----------------------------- Scenario 1 ----------------------------------- ! Slice volume in to thin slice and thick slice. ! revolve_aset,ctp1cs,180,2 ! norm_cut_pln_ct,'z',l1 ! asel,selv,loc,y,0 asel,r,loc,x,ri,ro asel,r,loc,z,0,l1 ! ! ! (1) (2) (3) (4) (5) (6) (7) ! ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! (8) (9) (10) (11) (12) (13) (14) ! rotate_volm_msh,ctp1cs,0,,9,1,2,0.25,0.25 ! asel,selv,loc,y,0 asel,r,loc,x,ri,ro asel,r,loc,z,l1,h ! ! ! (1) (2) (3) (4) (5) (6) (7) ! ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! (8) (9) (10) (11) (12) (13) (14) ! rotate_volm_msh,ctp1cs,0,,9,1,2,0.050,0.050 ! !----------------------------------------------------------------------------- :scen1 ! ! ! *go,:scen2 !----------------------------- Scenario 2 ----------------------------------- ! Create 2 separate volume sets. ! csys,ctp2cs ! k,,ro,0,0 k,,ro+2,0,0 k,,ro+2,0,1.5*h k,,ro,0,1.5*h ! create_area a3=am ! aglue,all init_entity_num ! revolve_aset,ctp1cs,180,2 nummrg,kp init_entity_num ! vsel,s,volu,,vm-3,vm-2,1 norm_cut_pln_ct,'z',l1 ! ! asel,selv,loc,y,0 asel,r,loc,x,ri,ro+2 asel,r,loc,z,0,1.5*h ! ! ! (1) (2) (3) (4) (5) (6) (7) ! ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! (8) (9) (10) (11) (12) (13) (14) ! rotate_volm_msh,ctp1cs,0,,9,1,2,0.25,0.25 ! !----------------------------------------------------------------------------- :scen2 ! ! !*go,:scen3 !----------------------------- Scenario 3 ----------------------------------- ! Slice area before revolving into volumes. ! create_cs,0,,0,0,0,0,0,90,0 ! ara_create_part,csn+1,90,ri+l1 ! revolve_aset,ctp1cs,180,2 ! csys,ctp2cs ! asel,selv,loc,y,0 asel,r,loc,x,ri,ro asel,r,loc,z,0,l1 ! ! ! (1) (2) (3) (4) (5) (6) (7) ! ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! (8) (9) (10) (11) (12) (13) (14) ! rotate_volm_msh,ctp1cs,0,,9,1,2,0.25,0.25 ! !----------------------------------------------------------------------------- :scen3 ! ! finalize_model ! /PNUM,MAT,1 eplot :skip