Change Feed rate ẢC

[thaodaitu 0]

Cách chỉnh sửa bài 

 

 

[Carmen 28]

В моем посте под фанук небыло такой опции, решила добавить, тк фича очень полезная

 

в

 

@init_post

 

добавляем:

 

    global logical UFlag<<30>>

    UFlag<<1>>      = false   ; --==  Change Feed Flag  ==--

 

образец для @line (выделено красным)

@line
    {nb}
    gcode = 1
    if change(gcode) then
        {'G'gcode}
    else   
        {'  '}
    endif
    {[' X'xpos], [' Y'ypos], [' Z'zpos]}
    if UFlag<<1>>
       change(feed) = true
       UFlag<<1>> = false
    endif
    { [' F'feed]}
endp

 

и @arc (выделено красным)

 

@arc
    {nb}

    if arc_direction eq CCW then
        gcode = 3
    else         ; CW
        gcode = 2
    endif
    if change(gcode) then
        {'G'gcode}
    else
        {'  '}
    endif
    {[' X'xpos] [' Y'ypos] [' Z'zpos]}

    if arc_size eq 360 then
        if arc_plane eq XY then
            {' I'xcenter_rel, ' J'ycenter_rel}
        endif
        if arc_plane eq YZ then
            {' J'xcenter_rel, ' K'ycenter_rel}
        endif
        if arc_plane eq ZX then
            {' K'xcenter_rel, ' I'ycenter_rel}
        endif
    else
        if arc_size >= 180 then
            radius = -radius
        endif
        {' R'radius}
    endif
    if use_arc_feed
       feed = arc_feed
       UFlag<<1>>  = true
    endif
    { [' F'feed]}
endp

 

Наслаждайтесь!

 

Забыла что в машину надо добавить:

Изменено 7 января 2019 пользователем Carmen

[thaodaitu 0]

thanks you very much!

You can send your post my email thaont.cnc@gmail.com

[Carmen 28]

Maybe I can Help U with your post, but unfortunately I can't send mine

[thaodaitu 0]

please! help me!

[Carmen 28]

Небольшое усовершеснствование

У меня возникли проблемы с джобами с включеной компенсацией не совсем коректно расчитывается подача на поворатах.

И кстати мы работаем с радиусом компенсации ноль (так нам удобнее) и пологаю что те кто работает среальным радиусом то код будет другой.

 

В общем переделала

@arc
    {nb}

    if arc_direction eq CCW then
        gcode = 3
    else         ; CW
        gcode = 2
    endif
    if change(gcode) then
        {'G'gcode}
    else
        {'  '}
    endif
    {[' X'xpos] [' Y'ypos] [' Z'zpos]}

    if arc_size eq 360 then
        if arc_plane eq XY then
            {' I'xcenter_rel, ' J'ycenter_rel}
        endif
        if arc_plane eq YZ then
            {' J'xcenter_rel, ' K'ycenter_rel}
        endif
        if arc_plane eq ZX then
            {' K'xcenter_rel, ' I'ycenter_rel}
        endif
    else
        if arc_size >= 180 then
            radius = -radius
        endif
        {' R'radius}
    endif
    if use_arc_feed
        if tool_side == comp_left
            if arc_direction == cw
                feed=(feed*abs(radius))/(abs(radius)-(tool_diameter/2))
            else
                feed=(feed*abs(radius))/(abs(radius)+(tool_diameter/2))
            endif
            UFlag<<1>>  = true
        elseif tool_side == comp_right
            if arc_direction == cw
                feed=(feed*abs(radius))/(abs(radius)+(tool_diameter/2))
            else
                feed=(feed*abs(radius))/(abs(radius)-(tool_diameter/2))
            endif
            UFlag<<1>>  = true
        endif
    endif
    { [' F'feed]}
endp

 

@line  и @init_post  так же как и в моем первом посте

 

 

[Forest_Man 29]

@Carmen Спасибо, за проделанный труд, что ли :)

Интереса ради сделал так же, всё работает. 

Пока понять не могу для каких целей можно использовать данную фичу.

Буду рад любому приведённому примеру, если не сложно 

[thaodaitu 0]

thank you! I can not change

[Forest_Man 29]

13 часа назад, thaodaitu сказал:

thank you! I can not change

I did it all. Choose turns. Make a manual. thank@Carmen

[NickEL1000 249]

осторожней при обходе наружных углов фрезой большого диаметра )