! TITLE: weight_balance.mac (AAAV) ! !----------------------------------------------------------------------- ! Rev - 06/08/2001 D. Edwards !----------------------------------------------------------------------- ! ! Azimuth axis counter balance weight at rear of gimbal. ! ! P/N SK334A002 ! ! ! CSwgt0: Cartesian balance weight Coordinate System ! CSwgt1: Cylindrical balance weight Coordinate System ! CSwgt2: Spherical balance weight Coordinate System ! ! !************************** TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Solid Model ! ! !********************* Model Assembly Preparation ********************** ! ! mod_assemb_prep,arg1,arg2,arg3 ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! weight_balance.parm ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate System >>>>>>>>>>>>>>>>>>>>> ! mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! Define the basic perimeter. See Sheet one of draw_weight_balance.pdf ! 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 ! ! Line Definitions ! L,km+1,km+2 ! lm + 1 L,km+3,km+1 ! lm + 2 L,km+4,km+5 ! lm + 3 L,km+6,km+7 ! lm + 4 L,km+2,km+7 ! lm + 5 L,km+5,km+6 ! lm + 6 L,km+3,km+4 ! lm + 7 create_area-lines ! ! Create the initial volume ! voffst,am,h init_entity_num ! ! Chamfer the lower edges ! csys,CSwgt0 create_cs,0,,0,x5,y5,-h,0,0,-90 ang_cut_pln,-45,,0.47,0.47 csys,CSwgt0 create_cs,1,,0,kp(x6,y6,-h),kp(x6,y6,0),kp(x5,y5,-h) create_cs,0,,0,0,0,0,0,90,0 ang_cut_pln,45,,0.47,-0.47 csys,CSwgt0 create_cs,1,,0,kp(x3,y3,-h),kp(x3,y3,0),kp(x4,y4,-h) create_cs,0,,0,0,0,0,0,-90,0 ang_cut_pln,45,,0.47,-0.47 vdele,vm-7,vm-1,,1 init_entity_num ! ! Cut counter sinked screw holes ! *if,f_shole,eq,1,then csys,CSwgt0 wpcsys,-1 wpoff,x6,y4,-h wprota,0,90,0 wprota,0,0,180 ! Bottom right cyl4,Dx02,Dz01,Dr01,,,,-y4 cyl4,Dx02,Dz01,Dr02,,,,-y4-Dy01 init_entity_num vadd,vm-1,vm init_entity_num ! Bottom left cyl4,Dx02+Dx01,Dz01,Dr01,,,,-y4 cyl4,Dx02+Dx01,Dz01,Dr02,,,,-y4-Dy01 init_entity_num vadd,vm-1,vm init_entity_num ! Top center cyl4,Dx02+Dx03,Dz01+Dz02,Dr01,,,,-y4 cyl4,Dx02+Dx03,Dz01+Dz02,Dr02,,,,-y4-Dy01 init_entity_num vadd,vm-1,vm init_entity_num vsel,s,volu,,vm-6,vm,3 cm,vset,volu vsel,s,volu,,vm-9 cm,vsl,volu alls vsbv,vsl,vset,,delete,delete init_entity_num lplot *endif finalize_model