!   TITLE:  cm_sleeve.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   04/29/2003      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the common missile ball nut sleeve.
!
!   CSslv0:     Cartesian Ball Nut Coordinate System
!   CSslv1:     Cylindrical Ball Nut Coordinate System
!   CSslv2:     Spherical Ball Nut 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
cm_sleeve.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Sleeve Cross-Section --------------------
!
csys,CSslv0
!
k,,0,R02,0
k,,0,R03,0
k,,0,R03,Dz03
k,,0,0,Dz03
k,,0,0,Dz02
!
k,,0,R01,Dz02
k,,0,R01,Dz01
k,,0,R02,Dz01
!
create_lines
!
ln_fillet,km-2,R04
chamfer_area,1,lm-7,lm-6,Dc01
!
create_area-lines
!
lplot
!
!----------------------- 3.2  Revolve Cross-Section -------------------
!
csys,CSslv0
!
revolve_aset,CSslv0,360,4
!
vadd,all
init_entity_num
!
lplot
!
!-------------------------- 3.3  Sleeve Link End ----------------------
!
csys,CSslv0
!
k,,-Dx01/2,Dy01,Dz03
k,,-Dx01/2,Dy01,Dz04
k,,-Dx01/2,-Dy02,Dz04
k,,-Dx01/2,-Dy02,Dz03
!
create_lines
!
ksel,s,kp,,km-2,km-1,1
ln_fillet,,R05
!
create_area-lines
!
create_cs,0,,0,-Dx01/2,0.020,Dz05,0,0,90
!
create_circle,R06
create_area-lines
!
csys,CSslv0
create_cs,0,,0,-Dx01/2,-0.0827,Dz05,0,0,90
!
create_circle,R06
create_area-lines
!
csys,CSslv0
!
k,,-Dx01/2,0.020,Dz05-R06
k,,-Dx01/2,0.020,Dz05+R06
k,,-Dx01/2,-0.0827,Dz05+R06
k,,-Dx01/2,-0.0827,Dz05-R06
!
create_area
!
aadd,am-2,am-1,am
init_entity_num
!
asba,am-4,am,,delete,delete
init_entity_num
!
isolate_areas
extrude_aset,Dx01
!
vadd,all
init_entity_num
!
finalize_model