!   TITLE:  ms.mac
!
!---------------------------------------------------------------------------
!       Rev -   RELEASED    08/27/2001      D. Edwards/J. Rinaldi
!---------------------------------------------------------------------------
!
!   This is a macro that builds the AAAV CRES 410 mirror support using
!   the Lincoln Dreher configuration.
!
!               P/N: SK400A007
!
!   CSmirsp0:   Cartesian Mirror Support Coordinate System
!   CSmirsp1:   Cylindrical Mirror Support Coordinate System
!   CSmirsp2:   Spherical Mirror Support Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!      Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Create Initial Profile Volume
!       3.2  Create Top Surface Cut
!       3.3  Create Rib Pockets
!       3.4  Modify Bottom Surface
!           3.4.1  Beveled Rectanglular Cut
!           3.4.2  Beveled Surface Cut
!           3.4.3  Left Beveled Surface Material Cut
!           3.4.4  Balance holes (12 PL)
!       3.5  Center Hole Bores
!           3.5.1  Center Hole
!           3.5.2  Counterbore
!       3.6  Elevation Axis Journals
!           3.6.1  Resolver Journal
!           3.6.2  Torquer Journal
!           3.6.3  Center cut on back (extrude)
!           3.6.4  Chamfer at top edge of feature 3.4.4
!           3.6.5  Balance weight holes (12 PL)
!   4.  FEA Model
!       4.1  Prepare Volumes
!           4.1.1  Long Axis Cut
!           4.1.2  Left Journal Volumes
!           4.1.3  Left Side Rib Volumes
!           4.1.4  Right Side Rib Volumes
!           4.1.5  Short Axis Cut
!           4.1.6  Right Journal Volumes
!           4.1.7  Back Surface Cuts
!           4.1.8  Back Contour Cuts
!           4.1.9  Rib Pocket Contours
!
!
!********************* Model Assembly Preparation **********************
!
/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
!
create_cs,0,'CSms_cg0',0,0,0,h11,0,0,0      ! Want CG relative to here
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------- 3.1  Create Initial Profile Volume ----------------
!
csys,CSmirsp0
create_cs,0,'CSh0',0,0,0,CSz1,0,0,0
!
k,,l4,h1,0
k,,-l3,h1,0
k,,-l3,-h2,0
k,,l4,-h2,0
!
init_entity_num
!
lstr,km-3,km-2
lstr,km,km-1
!
k,,l2,h1,0
k,,l2,-h2,0
k,,-l1,h1,0
k,,-l1,-h2,0
!
init_entity_num
!
lstr,km-3,km-2
lstr,km,km-1
!
create_cs,1,,1,km-7,km-3,km-4           ! create 1st beveled line
k,,l2,phi1,0
lstr,km+1,km-7
!
create_cs,1,,1,km-6,km-1,km-5           ! create 2nd beveled line
k,,l1,phi1,0
lstr,km+2,km-6
!
create_cs,1,,1,km-5,km,km-6             ! create 3rd beveled line
k,,l1,phi1,0
lstr,km+3,km-5
!
create_cs,1,,1,km-4,km-2,km-7           ! create 4th beveled line
k,,l2,phi1,0
lstr,km+4,km-4
!
init_entity_num
!
profile_close
!
ksel,s,kp,,km-3,km,3
!
ln_fillet,,Dro                          ! Full radius at torquer end
!
ldel,lm-3                               ! Add boss on end for torquer journal
csys,CSh0       !CSmirsp0
k,,l5,h16/2,0
k,,l2+rfil2,h16/2,0
k,,l2+rfil2,-h16/2,0
k,,l5,-h16/2,0
!
create_lines,,1
profile_close
!
ksel,s,kp,,km-1,km
ln_fillet,,rfil2
!
k,,l2,h1,0
k,,l2,-h1,0
init_entity_num
!
l,km-1,km
!
profile_close
!
lsel,selv,loc,x,l2+.001,l2+rfil2
ldele,all,,,1
!
create_vol-lines,extd1
!
!-------------- 3.1.1  Trim Material Below Torquer Journal ----------------
!
!*go,:sk_311
csys,CSh0       !CSmirsp0
!
k,,l4,h1,0
k,,-l3,h1,0
k,,-l3,-h2,0
k,,l4,-h2,0
!
init_entity_num
!
lstr,km-3,km-2
lstr,km,km-1
!
k,,l2,h1,0
k,,l2,-h2,0
k,,-l1,h1,0
k,,-l1,-h2,0
!
init_entity_num
!
lstr,km-3,km-2
lstr,km,km-1
!
create_cs,1,,1,km-7,km-3,km-4           ! create 1st beveled line
k,,l2,phi1,0
lstr,km+1,km-7
!
create_cs,1,,1,km-6,km-1,km-5           ! create 2nd beveled line
k,,l1,phi1,0
lstr,km+2,km-6
!
create_cs,1,,1,km-5,km,km-6             ! create 3rd beveled line
k,,l1,phi1,0
lstr,km+3,km-5
!
create_cs,1,,1,km-4,km-2,km-7           ! create 4th beveled line
k,,l2,phi1,0
lstr,km+4,km-4
!
init_entity_num
!
profile_close
!
ksel,s,kp,,km-3,km,3
!
ln_fillet,,Dro                          ! Full radius at torquer end
!
csys,CSh0       !CSmirsp0
!
k,,l4,ky(km-39),0
k,,1.5*l2,ky(km-39),0               ! KP27
k,,1.5*l2,ky(km-37),0               ! KP29
k,,l4,ky(km-37),0
!
create_lines,,1
!
isolate_lines
!
lsel,r,loc,x,-l1,l2-Dro
ldele,all,,,1
!
isolate_lines
!
profile_close
!
create_vol-lines,h11-drj/2
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!:sk_311
!
!----------------------- 3.2  Create Top Surface Cut -------------------
!
csys,CSmirsp0
!
create_cs,0,'CStprof',0,0,-(1.2*h2),0,0,90,0
!
k,,-l1,h4,0                 ! create horizontal surface line
k,,l2,h4,0
!
create_cs,0,,1,-l1,h3,0,0,0,0
!
k,,l1,-phi2,0               ! create left beveled surface line
k,,l1,180-phi2,0
!
csys,CStprof                ! create right beveled surface line
!
create_cs,0,,1,l2,h3,0,0,0,0
!
k,,l2,180+phi2,0
k,,l2,phi2,0
!
ln_series
!
profile_lines,km-2,km
!
csys,CStprof
!
k,,kx(km-2),2*extd1,0
k,,kx(km-4),2*extd1,0
!
k,,kx(km-2),0,0
k,,kx(km-2),2.1*extd1,0
!
k,,kx(km-4),0,0
k,,kx(km-4),2.1*extd1,0
!
ln_series
!
profile_close
!
create_vol-lines,-(1.5*(h1+h2))
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!----------------- 3.3  Create Rib Pockets --------------------------------
!


csys,CSh0
!
k,km+1,po2Px1,po2Py1,po2Pz1  ! km + 1
k,km+2,po2Px2,po2Py2,po2Pz2  ! km + 2
k,km+3,po2Px3,po2Py3,po2Pz3  ! km + 3
k,km+4,po2Px4,po2Py4,po2Pz4  ! km + 4
k,km+5,po2Px5,po2Py5,po2Pz5  ! km + 5
k,km+6,po2Px6,po2Py6,po2Pz6  ! km + 6 (center)
k,km+7,po2Px7,po2Py7,po2Pz7  ! km + 7
!k,km+8,po2Px8,po2Py8,po2Pz8  ! km + 8
k,km+9,po2Px9,po2Py9,po2Pz9  ! km + 9
k,km+10,po2Px10,po2Py10,po2Pz10 ! km + 10
k,km+11,po2Px11,po2Py11,po2Pz11 ! km + 11
k,km+12,po2Px12,po2Py12,po2Pz12 ! km + 12
k,km+13,po2Px13,po2Py13,po2Pz13 ! km + 13 (center)
k,km+14,po2Px14,po2Py14,po2Pz14 ! km + 14
k,km+15,po2Px15,po2Py15,po2Pz15 ! km + 15
k,km+16,po2Px16,po2Py16,po2Pz16 ! km + 16
k,km+17,po2Px17,po2Py17,po2Pz17 ! km + 17
k,km+18,po2Px18,po2Py18,po2Pz18 ! km + 18
k,km+19,po2Px19,po2Py19,po2Pz19 ! km + 19 (center)
k,km+20,po2Px20,po2Py20,po2Pz20 ! km + 20
k,km+21,po2Px21,po2Py21,po2Pz21 ! km + 21
k,km+22,po2Px22,po2Py22,po2Pz22 ! km + 22
k,km+23,po2Px23,po2Py23,po2Pz23 ! km + 23
k,km+24,po2Px24,po2Py24,po2Pz24 ! km + 24 (center)
k,km+25,po2Px25,po2Py25,po2Pz25 ! km + 25 (center)
k,km+26,po2Px26,po2Py26,po2Pz26 ! km + 26 (center)
k,km+27,po2Px27,po2Py27,po2Pz27 ! km + 27
k,km+28,po2Px28,po2Py28,po2Pz28 ! km + 28
k,km+29,po2Px29,po2Py29,po2Pz29 ! km + 29
k,km+30,po2Px30,po2Py30,po2Pz30 ! km + 30 (center)
k,km+31,po2Px31,po2Py31,po2Pz31 ! km + 31 (center)
k,km+32,po2Px32,po2Py32,po2Pz32 ! km + 32 (center)
k,km+33,po2Px33,po2Py33,po2Pz33 ! km + 33
k,km+34,po2Px34,po2Py34,po2Pz34 ! km + 34
k,km+35,po2Px35,po2Py35,po2Pz35 ! km + 35 (center)
k,km+36,po2Px36,po2Py36,po2Pz36 ! km + 36
k,km+37,po2Px37,po2Py37,po2Pz37 ! km + 37 (center)
k,km+38,po2Px38,po2Py38,po2Pz38 ! km + 38
k,km+39,po2Px39,po2Py39,po2Pz39 ! km + 39 (center)
k,km+40,po2Px40,po2Py40,po2Pz40 ! km + 40
k,km+41,po2Px41,po2Py41,po2Pz41 ! km + 41
k,km+42,po2Px42,po2Py42,po2Pz42 ! km + 42
k,km+43,po2Px43,po2Py43,po2Pz43 ! km + 43
k,km+44,po2Px44,po2Py44,po2Pz44 ! km + 44 (center)
k,km+45,po2Px45,po2Py45,po2Pz45 ! km + 45 (center)
k,km+46,po2Px46,po2Py46,po2Pz46 ! km + 46 (center)
k,km+47,po2Px47,po2Py47,po2Pz47 ! km + 47 (center)

!
! Line Definitions
!

L,km+1,km+2                     ! lm + 1
L,km+3,km+4                     ! lm + 2
larc,km+3,km+5,km+6,po2Dr1      ! lm + 3
L,km+7,km+38                    ! lm + 4
L,km+9,km+10                    ! lm + 5
L,km+11,km+12                   ! lm + 6
larc,km+10,km+11,km+13,po2Dr2   ! lm + 7
L,km+14,km+15                   ! lm + 8
L,km+16,km+17                   ! lm + 9
L,km+18,km+5                    ! lm + 10
larc,km+18,km+15,km+19,po2Dr3   ! lm + 11
L,km+20,km+21                   ! lm + 12
L,km+22,km+23                   ! lm + 13
larc,km+20,km+9,km+24,po2Dr4    ! lm + 14
larc,km+7,km+16,km+25,po2Dr5    ! lm + 15
larc,km+23,km+1,km+26,po2Dr6    ! lm + 16
L,km+27,km+28                   ! lm + 17
larc,km+29,km+28,km+30,po2Dr7   ! lm + 18
larc,km+27,km+22,km+31,po2Dr8   ! lm + 19
larc,km+2,km+29,km+32,po2Dr9    ! lm + 20
L,km+33,km+34                   ! lm + 21
larc,km+17,km+33,km+35,po2Dr10  ! lm + 22
larc,km+34,km+36,km+37,po2Dr11  ! lm + 23
larc,km+36,km+38,km+39,po2Dr12  ! lm + 24
L,km+40,km+41                   ! lm + 25
L,km+42,km+43                   ! lm + 26
larc,km+14,km+43,km+44,po2Dr13  ! lm + 27
larc,km+42,km+4,km+45,po2Dr14   ! lm + 28
larc,km+12,km+40,km+46,po2Dr15  ! lm + 29
larc,km+41,km+21,km+47,po2Dr16  ! lm + 30

! Create each pocket area (one in each quadrant)
isolate_lines
lsel,r,loc,x,0,l2
lsel,r,loc,y,0,h1
al,all
!
isolate_lines
lsel,r,loc,x,0,l2
al,all
!
isolate_lines
lsel,r,loc,x,0,-l1
lsel,r,loc,y,0,h1
al,all
!
isolate_lines
lsel,r,loc,x,0,-l1
al,all

init_entity_num
!
!voffst,am-3,-(2*extd1-h7)      ! Floor thickness of h7
!voffst,am-2, (2*extd1-h7)      ! Floor thickness of h7
!voffst,am-1, (2*extd1-h7)      ! Floor thickness of h7
!voffst,am,-(2*extd1-h7)            ! Floor thickness of h7

! Cut through floor
voffst,am-3,-(3*extd1)
voffst,am-2, (3*extd1)
voffst,am-1, (3*extd1)          ! Floor thickness of h7
voffst,am,-(3*extd1)

!
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
!

!------------------------ 4.4  Modify Bottom Surface ---------------------
!
!------------------------ 3.5  Center Hole Bores ---------------------
!
!-------------------------- 3.5.1  Center Hole -----------------------
!
csys,CSh0       !CSmirsp0
!
create_cs,0,,0,0,0,0,0,0,180
!
cir_bore,0,dhole,extd1
!
lplot
!
!------------------------ 3.5.2  Counterbore ------------------------
!
csys,CSmirsp0
!
create_cs,0,,0,0,0,h4,0,0,0
!
cir_bore,0,dbore1,h4-h12
!
lplot
!
!-------------------- 3.6  Elevation Axis Journals -------------------
!
!----------------------- 3.6.1  Resolver Journal ---------------------
!
csys,CSmirsp0
!
create_cs,0,'CSm_res1',1,-l1,0,h11,0,0,-90
!
*do,i,0,3*((pi/2)*dconv),((pi/2)*dconv)
    k,,dlj/2,i,0
*enddo
!
create_area,1
!
voffst,am,extd2
!
init_entity_num
!
vadd,vm-1,vm
!
init_entity_num
!
*do,i,0,3*((pi/2)*dconv),((pi/2)*dconv)     ! machine inner bore
    k,,dbore2/2,i,1.2*extd2
*enddo
!
create_area,1
!
voffst,am,-(0.2*extd2+extd3)
!
init_entity_num
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
*do,i,0,3*((pi/2)*dconv),((pi/2)*dconv)     ! machine outer surface
    k,,1.2*dlj/2,i,1.2*extd2
*enddo
!
create_area,1
!
*do,i,0,3*((pi/2)*dconv),((pi/2)*dconv)
    k,,dos/2,i,1.2*extd2
*enddo
!
create_area,1
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
voffst,am,-(0.2*extd2+extd4)
!
init_entity_num
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!----------------------- 3.6.2  Torquer Journal ----------------------
!
csys,CSmirsp0
!
create_cs,0,'CSm_trq1',1,l2,0,h11,0,0,90
!
create_circle,drj/2                         ! 1st volume
!
create_vol-lines,extd5
!
create_circle,d1/2,extd5                    ! 2nd volume
!
create_vol-lines,l18
!
create_circle,d2/2,l18+extd5                ! 3rd volume
!
create_vol-lines,l19
!
create_circle,d3/2,l19+l18+extd5            ! 4th volume
!
create_vol-lines,l20
!
create_circle,d4/2,l20+l19+l18+extd5        ! 5th volume
!
create_vol-lines,l21
!
vadd,vm-5,vm-4,vm-3,vm-2,vm-1,vm
!
init_entity_num
!
lplot
!
!---------------- 3.6.3  Center pockets on back (extrude) -----------------
!

csys,CSh0

k,km+1,po3Px1,po3Py1,po3Pz1  ! km + 1
k,km+2,po3Px2,po3Py2,po3Pz2  ! km + 2
k,km+3,po3Px3,po3Py3,po3Pz3  ! km + 3 (center)
k,km+4,po3Px4,po3Py4,po3Pz4  ! km + 4
k,km+5,po3Px5,po3Py5,po3Pz5  ! km + 5
k,km+6,po3Px6,po3Py6,po3Pz6  ! km + 6
k,km+7,po3Px7,po3Py7,po3Pz7  ! km + 7
k,km+8,po3Px8,po3Py8,po3Pz8  ! km + 8
k,km+9,po3Px9,po3Py9,po3Pz9  ! km + 9
k,km+10,po3Px10,po3Py10,po3Pz10! km + 10
k,km+11,po3Px11,po3Py11,po3Pz11! km + 11
k,km+12,po3Px12,po3Py12,po3Pz12! km + 12 (center)
k,km+13,po3Px13,po3Py13,po3Pz13! km + 13
k,km+14,po3Px14,po3Py14,po3Pz14! km + 14
k,km+15,po3Px15,po3Py15,po3Pz15! km + 15 (center)
k,km+16,po3Px16,po3Py16,po3Pz16! km + 16 (center)
k,km+17,po3Px17,po3Py17,po3Pz17! km + 17 (center)
k,km+18,po3Px18,po3Py18,po3Pz18! km + 18
k,km+19,po3Px19,po3Py19,po3Pz19! km + 19
k,km+20,po3Px20,po3Py20,po3Pz20! km + 20
k,km+21,po3Px21,po3Py21,po3Pz21! km + 21
k,km+22,po3Px22,po3Py22,po3Pz22! km + 22 (center)
k,km+23,po3Px23,po3Py23,po3Pz23! km + 23
k,km+24,po3Px24,po3Py24,po3Pz24! km + 24
k,km+25,po3Px25,po3Py25,po3Pz25! km + 25
k,km+26,po3Px26,po3Py26,po3Pz26! km + 26
k,km+27,po3Px27,po3Py27,po3Pz27! km + 27 (center)
k,km+28,po3Px28,po3Py28,po3Pz28! km + 28
k,km+29,po3Px29,po3Py29,po3Pz29! km + 29 (center)
k,km+30,po3Px30,po3Py30,po3Pz30! km + 30 (center)
k,km+31,po3Px31,po3Py31,po3Pz31! km + 31 (center)
k,km+32,po3Px32,po3Py32,po3Pz32! km + 32
k,km+33,po3Px33,po3Py33,po3Pz33! km + 33
k,km+34,po3Px34,po3Py34,po3Pz34! km + 34 (center)
k,km+35,po3Px35,po3Py35,po3Pz35! km + 35 (center)

!
! Line Definitions
!

larc,km+1,km+2,km+3,po3Dr1       ! lm + 1
larc,km+4,km+5,km+3,po3Dr2       ! lm + 2
larc,km+6,km+7,km+3,po3Dr3       ! lm + 3
L,km+8,km+9                      ! lm + 4
L,km+10,km+11                    ! lm + 5
larc,km+11,km+2,km+12,po3Dr4     ! lm + 6
L,km+13,km+14                    ! lm + 7
larc,km+13,km+9,km+15,po3Dr5     ! lm + 8
larc,km+8,km+10,km+16,po3Dr6     ! lm + 9
larc,km+1,km+14,km+17,po3Dr7     ! lm + 10
L,km+18,km+19                    ! lm + 11
L,km+20,km+21                    ! lm + 12
larc,km+20,km+5,km+22,po3Dr8     ! lm + 13
L,km+23,km+24                    ! lm + 14
L,km+25,km+26                    ! lm + 15
larc,km+19,km+25,km+27,po3Dr9    ! lm + 16
larc,km+7,km+28,km+3,po3Dr10     ! lm + 17
larc,km+4,km+24,km+29,po3Dr11    ! lm + 18
larc,km+26,km+28,km+30,po3Dr12   ! lm + 19
larc,km+23,km+21,km+31,po3Dr13   ! lm + 20
L,km+32,km+33                    ! lm + 21
larc,km+6,km+33,km+34,po3Dr14    ! lm + 22
larc,km+32,km+18,km+35,po3Dr15   ! lm + 23
!
lsel,s,line,,lm+2
lsel,a,line,,lm+12,lm+14
lsel,a,line,,lm+18
lsel,a,line,,lm+20
al,all

isolate_lines
lsel,r,loc,y,0,h1
al,all
!
isolate_lines
al,all

!
init_entity_num
!
isolate_areas
extrude_aset,-(ccDext-CSz1)
!
vsel,u,volu,,vm-3
cm,vset1,volu
vsel,a,volu,,vm-3
!
vsbv,vm-3,vset1,,delete,delete
!
init_entity_num
!
lplot



!
!----------------- 3.7 Cut Center Section for Gimbal Clearance-------------
!

*go,:sk_37a

csys,CSmirsp0
create_cs,0,,0,0,-h2,0,0,90,0
!
*afun,deg
k,,-hcDx1+xoffax-h1*cos(hcDa1),hcDy2-h1*sin(hcDa1),0
k,,-hcDx1+xoffax,hcDy2,0
k,,hcDx1+xoffax,hcDy2,0
k,,hcDx1+xoffax+h1*cos(hcDa1),hcDy2-h1*sin(hcDa1),0
*afun,rad
!
create_lines
isolate_lines
ksll
!ln_fillet,,rfil2
!
! Tapered extrude
create_area-lines
create_cs,0,,0,0,hcDy2,0,0,0,0
vext,am,,,,,-hcDz1,hcDx2/hcDx1,0,0
!
init_entity_num
!
! Straight Extrude
!create_vol-lines,hcDz1     !1.5*h2+h1
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot

:sk_37a

! Straight cut walls
csys,CSh0
!
k,,hcDx2+xoffax,h1-thick
k,,hcDx1+xoffax,-h2
k,,-hcDx1+xoffax,-h2
k,,-hcDx2+xoffax,h1-thick
!
create_lines
!isolate_lines
!ksll
!ksel,r,loc,y,h1,0
!ln_fillet,,rfil2
!
create_vol-lines,CSz1-hcDy2
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!----------------- 3.8 Hole Pattern for Adapter ---------------------------
!
*go,:sk_38
hole_pattern,CSmirsp1,hpDr1,0,8,,22.5,,hpDd1
isolate_areas
extrude_aset,h12-hpDz1
!
hole_pattern,CSmirsp1,hpDr1,0,8,,22.5,,hpDd2
isolate_areas
extrude_aset,extd1
!
vsel,u,volu,,vm-16
cm,vset1,volu
vsel,a,volu,,vm-16
!
vsbv,vm-16,vset1,,delete,delete
!
init_entity_num
!
lplot
!
:sk_38
!
!----------------- 3.9 Lightnening Holes -------------------------
!
!*go,:sk_39

csys,CSh0
wpcsys,-1

*do,i,1,nlh
    cyl4,CSlhx(i),CSlhy(i),lhDr1(i),,,,extd1
*enddo
!
init_entity_num
!
vsel,u,volu,,vm-nlh
cm,vset1,volu
vsel,a,volu,,vm-nlh
!
vsbv,vm-nlh,vset1,,delete,delete
!
init_entity_num
!
lplot

:sk_39

!
!----------------- 3.10 Back Cut For Balancing ----------------------------
!
csys,CStprof
!
k,,-l1,-extd1
k,,-l1,h17
k,,-l27,-h19
k,,l27,-h19
k,,l2,h18
k,,l2,-extd1

create_lines
!
!isolate_lines
!ksll
!ksel,r,loc,y,h1,0
!ln_fillet,,rfil2
!
create_vol-lines,1.5*(h1+h2)
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 4.  FEA Model >>>>>>>>>>>>>>>>>>>>>>>>>
!
!----------------------- 4.1  Prepare Volumes -----------------------------
!

*go,:jimskip
!
csys,CSmirsp0
!
x1=kx(km-323)
norm_cut_pln_ct,'x',x1
!
x2=kx(km-327)
norm_cut_pln_ct,'x',x2
!
vsel,s,loc,x,x1,x2
norm_cut_pln_ct,'z',h12
!
vsel,s,loc,x,x1,x2
norm_cut_pln_ct,'z',ccDext
!
asel,s,area,,am-104
asel,a,area,,am-93
asel,a,area,,am-71
asel,a,area,,am-82
!
ar_profile_cut
!

:jimskip

! Minor clean up for meshing


! Create CS's for the extreme positions
csys,CSm_res1
create_cs,0,'CSms_up1',1,0,0,0,-el_up,0,0
!
csys,CSm_res1
create_cs,0,'CSms_dn1',1,0,0,0,el_down,0,0


finalize_model

save

:skip