! TITLE: stub_shaft.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - 11/08/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the stub shaft used in the AAAV assembly, config. C. ! ! CSss0: Cartesian Stub-Shaft Coordinate System ! CSss1: Cylindrical Stub-Shaft Coordinate System ! CSss2: Spherical Stub-Shaft Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Solid Model ! ! !************************** Model Assembly Preparation ********************** ! mod_assemb_prep,arg1,arg2,arg3 ! prepare database for assembly ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! stub_shaft.parm ! name of parameter file ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc ! create_cs,0,'CSssn0',0,0,0,0,180,180,0 ! Create for later assy ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! csys,CSss0 ! k,,0,0,0 k,,0,0,1 ! init_entity_num ! axp1=km-1 axp2=km ! k,,0,r1,0 k,,0,r2,0 k,,0,r2,l1 k,,0,r3,l1 k,,0,r3,l1+l2 ! k,,0,r4,l1+l2 k,,0,r4,l1+l3 k,,0,r5,l1+l3 ! !k,,0,r5,l1+l4-0.74 ! area boundary keypoints !k,,0,r5,l1+l4-0.74/2 ! k,,0,r5,l1+l4 k,,0,r6,l1+l4 ! k,,0,r6,l1+l4+l5 k,,0,r7,l1+l4+l5 k,,0,r7,l6 k,,0,r8,l6 k,,0,r8,l6-l7 ! k,,0,r9,l6-l7-((r8-r9)*tan(phi1*rconv)) k,,0,r9,l8+((r10-r9)*tan(phi2*rconv)) k,,0,r10,l8 k,,0,r1,l8 ! create_lines ksel,s,kp,,kp(0,r4,l1+l2) lslk *get,fmx,line,0,num,max lfillt,fmx,fmx-1,rfil2 alls ! ksel,s,kp,,kp(0,r1,l8) lslk *get,fmx,line,0,num,max lfillt,fmx,fmx-1,rfil1 ! init_entity_num ! !lcomb,lm-17,lm-1 ! init_entity_num ! isolate_lines ! create_area-lines ! ! Revolve volume ! *if,subassm_,ne,1,then isolate_areas revolve_aset,axp1,axp2,360,4 lplot *endif finalize_model