!   TITLE:  gimbal_cres_cast.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   07/23/2001      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the CRES 410 azimuth axis gimbal casting for the AAAV
!   assembly.
!
!   CSgim0: Cartesian Gimbal Coordinate System
!   CSgim1: 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 Volume
!           3.1.1  Center Circular Volume
!           3.1.2  Center Square Volume
!               3.1.2.1  Remove Center Pocket
!       3.2  Torquer Side Volumes
!           3.2.1  Left Wing Volume
!           3.2.2  Torquer Elevation Axis Journal
!               3.2.2.1  Journal Volume
!           3.2.3  Torquer Wing Pocket
!       3.3  Resolver Side Volumes
!           3.3.1  Resolver Wing Volume
!               3.3.1.1  Resolver Wing Planform
!           3.3.2  Resolver Elevation Axis Journal
!               3.3.2.1  Resolver Wing Pocket
!       3.4  Torquer Side Support Web
!       3.5  Resolver Side Support Web
!       3.6  End Web Cuts
!           3.6.1  Torquer End Web Cuts
!               3.6.1.1  Outer Edge Cut
!               3.6.1.2  Inner/Front Edge Cut
!               3.6.1.3  Front Thru Cut
!               3.6.1.4  Inner/Rear Edge Cut
!               3.6.1.5  Rear Thru Cut
!       3.7  Circuit Board Housing
!       3.8  Mid-Section Web Contour
!           3.8.1  Mid-Section Contour Cut
!           3.8.2  Mid-Section Support Web
!       3.9  Counter-Weight Mount Volume
!           3.9.1  Counter-Weight Mount Hub
!           3.9.2  Counter-Weight Mount Hub Cut
!       3.10  Combine Gimbal Volumes
!       3.11  Gyro Mount Hub Volume
!       3.12  Flex Tape Brackets
!       3.13  Rear Support Beam
!       3.14  Cast Center Hub Bore
!       3.15  Cast Front Oval Cuts
!       3.16  Elevation Axis Stops
!           3.16.1  Lower Stop
!           3.16.2  Upper Stop
!       3.17  Band Drive Slots
!       3.18  Torquer Journal Volume Removal
!           3.18.1  Top Volume Removal
!           3.18.2  Bottom Volume Removal
!       3.19  Torquer Journal Front Fillet
!       3.20  Top Surface Extended Stock
!       3.21  Additional Casting Stock
!           3.21.1  Resolver End
!           3.21.2  Torquer End
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_cres_cast.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Center Hub Volume ---------------------
!
!
!------------------- 3.1.1  Center Circular Volume ------------------
!
csys,CSgim0
!
k,,0,0,0
K,,dhubo/2,0,0
K,,dhubo/2,0,-(l1+l2)
K,,Dx02,0,-(Dz02+l1)
K,,Dx03,0,-(Dz03+l1)
!
K,,Dx03,0,-(Dz04+l1)
K,,Dx04,0,-(Dz04+l1)
K,,Dx04,0,-(l4+l1)
k,,0,0,-(l4+l1)
!
create_lines
!
ln_fillet,km-4,Rf01
ln_fillet,km-4,Rf02
ln_fillet,km-7,Rf03
!
create_area-lines
!
asel,s,area,,am
!
revolve_aset,km-14,km-6,360,2
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.1.2  Center Square Volume -------------------
!
csys,CSgim0
!
k,,-(l11-l7),-(l6-(l9+l10)),-l1
k,,(l5-(l11-l7)),-(l6-(l9+l10)),-l1
k,,(l5-(l11-l7)),dhubo/2,-l1
k,,-(l11-l7),dhubo/2,-l1
!
create_volume,,-l2
!
a1=a_base
!
lplot
!
!------------------- 3.1.2.1  Remove Center Pocket ------------------
!
asel,selv,area,,a1+1
!
pocket_cut,l27,,,'normal',,,l2-l28,
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.2  Torquer Side Volumes ---------------------
!
!
!--------------------- 3.2.1  Left Wing Volume ----------------------
!
csys,CSgim0
!
k,,-(l11-l7),-(l6-(l9+l10)),-l1
k,,-(l11-l7),dhubo/2,-l1
k,,-l11,dhubo/2,-(l8+l1)
k,,-l11,-(l6-(l9+l10)),-(l8+l1)
!
create_area
a1=am
!
k,,-(l11-l7),dhubo/2,0
k,,-l11,dhubo/2,0
k,,-l11,((dhubo/2)-(l7*tan(phi1*rconv))),0
!
create_volume,,-1.2*(l8+l1)
!
asbv,a1,vm,,delete,delete
!
init_entity_num
!
csys,CSgim0
!
k,,-(l11-l7),-(l6-(l9+l10)),-l1
k,,-(l11-l7),-(l6-(l9+l10)),-(l1+l2)
!
create_lines,,1
drgl_=lm
!
vdrag,am,,,,,,drgl_,
ldele,drgl_,,,1
!
init_entity_num
!
lplot
!
!--------------- 3.2.2  Torquer Elevation Axis Journal --------------
!
!
!---------------------- 3.2.2.1  Journal Volume ---------------------
!
csys,CSgim0
!
create_cs,0,'CSelvax0',0,(l15-l11),-(l14-l10),-(l1+l12),0,90,90
!
create_cs,0,'CSelvax1',1,0,0,0,0,0,0
!
create_cs,0,'CSg_trq0',0,0,0,-l15,0,0,180
!
create_cs,0,'CSg_trq1',1,0,0,0,0,0,0
!
create_cs,0,'CSrotax0',0,0,0,0,-A03,0,0 ! rotated axis C.S.
!
csys,CSrotax0
!
k,,l29,l16,0
k,,l29,-3*Dtorqj,0
!
k,,l29,l16,0
k,,-3*Dtorqj,l16,0
!
csys,CSg_trq0
!
k,,3*Dtorqj,l12,0
k,,-(l14+l9),l12,0
!
ln_series
!
k,,-(l14+l92),l12,0
k,,-(l14+l92),l12-l22+l26+l24,0
k,,-(l14+l25+l92),l12-l22+l26+l24,0
k,,-(l14+l25+l92),l12-l22+l26,0
k,,-(l14+l92),l12-l22+l26,0
!
k,,-(l14+l92),l12-l22,0
!
create_lines,,1
!
create_cs,0,,1,-(l14+l92),l12-l22,0,0,0,0
!
k,,0,0,0
k,,3*Dtorqj,0,0
!
create_lines,,1
!
profile_close
!
ksel,s,kp,,km-8,km-5,3
ln_fillet,,rfil
!
create_area-lines
!
csys,CSrotax0
!
create_circle,Dtorqj/2
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
isolate_areas
!
extrude_aset,-l17
!
vadd,vm-1,vm
!
init_entity_num
!
vsel,s,volu,,vm
ar_plane_cut,am-5
!
vdele,vm-1,,,1
!
init_entity_num
!
csys,CSgim0
create_cs,0,'CSLtop1',1,-(l11-l7),-(l6-(l9+l10)),-l1,0,0,-((atan(l8/l7))*dconv)
!
asel,s,loc,z,0
!
aadd,all
!
init_entity_num
!
csys,CSgim0
asel,s,loc,x,-l11
!
aadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.2.3  Torquer Wing Pocket --------------------
!
csys,CSgim0
philtwng=(atan(l8/l7))*dconv
create_cs,0,'CSLbot0',0,-(l11-l7),-(l6-(l9+l10)),-(l1+l2),0,0,-philtwng
!
parl_lines,CSLbot0,'l',wt/2,lm-92,,,,4          ! ln 156
parl_lines,CSLbot0,'b',7*wt,lm-21               ! ln 227
parl_lines,CSLbot0,'r',wt,lm-20                 ! ln 228
parl_lines,CSLbot0,'t',2*wt,lm-22               ! ln 226
!
profile_close
!
create_area-lines
!
isolate_areas
featr_set,2,am
!
get_min_entity
k1=k_min
!
csys,CSgim0
!
k,,kx(k1),ky(k1),kz(k1)
k,,kx(k1),ky(k1),kz(k1)+(l2-l91)
!
ln_series
!
vdrag,am,,,,,,lm,
ldele,lm,,,1
!
init_entity_num
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!--------------------- 3.3  Resolver Side Volumes -------------------
!
!
!-------------------- 3.3.1  Resolver Wing Volume -------------------
!
csys,CSgim0
!
k,,l5+l7-l11,dhubo/2,-l1
k,,l5+l7-l11,(l9+l10)-l6,-l1
!
create_cs,0,'CSrtwng1',1,l5+l7-l11,l10+l9-l6,-l1,0,90,0
!
phirtwng=(atan(l30/(l15-(l5+l7))))*dconv
!
k,,l15-l11,-phirtwng,0
k,,l15-l11,-phirtwng,-l6
!
create_area
!
k,,l2,270,0
!
init_entity_num
!
lstr,km,km-3
!
init_entity_num
!
vdrag,am,,,,,,lm,
!
isolate_lines
!
ldele,all,,,1
!
init_entity_num
!
lplot
!
!----------------- 3.3.1.1  Resolver Wing Planform ------------------
!
csys,CSgim0
!
x1=(tan(phi5*rconv))*(l15-(l5+l7)-l40)
x2=(tan(phi4*rconv))*(l15-(l5+l7)-l40)
!
k,,l5+l7-l11,1.1*(dhubo/2),0
k,,l5+l7-l11,dhubo/2,0
k,,l15-l11-l40,(dhubo/2)-x1,0
k,,l15-l11,(dhubo/2)-x1,0
k,,l15-l11,l9+l10-l6+x2,0
!
k,,l15-l11-l40,l9+l10-l6+x2,0
k,,l5+l7-l11,l10+l9-l6,0
k,,l5+l7-l11,1.1*(l10+l9-l6),0
k,,1.5*(l15-l11),1.1*(l10+l9-l6),0
k,,1.5*(l15-l11),1.1*(dhubo/2),0
!
cut_tool,5*l8,vm
!
lplot
!
!-------------- 3.3.2  Resolver Elevation Axis Journal --------------
!
csys,CSelvax0
!
create_arcs,Rresj,0,,2,90,270
create_arcs,Rresj,0,,1,270,270+phi7
!
k,,-Rresj,Rresj,0
k,,l14-l31,Rresj,0
k,,l14-l31,-(l36-l12),0
k,,l14-l31-l39,-(l36-l12),0
!
create_lines,,1
!
create_cs,0,,1,l14-l31-l39,-(l36-l12),0,0,0,0
!
k,,0,0,0
k,,Rresj,90+phi7+20,0
!
csys,CSelvax0
!
create_cs,0,,0,0,0,0,phi7,0,0
!
k,,-Rresj,-Rresj,0
k,,Rresj,-Rresj,0
!
ln_series
!
extend,,km,0.5
!
profile_close
!
ln_fillet,km,R08
!
create_vol-lines,-l40
!
csys,CSelvax0
!
create_cs,0,'CSgyro0',0,l14-l86,l12-l87,0,0,0,0
!
create_circle,RgyroC
create_area-lines
!
csys,CSelvax0
!
create_circle,Dresj/2
!
cut_tool,l40,vm
!
vadd,vm-4,vm
!
init_entity_num
!
csys,CSelvax0
asel,s,loc,z,0
!
aadd,all
!
init_entity_num
!
lplot
!
!------------------- 3.3.2.1  Resolver Wing Pocket ------------------
!
csys,CSgim0
create_cs,0,'CSRbot0',0,-l11+l7+l5,-(l6-(l9+l10)),-(l1+l2),0,0,phirtwng
!
parl_lines,CSRbot0,'r',wt/2,lm-134,,,,4         ! ln 279
parl_lines,CSRbot0,'t',wt,lm-92                 ! ln 321
parl_lines,CSRbot0,'l',wt,lm-15                 ! ln 398
parl_lines,CSRbot0,'b',8*wt,lm-95               ! ln 318
!
profile_close
!
create_area-lines
!
isolate_areas
featr_set,2,am
!
get_min_entity
k1=k_min
!
csys,CSgim0
!
k,,kx(k1),ky(k1),kz(k1)
k,,kx(k1),ky(k1),kz(k1)+(l2-l91)
!
ln_series
!
vdrag,am,,,,,,lm,
ldele,lm,,,1
!
init_entity_num
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!------------------ 3.4  Torquer Side Support Web -------------------
!
csys,CSgim0
!
create_cs,0,'CSLweb10',0,-rb,l10,-(l51+l1),0,90,90
!
k,,-w_web,-(l50-l51)-l105,0
k,,0,-(l50-l51)-l105,0
k,,0,0,0
k,,-3*l49,0,0
!
create_lines,,1
!
k,,-l88,0.01,0
k,,-l88,l51,0
k,,-(l88+w_web),l51,0
!
create_lines,,1
!
create_cs,0,'CSLweb20',0,-l49,-(l50-l51),0,90-phi8L,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8L)*rconv),0
!
ln_series
!
isolate_lines
profile_lines,km-7,km-2
!
csys,CSLweb10
!
k,,-(l88+w_web),l51,0
k,,-(l88+w_web),0.01,0
!
csys,CSLweb20
!
k,,0,l50/cos((90-phi8L)*rconv),0
k,,0,0,0
!
ln_series
!
csys,CSLweb10
!
k,,-l88,-w_web,0
k,,-w_web,-w_web,0
k,,-w_web,-(l50-l51)-l105,0
!
create_lines,,1
!
profile_close
!
ksel,s,kp,,km-9,km-1,9-1
ln_fillet,,2*rfil2
!
ksel,s,kp,,km-14,km-4,14-4
ln_fillet,,rfil2
!
ksel,s,kp,,km-25,km-11,25-11
ln_fillet,,rfil6
!
create_vol-lines,-(l11-l17-rb)
!
vadd,vm-11,vm
!
init_entity_num
!
vsel,s,volu,,vm
ar_plane_cut,am-2
!
csys,CSLtop1
create_cs,0,,0,0,0,0,0,0,0
!
vsel,selv,loc,z,0,10
vdele,all,,,1
!
init_entity_num
!
asel,selv,loc,z,0
aadd,all
!
init_entity_num
!
lplot
!
!------------------ 3.5  Resolver Side Support Web ------------------
!
csys,CSgim0
!
create_cs,0,'CSRweb10',0,rb,l10,-(l56+l1)-l117,0,90,90
!
k,,-w_web,-(l50-l56)-l105+l117,0
k,,0,-(l50-l56)-l105+l117,0
k,,0,0,0
k,,-3*l90,0,0
!
create_lines,,1
!
k,,-l89,0.01,0
k,,-l89,l56+l117,0
k,,-(l89+w_web),l56+l117,0
!
create_lines,,1
!
create_cs,0,'CSRweb20',0,-l90,-(l50-l56)+l117,0,90-phi8R,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8R)*rconv),0
!
ln_series
!
isolate_lines
profile_lines,km-8,km-2
!
csys,CSRweb10
!
k,,-(l89+w_web),l56+l117,0
k,,-(l89+w_web),0.01,0
!
csys,CSRweb20
!
k,,0,l50/cos((90-phi8R)*rconv),0
k,,0,0,0
!
ln_series
!
csys,CSRweb10
!
k,,-l89,-w_web,0
k,,-w_web,-w_web,0
k,,-w_web,-(l50-l56)-l105+l117,0
!
create_lines,,1
!
isolate_lines
profile_close
!
ksel,s,kp,,km-9,km-1,9-1
ln_fillet,,2*rfil2
!
ksel,s,kp,,km-14,km-4,14-4
ln_fillet,,rfil2
!
ksel,s,kp,,km-25,km-11,25-11
ln_fillet,,rfil6
!
create_vol-lines,l15-l11-rb-l40
!
vadd,vm-5,vm
!
init_entity_num
!
vsel,s,volu,,vm
ar_plane_cut,am-2
!
csys,CSRTwng1
create_cs,0,,0,0,0,0,-phirtwng,0,0
!
vsel,selv,loc,y,0,10
vdele,all,,,1
!
init_entity_num
!
asel,selv,loc,y,0
aadd,all
!
init_entity_num
!
lplot
!
!------------------------- 3.6  End Web Cuts ------------------------
!
!
!-------------------- 3.6.1  Torquer End Web Cuts -------------------
!
!
!----------------------- 3.6.1.1  Outer Edge Cut --------------------
!
csys,CSrotax0
!
asel,s,loc,z,0
get_max_entity
featr_set,2,am
!
ln_seg
!
create_arcs,D01/2,0,,2,90,270
!
parl_lines,CSg_trq0,'b',l93,lm-413,,,,6         ! ln 247
parl_lines,CSg_trq0,'l',l95,lm-473              ! ln 187
parl_lines,CSg_trq0,'l',l95,lm-472              ! ln 188
parl_lines,CSg_trq0,'l',l93,lm-480              ! ln 180
parl_lines,CSg_trq0,'r',l94,lm-415,7            ! ln 245
!
parl_lines,CSg_trq0,'b',l96,lm-506              ! ln 154
!
profile_close
!
isolate_lines
ksll,s
ksel,u,kp,,km-26
!
ln_fillet,,rfil7
!
create_area-lines
a1=am
!
hole_pattern,CSg_trq1,R01,0,,60,90+45-60,120,D02
!
hole_pattern,CSg_trq1,R01,0,1,,120,360,D02
!
csys,CSg_trq1
!
k,,(D01+D02)/2,120,0
k,,(D01+D02)/2,120+15,0
k,,(D01-D02)/2,120+15,0
k,,(D01-D02)/2,120,0
!
create_area,1
!
aadd,am,am-1,am-3
!
init_entity_num
!
isolate_areas
asel,u,area,,a1
cm,aset1,area
!
init_entity_num
!
asba,a1,aset1,,delete,delete
!
init_entity_num
!
cut_tool,(l17-l118)/2,vm-4
!
lplot
!
!------------------ 3.6.1.2  Inner/Front Edge Cut -------------------
!
csys,CSrotax0
!
create_arcs,D01/2,-l17,,2,90,270
!
parl_lines,CSg_trq0,'l',l95,lm-592,,,,8         ! ln 204
parl_lines,CSg_trq0,'b',l94,lm-548              ! ln 248
parl_lines,CSg_trq0,'b',l93,lm-257,7            ! ln 539
parl_lines,CSg_trq0,'r',l96/2,lm-315,15         ! ln 481
parl_lines,CSg_trq0,'b',l94,lm-313,5            ! ln 483
!
parl_lines,CSg_trq0,'r',l94,lm-260,4            ! ln 536
parl_lines,CSg_trq0,'r',l94,lm-258              ! ln 538
parl_lines,CSg_trq0,'l',l92,lm-597              ! ln 199
!
profile_close
!
isolate_lines
ksll,s
ksel,u,kp,,km-34
!
ln_fillet,,rfil7
!
cut_tool,(l17-l118)/2,vm,-1
!
lplot
!
!---------------------- 3.6.1.3  Front Thru Cut ---------------------
!
csys,CSrotax0
!
create_arcs,R01+(D02/2)+l96,1,,1,200,270
!
parl_lines,CSg_trq0,'l',0.150,lm-195,,1,,2          ! ln# 685
parl_lines,CSg_trq0,'t',0.150,lm-194,5,1            ! ln# 686
trim,,km-1,0.760
parl_lines,CSg_trq0,'r',0.150,lm-403,6,1            ! ln# 481
!
profile_close
!
ln_fillet,-1,rfil7
!
cut_tool,3.00,vm,-1
!
lplot
!
!-------------------- 3.6.1.4  Inner/Rear Edge Cut ------------------
!
csys,CSg_trq0
!
parl_lines,CSg_trq0,'b',l94,lm-399,4,,,4        ! ln 542
parl_lines,CSg_trq0,'l',l94,lm-466,3            ! ln 475
parl_lines,CSg_trq0,'t',l94,lm-468,5            ! ln 473
parl_lines,CSg_trq0,'l',l94,lm-695              ! ln 246
!
profile_close
!
ln_fillet,-1,rfil7
!
cut_tool,(l17-0.200)/2,vm
!
lplot
!
!----------------------- 3.6.1.5  Rear Thru Cut ---------------------
!
csys,CSg_trq0
!
parl_lines,CSg_trq0,'b',l96,lm-4,,,,4           ! 982
parl_lines,CSg_trq0,'r',5*l96,lm-2              ! 984
parl_lines,CSg_trq0,'t',1*l96,lm-7              ! 979
parl_lines,CSg_trq0,'l',2*l96,lm-22             ! 964
!
profile_close
!
ln_fillet,-1,rfil7
!
cut_tool,l17,vm,-1
!
lplot
!
!-------------------- 3.7  Circuit Board Housing --------------------
!
csys,CSgim0
!
create_cs,0,'CScbrd0',0,-l52-(Dx08/2),l10,-(l51+l1)+(Dy05/2),0,90,180
!
k,,0,0,0
k,,(Dx08/2)+Dcbw,0,0
k,,(Dx08/2)+Dcbw,(Dy05/2)+Dcbw,0
k,,0,(Dy05/2)+Dcbw,0
!
create_area
!
k,,0,0,0
k,,(Dx08/2),0,0
k,,(Dx08/2),(Dy05/2),0
k,,0,(Dy05/2),0
!
create_area
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
create_cs,0,,0,(Dx08/2)+Dcbw-D06,(Dy05/2)+Dcbw-D06,0,0,0,0
!
create_circle,D06,,,3,45
!
create_area-lines
!
aadd,am-1,am
!
init_entity_num
!
csys,CScbrd0
create_cs,0,'CScbrd20',0,Dx09/2,0,0,0,0,0
!
create_circle,R06
!
create_area-lines
!
k,,0,R06/2,0
k,,0,-R06/2,0
k,,(Dx08/2)-(Dx09/2),-R06/2,0
k,,(Dx08/2)-(Dx09/2),R06/2,0
!
create_area
!
isolate_areas
!
aadd,all
!
init_entity_num
!
isolate_areas
!
ara_create_part,CScbrd0,0,0
!
isolate_areas
asel,r,loc,y,-10,0
!
adele,all,,,1
!
init_entity_num
!
isolate_areas
adele,all
!
init_entity_num
!
ksel,s,kp,,km-10,km-9,1
ksel,a,kp,,km-1
ln_fillet,,R07
!
ksel,s,kp,,km-25
ln_fillet,,D06
!
create_area-lines
!
arsym,y,am,,,,1,0
init_entity_num
!
arsym,x,am-1,am,1,,1,0
!
isolate_areas
aadd,all
!
init_entity_num
!
isolate_areas
lsla,s
ln_seg
!
isolate_areas
extrude_aset,-dhubo
!
lplot
!
!
!
csys,CSLweb10
!
k,,0,-(l50-l51)-l105,0
k,,0,0,0
k,,-3*l49,0,0
!
create_lines,,1
!
k,,-l88,0.01,0
k,,-l88,l51,0
!
csys,CSLweb20
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8L)*rconv),0
!
ln_series
!
isolate_lines
profile_lines,km-6,km-2
!
ksel,s,kp,,km-1,km
ln_fillet,,rfil2
!
ksel,s,kp,,km-11
ln_fillet,,rfil6
!
csys,CSgim0
!
isolate_lines
cm,lset1,line
ksll,s
get_max_entity
!
k,,kx(km),ky(km),kz(km)
k,,-l11,ky(km),kz(km)
!
ln_series
l_num=lm
!
adrag,lset1,,,,,,l_num
ldele,l_num,,,1
!
isolate_areas
cm,aset1,area
!
init_entity_num
!
vsba,vm,aset1,,delete,delete
!
init_entity_num
!
vdele,vm,,,1
!
init_entity_num
!
vsel,s,volu,,vm-2,vm,2
!
vadd,all
!
init_entity_num
!
csys,CScbrd0
!
k,,(Dx08/2)+Dcbw,-(Dy05/2),0
k,,-((Dx08/2)+Dcbw),-(Dy05/2),0
k,,-((Dx08/2)+Dcbw),-((Dy05/2)+rfil6),0
k,,(Dx08/2)+Dcbw,-((Dy05/2)+rfil6),0
!
create_volume,,-1.00
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!------------------- 3.8  Mid-Section Web Contour -------------------
!
!
!------------------ 3.8.1  Mid-Section Contour Cut ------------------
!
csys,CSgim0
!
k,,-l52,l9+l10,-(l4+l1)+l97
k,,l52-l101,l9+l10,-(l4+l1)+l97
k,,l52-l101,l9+l10,-(l50+l1)-1.00
k,,-l52,l9+l10,-(l50+l1)-1.00
!
create_lines
!
ln_fillet,-1,R05
!
vsel,u,volu,,vm-40
cm,vset1,volu
!
cut_tool,l6,vset1
!
lplot
!
!------------------ 3.8.2  Mid-Section Support Web ------------------
!
csys,CSgim0
!
k,,-l52,l10,-(l4+l1)+l97
k,,0,l10,-(l4+l1)+l97
k,,l52-l101,l10,-(l4+l1)+l97
k,,l52-l101,l10,-(l50+l1)-l105
k,,l52-l101-l97,l10,-(l50+l1)-l105
!
k,,l52-l101-l97,l10,-(l4+l1)
k,,0,l10,-(l4+l1)
k,,-l52+l97,l10,-(l4+l1)
k,,-l52+l97,l10,-(l50+l1)-l105
k,,-l52,l10,-(l50+l1)-l105
!
create_lines
!
isolate_lines
ksll,s
ksel,r,kp,,km-9,km-7,9-7
ln_fillet,,R05
!
isolate_lines
ksll,s
ksel,r,kp,,km-8,km-6,8-6
ln_fillet,,R05-l97
!
create_vol-lines,-l6
!
vsel,s,volu,,vm
!
csys,CSgim0
norm_cut_pln_ct,'x',0
!
csys,CSLweb20
vsel,s,volu,,vm-1
norm_cut_pln_ct,'x',0
!
csys,CSRweb20
vsel,s,volu,,vm-2
norm_cut_pln_ct,'x',0
!
vdele,vm-2,vm-1,1,1
!
init_entity_num
!
lplot
!
!----------------- 3.9  Counter-Weight Mount Volume -----------------
!
!
!------------------ 3.9.1  Counter-Weight Mount Hub -----------------
!
csys,CSgim0
!
create_cs,0,'CSc_wt0',0,0,l98,-l62,0,90,180
!
sf=0.50
!
k,,0,-sf*D03/2,0
k,,l61,-sf*D03/2,0
k,,l61,sf*D03/2,0
k,,sf*D03/2,sf*D03/2,0
k,,sf*D03/2,l62-l63,0
!
k,,-sf*D03/2,l62-l63,0
k,,-sf*D03/2,sf*D03/2,0
k,,-l61,sf*D03/2,0
k,,-l61,-sf*D03/2,0
!
create_lines
!
isolate_lines
ksll,s
!
ksel,r,kp,,km-5,km-2,5-2
!
ln_fillet,,D03/4
!
create_area-lines
!
!
create_cs,0,,0,l61,0,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
!
csys,CSc_wt0
create_cs,0,,0,-l61,0,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
!
csys,CSc_wt0
create_cs,0,,0,0,l62-l63,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
isolate_areas
!
aadd,all
!
init_entity_num
!
isolate_areas
!
extrude_aset,-l6
!
!
csys,CSc_wt0
!
create_cs,0,,0,l61,0,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
!
csys,CSc_wt0
create_cs,0,,0,-l61,0,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
!
csys,CSc_wt0
create_cs,0,,0,0,l62-l63,0,0,0,0
!
create_circle,D03/2
create_area-lines
!
isolate_areas
!
extrude_aset,l99
!
init_entity_num
!
vsel,s,volu,,vm-3,vm
vadd,all
!
init_entity_num
!
csys,CSgim0
vsel,s,volu,,vm
norm_cut_pln_ct,'x',0
!
lplot
!
!---------------- 3.9.2  Counter-Weight Mount Hub Cut ---------------
!
csys,CSLweb10
!
k,,-l88,0.01,-l7
k,,-l88,(l51+l1),-l7
!
csys,CSLweb20
!
k,,w_web,0,-l7
k,,w_web,l50/cos((90-phi8L)*rconv),-l7
!
ln_series
!
isolate_lines
profile_lines,km-2,km-1
!
ln_fillet,km,2*rfil2
!
isolate_lines
cm,lset1,line
!
init_entity_num
!
vsel,s,volu,,vm
cmsel,s,lset1
ln_profile_cut
!
lplot
!
!
!
csys,CSRweb10
!
k,,-l89,0.01,l7
k,,-l89,l56,l7
!
csys,CSRweb20
!
k,,w_web,0,l7
k,,w_web,l50/cos((90-phi8R)*rconv),l7
!
ln_series
!
isolate_lines
profile_lines,km-2,km-1
!
ln_fillet,km,2*rfil2
!
isolate_lines
cm,lset1,line
!
init_entity_num
!
vsel,s,volu,,vm-3
cmsel,s,lset1
ln_profile_cut
!
lplot
!
!
vdele,vm-3,vm-1,2,1
!
init_entity_num
!
lplot
!
!-------------------- 3.10  Combine Gimbal Volumes ------------------
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.11  Gyro Mount Hub Volume -------------------
!
csys,CSgyro0
!
create_cs,0,'CSgyroh0',0,0,0,-(l15-l11)+l100,0,0,0
!
create_circle,D04/2
!
create_vol-lines,-l102
!
lplot
!
!
csys,CSgim0
!
k,,l52-l101-l97,l10+2.00,-(l50+l1)-1.00
k,,l52-l101-l97,l10+2.00,-(l4+l1)
k,,-l52+l97,l10+2.00,-(l4+l1)
k,,-l52+l97,l10+2.00,-(l50+l1)-1.00
!
create_lines
!
ln_fillet,-1,R05-l97
!
cut_tool,10,vm,-1
!
lplot
!
!
csys,CSgim0
!
k,,l52-l101-l97+0.5*l97,l10,-(l50+l1)-1.00
k,,l52-l101-l97+0.5*l97,l10,-(l4+l1)+0.5*l97
k,,-l52+l97-0.5*l97,l10,-(l4+l1)+0.5*l97
k,,-l52+l97-0.5*l97,l10,-(l50+l1)-1.00
!
create_lines
!
ln_fillet,-1,R05-l97+0.5*l97
!
cut_tool,10,vm,-1
!
vadd,all
!
init_entity_num
!
lplot
!
!--------------------- 3.12  Flex Tape Brackets ---------------------
!
csys,CSgim0
!
create_cs,0,'CSLftb0',0,-(l11-l103),l10,-l50-l1,0,90,180
!
k,,0,-1.00,0
k,,l103-l17,-1.00,0
k,,l103-l17,(l50-l51),0
k,,0,(l50-l51),0
!
cut_tool,w_web+rfil6,vm
!
lplot
!
!
csys,CSgim0
!
create_cs,0,'CSRftb0',0,l15-l11-l104,l10,-l50-l1,0,90,180
!
k,,0,-1.00,0
k,,-(l104-l40),-1.00,0
k,,-(l104-l40),(l50-l51),0
k,,0,(l50-l51),0
!
cut_tool,w_web+rfil6,vm,-1
!
lplot
!
!---------------------- 3.13  Rear Support Beam ---------------------
!
csys,CSgim0
!
asel,s,loc,z,-(l1+l2),-l1
asel,r,loc,y,dhubo/2-l27
asel,r,loc,x,-(l11-l7),l5-(l11-l7)
!
extrude_aset,0.5
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.14  Cast Center Hub Bore --------------------
!
csys,CSgim0
!
k,,0,0,0
K,,0,-Dy02,0
K,,0,-Dy02,-Dz05
K,,0,-Dy03,-Dz06
K,,0,-Dy04,-Dz06
K,,0,-Dy04,-(l4+l1)
!
k,,0,0,-(l4+l1)
!
create_area
v1=vm
!
isolate_areas
revolve_aset,km,km-6,360,4
!
vadd,vm-3,vm-2,vm-1,vm
!
init_entity_num
!
vsbv,v1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!--------------------- 3.15  Cast Front Oval Cuts -------------------
!
csys,CSgim0
!
create_cs,0,'CSLoval0',0,l17-l11+((l7-l17)/2),l9+l10-l6+4*l28,0,0,0,0
!
oval_area,CSLoval0,w_ovl,0.60*(l7-l17)
!
cut_tool,l50,vm
!
lplot
!
!--------------------- 3.16  Elevation Axis Stops -------------------
!
!
!------------------------- 3.16.1  Lower Stop -----------------------
!
csys,CSgim0
!
create_cs,0,'CSBstp0',0,-l108,-l106,-l1-l107,0,90+A01,0
!
create_circle,D05/2
!
create_area-lines
!
isolate_areas
extrude_aset,-1
!
csys,CSLweb20
vsel,s,volu,,vm
norm_cut_pln_ct,'x',0
!
vdele,vm,,,1
!
vadd,all
!
init_entity_num
!
lplot
!
!------------------------- 3.16.2  Upper Stop -----------------------
!
csys,CSgim0
!
create_cs,0,'CSTstp0',0,-l111,-l109,-l1-l110,0,90+A02,0
!
create_circle,D05/2
!
create_area-lines
!
isolate_areas
extrude_aset,-1
!
csys,CSgim0
vsel,s,volu,,vm
norm_cut_pln_ct,'y',-0.385
!
vdele,vm,,,1
!
vadd,all
!
init_entity_num
!
lplot
!
!----------------------- 3.17  Band Drive Slots ---------------------
!
csys,CSRWEB20
!
create_cs,0,'CSband0',0,0,0,(l15-l11)-rb-l114,0,0,0
!
k,,w_web+0.100,l112+l115,0
k,,w_web+0.100,l112+l115,l114-l40
k,,w_web+0.100,l112-l115,l114-l40
k,,w_web+0.100,l112-l115,0
!
create_area
!
k,,w_web+0.100,l113+l115,0
k,,w_web+0.100,l113+l115,l114-l40
k,,w_web+0.100,l113-l115,l114-l40
k,,w_web+0.100,l113-l115,0
!
cut_tool,2*w_web+0.100,vm
!
lplot
!
!---------------- 3.18  Torquer Journal Volume Removal --------------
!
!
!--------------------- 3.18.1  Top Volume Removal -------------------
!
csys,CSg_trq0
!
create_cs,0,,0,-(l14+l92),l12,(l17-l118)/2,0,-90,0
!
oval_area,csn+1,2*((l17-l118)/2),4.00
!
cut_tool,l51,vm
!
lplot
!
!-------------------- 3.18.2  Bottom Volume Removal -----------------
!
csys,CSg_trq0
!
create_cs,0,,0,-(l14+l92)+1.00,l12-l22,(l17-l118)/2,0,-90,0
!
oval_area,csn+1,1.8*((l17-l118)/2),1.30
!
cut_tool,1.00,vm,-1
!
lplot
!
!---------------- 3.19  Torquer Journal Front Fillet ----------------
!
csys,CSLtop1
create_cs,0,'CSLtop0',0,0,0,0,0,0,0
!
parl_lines,CSLtop0,'b',0,lm-733,,,,2            ! ln 1861
parl_lines,CSLtop0,'r',0,lm-2351                ! ln 243
!
isolate_lines
profile_lines,km-4,km
!
ln_fillet,km,l121
!
parl_lines,CSLtop0,'b',0,lm-4,5,,,2             ! ln 2597
parl_lines,CSLtop0,'b',0,lm-1,40                ! ln 2600
!
profile_close
!
ldele,lm-10,lm-7,10-7,1
create_area-lines
!
init_entity_num
!
vdrag,am,,,,,,lm-2378                           ! ln 229
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.20  Flex Tape Screw Boss --------------------
!
csys,CSgim0
!
create_cs,0,'CSboss10',0,Dx10,Dy06,-Dz07,0,90,180
!
create_circle,R09
create_area-lines
!
create_cs,0,'CSboss20',0,2*R09,0,0,0,0,0
!
create_circle,R09
create_area-lines
!
k,,0,0,0
k,,0,R09,0
k,,-2*R09,R09,0
k,,-2*R09,0,0
!
create_area
!
k,,R09,0,0
k,,-3*R09,0,0
k,,-3*R09,-((l56+l1)+l117-Dz07)-rfil6,0
k,,R09,-((l56+l1)+l117-Dz07)-rfil6,0
!
create_area
!
isolate_areas
aadd,all
!
create_vol-area,-Dz08
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!------------------ 3.21  Additional Casting Stock ------------------
!
!
!----------------------- 3.21.1  Resolver End -----------------------
!
*if,arg4,ne,1,then
    csys,CSgim0
    !
    asel,selv,loc,x,l15-l11
    !
    extrude_aset,d_stock1                   ! outer edge
    !
    !
    asel,selv,loc,x,l15-l11-l40
    csys,CSelvax0
    asel,r,loc,x,-5,l14-l31
    !
    aadd,all
    get_max_entity
    !
    extrude_aset,-d_stock1                  ! inner edge
    !
    lplot
*endif
    !
!------------------------ 3.21.2  Torquer End -----------------------
!
*if,arg4,ne,1,then
    csys,CSgim0
    !
    asel,selv,loc,x,-l11
    asel,r,loc,y,-5,Dy07
    !
    extrude_aset,-d_stock2                  ! outer edge
    !
    !
    asel,selv,loc,x,-l11+l17
    aadd,all
    get_max_entity
    !
    extrude_aset,-d_stock2                  ! inner edge
    !
    csys,CSrotax0
    !
    vsel,s,volu,,vm
    norm_cut_pln_ct,'x',-l95+l29
    !
    vdele,vm,,,1
    !
    init_entity_num
    !
    vadd,all
    !
    init_entity_num
    !
    lplot
*endif