! TITLE: az_nut_brg.mac (AAAV) ! !----------------------------------------------------------------------- ! Rev - 05/16/2001 D. Edwards !----------------------------------------------------------------------- ! ! This macro creates the Lower Azimuth Bearing Nut, ! ! P/N SK318A012 ! ! ! CSnba0: Cartesian mba Coordinate System ! CSnba1: Cylindrical mba Coordinate System ! CSnba2: Spherical mba Coordinate System ! ! !************************** TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Solid Model ! ! !********************* Model Assembly Preparation ********************** ! ! mod_assemb_prep ! ! /title,Nut, Lower Azimuth Bearing (SK318A012) ! ! /units,bin ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! az_nut_brg.parm ! name of parameter file ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! Keypoint Definitions from nut-brg-az.parm ! k,km+1,x1,y1,z1 ! km + 1 k,km+2,x2,y2,z2 ! km + 2 k,km+3,x3,y3,z3 ! km + 3 k,km+4,x4,y4,z4 ! km + 4 k,km+5,x5,y5,z5 ! km + 5 k,km+6,x6,y6,z6 ! km + 6 k,km+7,x7,y7,z7 ! km + 7 k,km+8,x8,y8,z8 ! km + 8 k,km+9,x9,y9,z9 ! km + 9 k,km+10,x10,y10,z10 ! km + 10 axp1=km+1 axp2=km+2 ! ! Line Definitions ! L,km+1,km+2 ! lm + 1 L,km+3,km+4 ! lm + 2 L,km+5,km+6 ! lm + 3 L,km+4,km+7 ! lm + 4 L,km+8,km+3 ! lm + 5 L,km+9,km+10 ! lm + 6 L,km+6,km+10 ! lm + 7 L,km+9,km+8 ! lm + 8 L,km+5,km+7 ! lm + 9 ldele,lm+1 create_area-lines ! ! Make a volume out the the bearing cross section ! *if,subassm_,ne,1,then /psymb,cs,1 revolve_aset,axp1,axp2,360,4 *endif finalize_model