!   TITLE:  elev_reslvr_adaptor.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   07/03/2000  J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver adaptor:
!
!               P/N SK305A013
!
!       UPPER ASSEMBLY:     CU06324017
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSra0:  Cartesian Elevation Resolver Adaptor Coordinate System
!   CSra1:  Cylindrical Elevation Resolver Adaptor Coordinate System
!   CSra2:  Spherical Elevation Resolver Adaptor Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Adaptor Body
!       3.2  Adaptor V-Block
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2           ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_reslvr_adaptor.parm            ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------------- 3.1  Adaptor Body -------------------------
!
csys,CSra0
!
k,,0,0,0
k,,0,r1,0
k,,0,r1,h1
k,,0,r2,h1
k,,0,r2,h3
!
k,,0,0,h3
!
create_area
!
create_cs,0,'CSra2_0',0,0,0,0,0,0,90
!
asel,s,area,,am
!
ara_create_part,CSra2_0,0,0.85*r2
!
lplot
!
!------------------------ 3.2  Adaptor V-Block ------------------------
!
*if,modl_num,eq,1,then
    csys,CSra0
    !
    k,,0,0,0        ! create axis rotation points
    k,,0,0,1
    !
    init_entity_num
    !
    axp1=km-1
    axp2=km
    !
    revolve_aset,axp1,axp2,360,4
    !
    nummrg,kp
    init_entity_num
    !
    elev_res_adaptor_v_block
    !
    lplot
*endif
!
finalize_model