!ms_pockets.mac

/color,pbak,off

mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
ms.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------- 3.1  Create Initial Profile Volume ----------------
!
csys,CSmirsp0
create_cs,0,'CSh0',0,0,0,CSz1,0,0,0
!
!----------------- 3.3  Create Rib Pockets --------------------------------
!
!----------------- 3.3.1  Torquer Side Pocket -----------------------------
!
csys,CSh0
ln_sel_end,'lbase',l4,h1,0,2
parl_lines,CSh0,'b',h5,lbase,10,2*extd1
!
k,,l10t,h1,2*extd1
k,,l10t,h6,2*extd1
k,,l5,h6,2*extd1
k,,l5,h1,2*extd1
!
create_lines,,1
!
profile_close
!
ln_fillet,km,Dri
!
lcomb,lm-3,lm
!
ksel,s,kp,,km-6,km-5
ksel,a,kp,,km-3
!
ln_fillet,,rfil2
!
create_area-lines
!
!
!----------------- 3.3.2  Resolver Side Pocket -----------------------------
!
create_cs,0,'CSsymm0',0,(l2-l1)/2,0,0,0,0,0
!
init_entity_num
!
csys,CSh0       !CSmirsp0
ln_sel_end,'lbase',-l3,h1,0,2
parl_lines,CSmirsp0,'b',h5a,lbase,10,2*extd1
parl_lines,CSh0,'b',h5a,lbase,10,2*extd1
!
k,,-l5,h1,2*extd1
k,,-l5,h6,2*extd1
k,,-l10,h6,2*extd1
k,,-l10,h1,2*extd1
!
create_lines,,1
!
profile_close
isolate_lines
ksll
!
ln_fillet,,rfil2
!
create_area-lines
!
!---------------------- 3.3.3 Extude Pockets  -----------------------------
!
csys,CSh0       !CSmirsp0
!
arsym,y,am-1,am,,,1,0
!
init_entity_num
!
*do,i,am-3,am,1
    voffst,i,-(2*extd1-h7)      ! Floor thickness of h7
*enddo
!
init_entity_num
!
vsel,u,volu,,vm-4
cm,vset1,volu
vsel,a,volu,,vm-4
!
vsbv,vm-4,vset1,,delete,delete
!
init_entity_num
!
lplot
!

!
!------------------ 3.6.3  Obsolete Center pockets on back (extrude) -----------------
!
*go,:sk_363
csys,CSmirsp0
!
k,,thickc/2,0,0
k,,thickc/2,h1,0
!
k,,ccPx1,0,0
k,,ccPx1,h1,0
!
k,,0,ccPy3,0
k,,1.5*ccPx1,ccPy3,0
!
k,,1.1*thickc/2,thickc/2,0
k,,1.5*ccPx1,thickc/2,0
!
ln_series
!
create_arcs,ccDr1,,,1,-1,91
!
profile_close
!
isolate_lines
ksll,s
!
ln_fillet,,ccDr2
!
create_area-lines
!
arsym,y,am,,,,1,0
!
csys,CSsymm0
!
arsym,x,am,am+1,1,,1,0
!
init_entity_num
!
isolate_areas
extrude_aset,-ccDext
!
vsel,u,volu,,vm-4
cm,vset1,volu
vsel,a,volu,,vm-4
!
vsbv,vm-4,vset1,,delete,delete
!
init_entity_num
!
lplot
:sk_363
!
!------------------ 3.6.3.1  1st Center pockets on back (extrude) -----------------
!
csys,CSh0
!
k,km+1,c1Px1,c1Py1,c1Pz1     ! km + 1
k,km+2,c1Px2,c1Py2,c1Pz2     ! km + 2
k,km+3,c1Px3,c1Py3,c1Pz3     ! km + 3
k,km+4,c1Px4,c1Py4,c1Pz4     ! km + 4
k,km+5,c1Px5,c1Py5,c1Pz5     ! km + 5 (center)
k,km+6,c1Px6,c1Py6,c1Pz6     ! km + 6
k,km+7,c1Px7,c1Py7,c1Pz7     ! km + 7
k,km+8,c1Px8,c1Py8,c1Pz8     ! km + 8 (center)
k,km+9,c1Px9,c1Py9,c1Pz9     ! km + 9 (center)
k,km+10,c1Px10,c1Py10,c1Pz10 ! km + 10
k,km+11,c1Px11,c1Py11,c1Pz11 ! km + 11
k,km+12,c1Px12,c1Py12,c1Pz12 ! km + 12 (center)
k,km+13,c1Px13,c1Py13,c1Pz13 ! km + 13 (center)
!
L,km+1,km+2                  ! lm + 1
larc,km+3,km+4,km+5,c1Dr1    ! lm + 2
L,km+6,km+7                  ! lm + 3
larc,km+7,km+2,km+8,c1Dr2    ! lm + 4
larc,km+3,km+6,km+9,c1Dr3    ! lm + 5
L,km+10,km+11                ! lm + 6
larc,km+1,km+11,km+12,c1Dr4  ! lm + 7
larc,km+10,km+4,km+13,c1Dr5  ! lm + 8
!
create_area-lines
!
arsym,y,am,,,,1,0
!
init_entity_num
!
isolate_areas
extrude_aset,-ccDext+CSz1
!
!------------------ 3.6.3.2  2nd Center pockets on back (extrude) -----------------
!
csys,CSh0
!
k,km+1,c2Px1,c2Py1,c2Pz1     ! km + 1
k,km+2,c2Px2,c2Py2,c2Pz2     ! km + 2
k,km+3,c2Px3,c2Py3,c2Pz3     ! km + 3
k,km+4,c2Px4,c2Py4,c2Pz4     ! km + 4
k,km+5,c2Px5,c2Py5,c2Pz5     ! km + 5 (center)
k,km+6,c2Px6,c2Py6,c2Pz6     ! km + 6 (center)
k,km+7,c2Px7,c2Py7,c2Pz7     ! km + 7
k,km+8,c2Px8,c2Py8,c2Pz8     ! km + 8
k,km+9,c2Px9,c2Py9,c2Pz9     ! km + 9 (center)
k,km+10,c2Px10,c2Py10,c2Pz10 ! km + 10 (center)
!
L,km+1,km+2                  ! lm + 1
larc,km+3,km+4,km+5,c2Dr1    ! lm + 2
larc,km+3,km+1,km+6,c2Dr2    ! lm + 3
L,km+7,km+8                  ! lm + 4
larc,km+7,km+4,km+9,c2Dr3    ! lm + 5
larc,km+2,km+8,km+10,c2Dr4   ! lm + 6
!
create_area-lines
!
arsym,y,am,,,,1,0
!
csys,CSsymm0
!
arsym,x,am,am+1,1,,1,0
!
init_entity_num
!
isolate_areas
extrude_aset,ccDext-CSz1
!
vsel,u,volu,,vm-6
cm,vset1,volu
vsel,a,volu,,vm-6
!
vsbv,vm-6,vset1,,delete,delete
!
init_entity_num
!
lplot