mod_assemb_prep
!
!/PNUM,KP,1  
!/PNUM,LINE,1
!
csn=csn+1
clocal,csn,0,0.5,2,0,-90
!
! SCREW_THREAD_2D, prof, n_thrd, thrd_ln, n_inch, stndrd, d_mjr, d_min
!
SCREW_THREAD_2D,'x',,0.75,20,,
!
!SCREW_THREAD_2D,'x',5,,20,'j', !1.08,1.0
!

*go,:skip

csys,0
csn=csn+1
clocal,csn,0,0.57,2,0,-90,-180
!
SCREW_THREAD_2D,'i',4,0.5,20,,
!


:skip

et,1,shell63
!MSH_ALGORITHM,1,1,,,,,,,0.003,,,,,,