mod_assemb_prep
!
!dcut=6
!
pi=acos(-1)
rconv=pi/180
dconv=180/pi
rtangle=(pi/2)*dconv
!       
k,,1,0
k,,6,0
k,,7,5
k,,2,7
k,,1,9
!k,,-3,5
k,,-2,1
k,,-3,-2
k,,-2,-3
!
get_max_entity
!
a,km-7,km-6,km-5,km-4,km-3,km-2,km-1,km
!
get_max_entity
!
voffst,am,6
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/view,1,1,1,1
/auto,1
!
lplot
!
selv='s'
csn=10
num_lns=4
asel,s,area,,2
!
!LN_ARRAY, num_lns, line#1, line#2, line#3,......, line#18
!
LN_ARRAY,4,9,10,11,13
!
wall_dimn,4,0.1,0.75,0.25,0.75
!
!U_SPE_POC_CUT, p1, p2, wall_thk, offset, phi_xz, phi_elev, dcut_n, dcut_s
!
u_spe_poc_cut,9,10,,'normal',,,6,
!
!pocket_cut,0.5,,,'normal',,,1.5,