! TITLE: assy_stub_shaft.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - 05/25/2001 D. Edwards ! Rev A 05/02/2002 D. Edwards ! Update to SKCU01715097 configuration !--------------------------------------------------------------------------- ! ! This macro creates the Stub Shaft subassembly portion of the ! Azimuth Axis assembly. None of these parts rotate except for ! the outer race of bearings. ! ! P/N SK200A046 ! ! Parts for assembly: ! ! az_brg_upper (abu) / 490A045-101 ! stub_shaft (ss) / SK340A168 ! az_retainer_upper (aru) / SK343A053 ! az_rotor_torquer (art) / SKCB06631006, 551A068 ! az_slv_brg_lower (asb) / SK375A076 ! az_brg_lower (abl) / 490A045-102 ! az_nut_brg (anb) / SK318A012 ! !----------------------- Upper Azimuth Bearing ---------------------------- ! az_brg_upper,1 ! !------------------- Stub Shaft/Rotor Subassembly ------------------------- ! stub_shaft,2 az_retainer_upper az_torq_rotor az_slv_brg_lower subassy_revolve,CSss0 *if,f_mesh_,eq,1,then ! Stub Shaft, Brg Retainer, Rotor, Lower Sleeve !create_rotaset,am-204,c416,am-207,c416,am-206,c416,am-205,c416 ! (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) asel,s,loc,x,0 asel,r,loc,y,0,1.5 rotate_volm_msh,CSsbl1,0,0,5,1,2,0.2,0.2 *endif ! !-------------------- Lower Bearing/Nut Subassembly ----------------------- ! az_brg_lower,2 az_nut_brg subassy_revolve,CSss0 *if,f_mesh_,eq,1,then create_rotaset,am-63,mat_bla,am-62,c416 rotate_volm_msh,CSbla1,0,0,5,1,2,0.2,0.2,'array' *endif /title,Stub Shaft Subassembly