// FreeForm_Machining 4.61 Windows 03/01/96 11:11:58 Macro File
// Thread_14.mcl
// CREATED: 02/13/2019
// BY: Tom Light
//
// ELEMENTS MUST BE AT THE TOP OF THE FILE (AFTER 0 Origin)

PAUSE[TX="This macro creates a helix for thread milling.
ELEMENTS MUST BE AT THE TOP OF THE FILE (AFTER 0 Origin)",LR=3,LC=10,SR=6,SC=20,PT=1]

VAR_REMOVE_ALL[]

#PITCH = 1/#THREAD
#FINAL_HELIX_R = ((#MAJOR_DIAMETER/2) - (#THREADMILL_D/2))
#SMALL_HELIX_R = ((#MINOR_DIAMETER/2) - (#THREADMILL_D/2))
#FIRST_HELIX_CUT = (#FINAL_HELIX_R - (#FINAL_HELIX_R - #SMALL_HELIX_R)/2)

// FIRST HELIX
HELIX[DR=1, XC=#CENTER_X, YC=#CENTER_Y, ZS=#START_Z, AS=0, RS=#FIRST_HELIX_CUT, ZE=#START_Z+#PITCH,
    AE=0, RE=#FIRST_HELIX_CUT, FT=1, LV=#PITCH]

// FINAL HELIX
HELIX[DR=1, XC=#CENTER_X, YC=#CENTER_Y, ZS=#START_Z, AS=0, RS=#FINAL_HELIX_R, ZE=#START_Z+#PITCH,
    AE=0, RE=#FINAL_HELIX_R, FT=1, LV=#PITCH]

// FINAL HELIX CUT DEFINED FIRST
NEW_GRP[]
ELMT_GRP[AR=0, EL="2"]
ELMT_SEQ[BA=0, EL="2", ME=0]
LINE[XS=#CENTER_X, YS=#CENTER_Y, ZS=#START_Z, XE=STX(2), YE=STY(2),
    ZE=STZ(2), ZI=0.05, SE=1, SS=1]
ELMT_SEQ[BA=1, EL="3", ME=0]
MOVE[CP=1, NC= #FULL_THREADS-1, TS=1, XS=STX(3), YS=STY(3), ZS=STZ(3), XE=ENX(3),
    YE=ENY(3), ZE=ENZ(3)]

// FIRST HELIX CUT
NEW_GRP[]
ELMT_GRP[AR=0, EL="1"]
ELMT_SEQ[BA=0, EL="1", ME=0]
LINE[XS=#CENTER_X, YS=#CENTER_Y, ZS=#START_Z, XE=STX(1), YE=STY(1),
    ZE=STZ(1), ZI=0.05, SE=1, SS=1]
ELMT_SEQ[BA=1, EL="2", ME=0]
MOVE[CP=1, NC= #FULL_THREADS-1, TS=1, XS=STX(2), YS=STY(2), ZS=STZ(2), XE=ENX(2),
    YE=ENY(2), ZE=ENZ(2)]
// FULL[]