!   TITLE:  sniper_press_fit_shaft.mac (Lockheed)
!
!-----------------------------------------------------------------------
!       Rev -   06/11/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates and analyzes the press-fit mating shafts on the
!   Lockheed sniper project.
!
!   CSsnip0:        Cartesian Sniper Coordinate System
!   CSsnip1:        Cylindrical Sniper Coordinate System
!   CSsnip2:        Spherical Sniper 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
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
sniper_press_fit_shaft.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------------ 3.1  Shaft ----------------------------
!
csys,CSsnip0
!
k,,0,0,0
k,,D01/2,0,0
k,,D01/2,0,-3*D01/2
k,,0,0,-3*D01/2
!
create_area
!
k,,0,0,0
k,,D02/2,0,0
k,,D02/2,0,-1.5*D01/2
k,,0,0,-1.5*D01/2
!
create_lines
!
ln_fillet,km-1,2*mtr
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
revolve_aset,CSsnip0,90,1
!
k,,D01/2,-t_cut/2,-1.25*D01/2
k,,D01/2,t_cut/2,-1.25*D01/2
k,,D01/2,t_cut/2,1
k,,D01/2,-t_cut/2,1
!
create_lines
!
ln_fillet,km-2,2*mtr
!
cut_tool,D01/2
!






























*go,:skip

csys,CSsnip0
!
create_circle,D02/2
create_area-lines
!
create_circle,D01/2
create_area-lines
!
aovlap,all
!
init_entity_num
!
ara_create_part,CSsnip0,0,t_cut/2,,,0
ara_create_part,CSsnip0,0,-t_cut/2,,,0
!
asel,s,area,,am-6,am,6
extrude_aset,1.5
!
asel,s,loc,z,0
extrude_aset,-1.5
!

:skip