! TITLE: elevation_resolver.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - 06/13/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the elevation resolver sub-assembly: ! ! P/N CU06324017 ! ! Parts for assembly: ! ! ELEV_RESLVR_HOUS / SK314A105 ! ELEV_RESLVR_STATOR / C550074899 ! ELEV_RESLVR_ROTOR / C551074041 ! ELEV_RESLVR_ROTOR_HUB / C307002493 ! ELEV_RESLVR_BEARING / A490A045-107 ! ELEV_RES_WASH_RETAIN_NUT / C318002252 ! ELEV_RES_BEAR_RETAIN_NUT / C318002251 ! ELEV_RESLVR_ADAPTOR / SK305A013-01 ! ! ! This is used in the AAAV assembly, end unit CU01715076. ! ! !******************************* Model Assembly *************************** ! ! !------------------- Resolver Component Cross-sections -------------------- ! ! elev_reslvr_hous,2 ! SK314A105 ! elev_reslvr_stator ! C550074899 ! elev_reslvr_rotor ! C551074041 ! elev_reslvr_rotor_hub ! C307002493 ! elev_reslvr_bearing ! A490A045-107 ! elev_res_wash_retain_nut ! C318002252 ! elev_res_bear_retain_nut ! C318002251 ! elev_reslvr_adaptor ! SK305A013-01 ! ! !------------------------ Revolve Cross-sections -------------------------- ! ! /title,Elevation Resolver / CU06324017 ! subassy_revolve,CSerh0 ! ! !----------------------------- Attach V-block ----------------------------- ! ! elev_res_adaptor_v_block ! attach V-block ! lplot ! ! !---------------------------------- Meshing ------------------------------- ! ! *if,f_mesh_,eq,1,then ! create_rotaset,am-564,c416 ! Housing create_rotaset,am-583,stator,am-584,stator,am-567,stator ! Stator create_rotaset,am-568,rotor,am-579,rotor,am-580,rotor ! Rotor create_rotaset,am-565,c416,am-569,c416,am-574,c416,am-566,el_res_b ! Hub, bearing and retainers ! rotate_volm_msh,CSerh1,0,0,5,1,2,0.2,0.2,'array' ! *endif