Постпроцессор на FANUC 6mb

[zhitov_vm 2]

Подскажи пожалуйста, как можно пронумеровать перечисленый инструмент, который выходит в шапку программы? Как бы еще сдалать так, чтобы повторяющийстя инструмент все равно записывался в шапку? (Для того чтобы можно было сверху посмотреть сколько кадров в программе и какой в кадре инструмент использован.)

 

 

[zhitov_vm 2]

Хотелось бы получить что-то вроде вот этого в шапке:

(N1  T2 CENTR D2.5 H190 L20)
(N2  T3 FREZA D3 H189/D188 L20)
(N3  T4 DISK FREZA H187/D186 L20)

(N4  T3 FREZA D3 H189/D188 L20)

 

Проблема в том что, выведенный инструмент в шапку, больше не повторяется, а вполне вероятно что повторяющийся будет и там возможны другие корректора

 

@def_tool
    ; Вывод дескриптора списка инструмента  в начале программы
    if bOutputToolList
        if tool_message == '' then
            {nb,cCb  'T'tool_number, '-' tool_user_type, ' ' 'D'(tool_offset*2), ' - ' 'H'h_offset'''/''D'd_offset' '  '_L='  (tool_length),cCe }
        else
            {nb, cCb'T'tool_number,'-' tool_message, '''D'(tool_offset*2), ' - ' 'H'h_offset'''/''D'd_offset' '  '_L='  (tool_length), cCe}
            if msg_mill_tool1 ne ''
                {nb,cCb'---' msg_mill_tool1,cCe}
            endif
            if msg_mill_tool2 ne ''
                {nb,cCb'---' msg_mill_tool2,cCe}
            endif
            if msg_mill_tool3 ne ''
                {nb,cCb'---' msg_mill_tool3,cCe}
            endif
            if msg_mill_tool4 ne ''
                {nb,cCb'---' msg_mill_tool4,cCe}
            endif
            if msg_mill_tool5 ne ''
                {nb,cCb'---' msg_mill_tool5,cCe}
            endif
        endif
    endif
    if next_command ne '@def_tool' and bTlchg eq false
        if bTlseperation and bOutputToolList
            local integer i ii
            i = 0
            if iNumSeparationLines == 0
                ii = 1
            else
                ii = iNumSeparationLines
            endif
            while i < ii
                {nl}
                i = i + 1
            endw
        endif
        if bOptstpbegin
            call @usr_optionalstop
        endif
        if bNnumtc
            {nl,'N'iTcnumber' '}
        else
            {nb}
        endif

    endif
endp

 

 

[zhitov_vm 2]

Есть идеи вообще, хотя бы философские:)?

[zhitov_vm 2]

Проблему решил, кому надо спрашивайте в личке.

[Klykliku 0]

В 12.04.2019 в 07:48, zhitov_vm сказал:

Проблему решил, кому надо спрашивайте в личке.

Доброе время. Расскажи как ты это сделал? 

[DesaZert 0]

Можно узнать как вы решили данную проблему.?