!   TITLE:  gimbal_cres_mach.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   07/23/2001      J. Rinaldi
!       Rev A   05/02/2002      D. Edwards
!               Added c'bore on resolver end and face cut on torquer end.
!---------------------------------------------------------------------------
!
!   This macro creates the machining features of the CRES 410 azimuth gimbal
!   for the AAAV assembly, P/N SK400A013.
!
!   CSgim0/CSgimM0: Cartesian Gimbal Coordinate System
!   CSgim1/CSgimM1: Cylindrical Gimbal Coordinate System
!   CSgim2:         Spherical Gimbal Coordinate System
!
!
!******************************* TABLE OF CONTENTS *************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Center Hub Machining
!           3.1.1  Center Hub Top Machine
!           3.1.2  Center Hub Bores
!       3.2  Journal Bores
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_cres_mach.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
csys,CSgim0
!
create_cs,0,'CSgimM0',0,0,0,-l1,0,0,0
create_cs,0,'CSgimM1',1,0,0,0,0,0,0
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!---------------------- 3.1  Center Hub Machining ---------------------
!
!
!-------------------- 3.1.1  Center Hub Top Machine -------------------
!
csys,CSgim0
!
create_circle,dhubo/2
!
create_vol-lines,-l1
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!----------------------- 3.1.2  Center Hub Bores ----------------------
!
csys,CSgimM1
!
ang_array,4,0,270,180,90
!
radius,11,r2M,r2M,r3M,r4M,r4M,r5M,r5M,r6M,r6M,rbM,rbM
depth,12,0,d1M,d2M,d2M,d3M,d3M,d4M,d4M,d5M,d5M,d5M+1.00,d5M+1.00
!
profile_bore,3,CSgimM1
!
lplot
!
!------------------------ 3.2  Journal Bores -----------------------
!
csys,CSrotax0               ! Torquer Journal cut
!
k,,0,d9M,0
k,,0,-d9M,0
k,,2*l29,-d9M,0
k,,2*l29,d9M,0
!
create_volume,,-l17
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
!
csys,CSrotax0               ! Torquer Journal bore
!
cir_bore,,d9M,l17,0
!
csys,CSgim0                 ! Face Off Torquer Journal bore (Rev A)
!
norm_cut_pln_ct,'x',-Dx03M
!
vdele,vm-2,vm-1
!
init_entity_num
!
csys,CSelvax0               ! Resolver Journal bore
!
cir_bore,,d8M,l17,0
!
lplot
!
csys,CSelvax0               ! Resolver C'Bore (Rev A)
!
create_circle,R02M
!
create_vol-lines,-(l15-l11-Dx04M)
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot

!
!---------------- 3.3  Center-Hub Mirror-Support Cut ----------------
!
csys,CSelvax0
!
k,,dhubo/2,0,-(l15-l7-l5)
k,,-dhubo/2,0,-(l15-l7-l5)
k,,-dhubo/2,Dy01M,-(l15-l7-l5)
k,,Dx01M,Dy01M,-(l15-l7-l5)
k,,Dx01M,Dy01M-Dy02M,-(l15-l7-l5)
!
create_cs,0,,1,Dx01M,Dy01M-Dy02M,-(l15-l7-l5),0,0,0
!
k,,Dy01M,-(90-A01M),0
!
create_lines,,1
!
profile_close
!
ln_fillet,km-3,Dr01M
!
create_area-lines
!
csys,CSelvax0
!
k,,0,2*Dy01M,-(l15-l7-l5)
k,,-dhubo/2,2*Dy01M,-(l15-l7-l5)
k,,-dhubo/2,Dy01M,-(l15-l7-l5)
!
create_cs,0,,1,-Dx05M,Dy01M,-(l15-l7-l5),0,0,0
!
k,,0,0,0
k,,2*Dy01M,90+A02M,0
!
create_lines,,1
!
profile_close
!
create_area-lines
!
aadd,am-1,am
!
init_entity_num
!
create_vol-area,l5
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!------------------------- 3.4  Gyro Bores --------------------------
!
csys,CSgyro0                                        ! machine surface C'Bore
create_cs,0,'CSgf0',0,0,0,-(l15-l11-Dx02M),0,0,0    ! CS at mounting face
csys,CSgyro0
!
create_circle,R01M
!
create_vol-lines,-(l15-l11-Dx02M)
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgyro0                ! Thru Bore
!
create_circle,D02M/2
!
create_vol-lines,-1.00
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
*if,assemble,ne,1,then
    csys,CSgyro0                ! Thru Bore
    !
    create_circle,D03M/2
    !
    create_vol-lines,-(l15-l11-Dx02M)-Dz01M
    !
    vsbv,vm-1,vm,,delete,delete
    !
    init_entity_num
    !
    lplot
*endif
!
!
csys,CSgyro0                ! Center-end journal spot-face
!
create_circle,D04/2,-Dz02M-(l15-l11-Dx02M)
!
create_vol-lines,1.00
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgyro0                ! Center-end journal bore 1
!
create_circle,D04M/2,-Dz02M-(l15-l11-Dx02M)
!
create_vol-lines,-(Dz03M-Dz02M)
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgyro0                ! Center-end journal bore 2
!
create_circle,D05M/2,-Dz02M-(l15-l11-Dx02M)
!
create_vol-lines,-(Dz03M-Dz02M)-Dz04M
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgyro0                ! gyro bearing cap surface
!
k,,0,-l87,0
k,,0.100,-l87,0
k,,0.100,l87,0
k,,0,l87,0
!
create_volume,,-l40
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
finalize_model