cnc-club.ru

Код: Выделить всё

@thread

    local string for for1 for2  for3 for4 for5 for6
    local numeric taper_angle nthread_dev_angle
    local integer i
    for  = '3.3(n*1000)'
    for1 = '2/2.0(P)'
    for2 = '2/2.0(P*10)'
    for3 = '5.0(P*1000)'
    for4 = '3.3(n*500)'
    for5 = '3.4'
    for6 = '3.0(P)'
    i = 1
    taper_angle = (first_pos_x - last_pos_x)
    if last_pos_x <> first_pos_x
        if turning_mode <> internal
            xpos = (last_pos_x + depth + safety )
        else
            xpos = (last_pos_x - depth - safety )
        endif
        gcode = 0
        {nb,'G'gcode ' X'xpos }
    endif

    if lead_unit <> mm
        lead = (1/lead)
    else
        lead = (lead/25.4)
    endif
;    if bThread_Chamfer
;        {nb, 'M23 '}
;    else
;        {nb, 'M24 '}
;    endif
    if multi_start_type eq true and type_starts eq 0
        nthread_dev_angle = 360 / number_of_starts
;        nThread_Start_Angle = nThread_Start_Angle + nthread_dev_angle
        i = number_of_starts
    endif
    while i gt 0
        if work_type eq multiple
            gcode = 76
            {nb 'G' gcode ' X' last_pos_x : xpos_f ' Z' last_pos_z }
            if taper_angle <> 0
                {' I' taper_angle}
            endif
            {' K' depth ' D' down_step ' F' lead : for5}
            {' A' nTool_Nose_Angle:for6 ' Q' nThread_Start_Angle:for6}
        else
            gcode = 76
            {nb 'G' gcode ' X' last_pos_x : xpos_f ' Z' last_pos_z }
            if taper_angle <> 0
                {' I' taper_angle, ' '}
            endif
            {' K' depth ' D' depth ' F' lead : for5}
            {' A' nTool_Nose_Angle:for6 ' Q' nThread_Start_Angle:for6}
        endif
        nThread_Start_Angle = nThread_Start_Angle + nthread_dev_angle
        i = i - 1
        gcode = 0
        if i gt 0
            {nb,['G'gcode] ' X'xpos }
            {nb,['G'gcode] ' Z'zpos }
        endif
    endw

endp