Время работы инструмента в списке инструмента через PB_CMD_create_tool_list

[traktorbek 0]

Доброго дня, коллеги.

Задача стоит вывести список инструмента в шапку программы с указанием времени работы каждого инструмента. Для вывод воспользовался имеющейся в NX процедурой PB_CMD_create_tool_list. Но время работы инструмента не выводится.

В PB_CMD_init_tool_list есть переменная $tool_time, которая по логике и собирает время работы со всех операций, но не удалось её вывести, т.е. процесс не читает программу вперёд. Если вывести PB_CMD_create_tool_list, то все необходимые данные получим, и машинное время там есть. Но по ТЗ, оно должно быть в шапке...

 

Подскажите, пожалуйста, как поправить процедуру, чтобы она собрала данные о машинном времени и вывела в начале кода УП

 

Изменено В воскресенье в 20:42 пользователем traktorbek

[mr_Voden 158]

@traktorbek

10 часов назад, traktorbek сказал:

В PB_CMD_init_tool_list есть переменная $tool_time

По этому поводу чуть выше написано:

  #*******************************************************************************
  # Fetch tool time data from the post.
  # This info is only available when tool list is created at the end of a program.
  #*******************************************************************************

Выводите в буфер список инструмента вместе со временем в end of a program и перезаписывайте этот буфер в начало файла.

[5axisCNC 52]

Я уже спрашивал мне отвечали, но я все равно не понял как это делается(правда и искал не сильно на этот счет). Если можно, то подробнее для человека не особо понимающего программирование.

1 час назад, mr_Voden сказал:

перезаписывайте этот буфер в начало файла.

 

[mr_Voden 158]

15 минут назад, 5axisCNC сказал:

Если можно, то подробнее для человека не особо понимающего программирование.

Блин, я рад бы обьяснить, но так не могу) Если кратко: на выводе в файл перехватываете из буфера выводимую строку и отправляете ее в массив строк (буфер), а на вывод - обнуляете строку. Потом, когда траектория уже выведена в файл закрываете вывод в файл, считываете его в еще один буфер. Потом файл очищаете и сначала пишете в него содержимое буфера со списком инструмента, а потом все остальное. В итоге список инструмента оказывается в начале уп. 

[traktorbek 0]

32 минуты назад, mr_Voden сказал:

Блин, я рад бы обьяснить, но так не могу) Если кратко: на выводе в файл перехватываете из буфера выводимую строку и отправляете ее в массив строк (буфер), а на вывод - обнуляете строку. Потом, когда траектория уже выведена в файл закрываете вывод в файл, считываете его в еще один буфер. Потом файл очищаете и сначала пишете в него содержимое буфера со списком инструмента, а потом все остальное. В итоге список инструмента оказывается в начале уп. 

прям хочется вставить мем "Ничего не понятно, но очень интересно"))) 

[traktorbek 0]

Во время обучения делали процедуры, которые позволяли собирать список операций в начале УП. Один и тот же код на фанук посте работает, при работе с постом хайденхайн выдаёт ошибки.

 

#==============================================================
proc USER_COLLECT_DATA {} {
#==============================================================
	PB_CMD_StoreMomVars
	
	MOM_cycle_objects {SETUP {PROGRAMVIEW{MEMBERS}}}
	
	PB_CMD_RestoreMomVars
	
	global user_operation_list
	
	foreach i $user_operation_list {
		MOM_output_literal "(OPERATION : $i)"
	}
	
}

# =====================================================
proc PB_CMD_StoreMomVars {} {
# =====================================================
  global BNL_mom_list
  set BNL_mom_list [lsort [info globals "mom_*"]]
  
  foreach var $BNL_mom_list {
    global $var BNL_STORED_$var
    if {[array exist $var]} {
      array set BNL_STORED_$var [array get $var]
    } else {
      set BNL_STORED_$var [set $var]
    }
  }
}

# =====================================================
proc PB_CMD_RestoreMomVars {} {
# =====================================================
  global BNL_mom_list

  if {![info exists BNL_mom_list]} return
  
  foreach var $BNL_mom_list {
    global $var BNL_STORED_$var
    if {[array exist BNL_STORED_$var]} {
      array set $var [array get BNL_STORED_$var]
      array unset BNL_STORED_$var
    } else {
      set $var [set BNL_STORED_$var]
      unset BNL_STORED_$var
    }
  }
  unset BNL_mom_list
}

# =====================================================
proc MOM_OPER_BODY {} {
# =====================================================

global mom_operation_name
global user_operation_list
global mom_toolpath_time
global user_total_time
global mom_mcsname_attach_opr

lappend user_operation_list $mom_operation_name

#MOM_output_to_listing_device "mom_toolpath_time : [expr floor($mom_toolpath_time)] | $mom_toolpath_time"


}

 

вероятно, таким же подходом можно собрать и данные о времени работы инструмента, но пока не победил этот код

[mr_Voden 158]

2 часа назад, traktorbek сказал:

вероятно, таким же подходом можно собрать и данные о времени работы инструмента, но пока не победил этот код

Занятно. Надо будет глянуть.

[mr_Voden 158]

@traktorbek У вас вполне рабочий пример. По крайней мере у меня получилось собрать время обработки со всех операций. Потребовался минимум доработок. Тоже хочу на такое обучение)

[traktorbek 0]

40 минут назад, mr_Voden сказал:

@traktorbek У вас вполне рабочий пример. По крайней мере у меня получилось собрать время обработки со всех операций. Потребовался минимум доработок. Тоже хочу на такое обучение)

можете поделиться результатом?

[mr_Voden 158]

8 часов назад, traktorbek сказал:

можете поделиться результатом?

Я не заморачивался. Просто убедился что это работает.

В start of program

Скрытый текст

    uplevel #0 {

        # =====================================================
        proc MOM_OPER_BODY {} {
        # =====================================================

        global mom_operation_name
        global user_operation_list
        global mom_toolpath_time
        global user_total_time
        global mom_mcsname_attach_opr

        set mom_toolpath_time [format "%.3f" $mom_toolpath_time]
        set min [format "%.0f" [expr floor($mom_toolpath_time) ] ]
        set sec [format "%.0f" [expr ($mom_toolpath_time-$min)*60] ]
        lappend user_operation_list "${mom_operation_name}_${min}m:${sec}s"

        }

    }

    MOM_cycle_objects {SETUP {PROGRAMVIEW{MEMBERS}}}

    global user_operation_list
    foreach i $user_operation_list {
        MOM_output_literal "(OPERATION : $i)"
    }

 

[traktorbek 0]

12 часов назад, mr_Voden сказал:

Я не заморачивался. Просто убедился что это работает.

В start of program

  Скрыть содержимое

    uplevel #0 {

        # =====================================================
        proc MOM_OPER_BODY {} {
        # =====================================================

        global mom_operation_name
        global user_operation_list
        global mom_toolpath_time
        global user_total_time
        global mom_mcsname_attach_opr

        set mom_toolpath_time [format "%.3f" $mom_toolpath_time]
        set min [format "%.0f" [expr floor($mom_toolpath_time) ] ]
        set sec [format "%.0f" [expr ($mom_toolpath_time-$min)*60] ]
        lappend user_operation_list "${mom_operation_name}_${min}m:${sec}s"

        }

    }

    MOM_cycle_objects {SETUP {PROGRAMVIEW{MEMBERS}}}

    global user_operation_list
    foreach i $user_operation_list {
        MOM_output_literal "(OPERATION : $i)"
    }

 

 

Попробовал запустить это в одной программе с базовой процедурой create_tool_list - не работает. Просто противопоказано взаимодействие. Снова хз как собрать время работы каждого инструмента

[mr_Voden 158]

18 минут назад, traktorbek сказал:

Попробовал запустить это в одной программе с базовой процедурой create_tool_list - не работает.

Так это и не было готовым решением. Я просто убедился что так действительно можно получить время обработки. Со списком инструмента это никак не связано. 

[traktorbek 0]

48 минут назад, mr_Voden сказал:

Так это и не было готовым решением. Я просто убедился что так действительно можно получить время обработки. Со списком инструмента это никак не связано. 

не в этом дело.

Отдельно ваш код я проверил, работает.

 

Я в принципе про эту конструкцию. Не ожидал, что она может конфликтовать с tool_list, даже если он не вызывается, а просто есть в кастом команд

[mr_Voden 158]

@traktorbekInit tool list не вызывается ли?

[traktorbek 0]

1 минуту назад, mr_Voden сказал:

@traktorbekInit tool list не вызывается ли?

если есть в посте init_tool_list, то приведённый ранее код просто крашит постпроцессирование

 

[mr_Voden 158]

@traktorbekМожет потому что в  init идет переопределение своей MOM_OPER_BODY? 

Нет такого? 

[traktorbek 0]

51 минуту назад, mr_Voden сказал:

@traktorbekМожет потому что в  init идет переопределение своей MOM_OPER_BODY? 

Нет такого? 

всё может быть. Перебивается переменная current_program_name и всё под откос.

 

Нет примера, как из хвоста программы перенести данные в начало?

 

[5axisCNC 52]

А как вообще правильно тестировать какую либо процедуру? Ну или перефразирую, а как вы тестируете работу какой либо процеДуры?