FAQ/Unigraphics/POST

[lexincton 70]

1 минуту назад, artem-nafanya сказал:

Что-то пока не удаётся объединить TOOL_LIST и проверку на дубли. Не совсем понятно где там массив с номерами инструментов?

Какие есть ещё варианты?

Проще это делать перед занесением, чем потом заморачиваться с извлечением, посмотрите как я сделал с добавкой массива в последних ответах

[artem-nafanya 18]

2 минуты назад, lexincton сказал:

Проще это делать перед занесением, чем потом заморачиваться с извлечением, посмотрите как я сделал с добавкой массива в последних ответах

Это?

Показать содержимое  

запись
global list_tool
if { ![info exists list_tool] } { set list_tool {} }
set row_tool [expr $mom_tool_number*100+$mom_tool_adjust_register]
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}
if { !$bsearch } { lappend list_tool $row_tool }
 
чтение
global list_tool
foreach number [lsort -ascii $list_tool] {
    set t_num [expr int($number/100)]
    set d_num [expr $number-$t_num*100]
    puts $ofile [format "bla bla %s - %s   " $t_num $d_num]
}

Hide  

[lexincton 70]

2 минуты назад, artem-nafanya сказал:

Это?

Не совсем, поищите tool_data_list

[artem-nafanya 18]

7 минут назад, lexincton сказал:

Не совсем, поищите tool_data_list

Что-то из этого?

Показать содержимое  

set tool_data "$mom_tool_number $mom_tool_adjust_register"
 

if { ![info exists list_tool] } { set list_tool {} }

set row_tool [expr $mom_tool_number*100+$mom_tool_adjust_register]
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}
if { !$bsearch } {
    lappend list_tool $row_tool
    set tool_data_list($row_tool) $tool_data
}

 

foreach number [lsort -ascii $list_tool] {
        set t_num [expr int($number/100)]
        set d_num [expr $number - $t_num*100]

        puts $ofile "; T$t_num / D$d_num"
        puts $ofile "N$mom_seqnum $tool_data_list($number)"
        incr mom_seqnum $mom_sys_seqnum_incr
}

Hide  

 

[lexincton 70]

11 минуту назад, artem-nafanya сказал:

Что-то из этого?

Да, добавляйте дубликаты в отдельный массив по аналогии, потом считывайте его

[artem-nafanya 18]

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

добавляйте дубликаты

Что значит добавлять дубликаты? Нужно же наоборот, найти эти дубликаты.

[lexincton 70]

15 минут назад, artem-nafanya сказал:

Что значит добавлять дубликаты? Нужно же наоборот, найти эти дубликаты.

Так при нахождении инструмента в tool_list добавлять его в другой массив

 

[artem-nafanya 18]

16 минут назад, lexincton сказал:

Так при нахождении инструмента в tool_list добавлять его в другой массив

 

Не понимаю. Можно поподробнее?

[lexincton 70]

6 минут назад, artem-nafanya сказал:

Не понимаю. Можно поподробнее?

global tool_double_list

if { ![info exists list_tool] } { set list_tool {} }
set row_tool [expr $mom_tool_number*100+$mom_tool_adjust_register]
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}
if { !$bsearch } {
    lappend list_tool $row_tool
    set tool_data_list($row_tool) $tool_data
} elseif { ![info exists tool_double_list($row_tool)] } {

    set tool_double_list($row_tool) 0

}
 
foreach number [lsort -ascii $list_tool] {
        set t_num [expr int($number/100)]
        set d_num [expr $number - $t_num*100]
        puts $ofile "; T$t_num / D$d_num"
        puts $ofile "N$mom_seqnum $tool_data_list($number)"
        incr mom_seqnum $mom_sys_seqnum_incr
}

 

foreach double_tool [array names double_tools] {

        set t_num [expr int($double_tool/100)]
        set d_num [expr $double_tool - $t_num*100]

 

        puts $ofile "; Повторно использовался инструмент T$t_num с регистром D$d_num"

}

[artem-nafanya 18]

54 минуты назад, lexincton сказал:

Показать содержимое  

global tool_double_list

if { ![info exists list_tool] } { set list_tool {} }
set row_tool [expr $mom_tool_number*100+$mom_tool_adjust_register]
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}
if { !$bsearch } {
    lappend list_tool $row_tool
    set tool_data_list($row_tool) $tool_data
} elseif { ![info exists tool_double_list($row_tool)] } {

    set tool_double_list($row_tool) 0

}
 
foreach number [lsort -ascii $list_tool] {
        set t_num [expr int($number/100)]
        set d_num [expr $number - $t_num*100]
        puts $ofile "; T$t_num / D$d_num"
        puts $ofile "N$mom_seqnum $tool_data_list($number)"
        incr mom_seqnum $mom_sys_seqnum_incr
}

 

foreach double_tool [array names double_tools] {

        set t_num [expr int($double_tool/100)]
        set d_num [expr $double_tool - $t_num*100]

 

        puts $ofile "; Повторно использовался инструмент T$t_num с регистром D$d_num"

}

Hide  

Что-то не заработало, хотя переменная объявлена.

[lexincton 70]

9 часов назад, artem-nafanya сказал:

Что-то не заработало, хотя переменная объявлена

В моем ответе она не объявлена, или tool_data не присваивается значение или она не объявлена, проверьте.

Еще опечатка в цикле

foreach double_tool [array names tool_double_list] {

        set t_num [expr int($double_tool/100)]
        set d_num [expr $double_tool - $t_num*100]

 

        puts $ofile "; Повторно использовался инструмент T$t_num с регистром D$d_num"

}

[artem-nafanya 18]

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

В моем ответе она не объявлена, или tool_data не присваивается значение или она не объявлена, проверьте.

Еще опечатка в цикле

Показать содержимое  

foreach double_tool [array names tool_double_list] {

        set t_num [expr int($double_tool/100)]
        set d_num [expr $double_tool - $t_num*100]

 

        puts $ofile "; Повторно использовался инструмент T$t_num с регистром D$d_num"

}

Hide  

Чтобы не ругалось на tool_data добавил: set tool_data "$mom_tool_number"

Ошибки при постпроцессировании нет, но и дубли не находит.

пока код выглядит так:

Показать содержимое  

#запись

global tool_double_list mom_tool_number mom_tool_adjust_register
global tool_data
global mom_tool_nose_radius
global mom_tool_x_offset 
global mom_tool_z_offset
global mom_tool_number
global mom_tool_tracking_point 
global array_tool_name
global tool_index_max
global mom_tool_name
global tool_list
global tool_data_list
global list_tool
global mom_tool_type
global mom_tool_adjust_register
global mom_tool_right_corner_radius

set tool_data "$mom_tool_number $mom_tool_adjust_register"

if { ![info exists list_tool] } { set list_tool {} }
set row_tool [expr $mom_tool_number*100+$mom_tool_adjust_register]
set bsearch 0
foreach tool $list_tool {
    if { $tool == $row_tool } {
        set bsearch 1
        break
    }
}

if { !$bsearch } {
    lappend list_tool $row_tool
    set tool_data_list($row_tool) $tool_data
} elseif { ![info exists tool_double_list($row_tool)] } {
    set tool_double_list($row_tool) 0
}

 

#чтение

global tool_list
global list_tool
global mom_tool_adjust_register
global mom_tool_name
global mom_next_tool_name
global ptp_file_name
global mom_definition_file_name
global mom_output_file_full_name
global tmp_mess_file
global name_operation
global mom_warning_info
global mom_cam_session_config_file
global ptp_file_name
global array_tool_name
global tool_index_max
global mom_tool_number
global mom_machine_time
global double_tools
global mom_sys_seqnum_start mom_sys_seqnum_incr
global tool_data_list
#__________________________________________________________________________
set mom_seqnum 10 
#__________________________________________________________________________
#НАЧАЛО РЕПРОЦЕССА
set tmp_file_name "${ptp_file_name}_"

if {[file exists $tmp_file_name]} {
MOM_remove_file $tmp_file_name
}

MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name w]

global mom_machine_time mom_group_name mom_operation_name
global mom_tool_count mom_tool_use
global tool_data_name tool_data_diameter tool_data_corner1_radius
global mom_output_file_basename
global mom_logname mom_ug_version mom_date mom_part_name mom_machine_name
global mom_output_file_suffix mom_parent_group_name

   if {[info exists mom_operation_name] == 0} { set mom_operation_name "" }
   if {[info exists mom_group_name] == 0} { set mom_group_name $mom_operation_name }

global total_rapid_length
global total_cut_length
global total_rapid_time
global total_cut_time

#__________________________________________________________________________

set buf ""
#==========================================================================
#ВЫВОД СОДЕРЖИМОГО МАССИВА С ПОМОЩЬЮ ЦИКЛА (ШАПКА СО СПИСКОМ ИНСТРУМЕНТОВ)
foreach number [lsort -ascii $list_tool] {
        set t_num [expr int($number/100)]
        set d_num [expr $number - $t_num*100]
        puts $ofile "; T$t_num / D$d_num"
        puts $ofile "N$mom_seqnum $tool_data_list($number)"
        incr mom_seqnum $mom_sys_seqnum_incr
}

foreach double_tool [array names tool_double_list] {
        set t_num [expr int($double_tool/100)]
        puts $ofile "; Повторно использовался инструмент T$t_num с регистром D$d_num"
}

#__________________________________________________________________________
#ВЫВОД ОСТАЛЬНОЙ ЧАСТИ УП
while { [gets $ifile buf] > 0 } {
       puts $ofile "$buf"
}
close $ifile
close $ofile

MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name

 

Hide  

[lexincton 70]

16 минут назад, artem-nafanya сказал:

Ошибки при постпроцессировании нет, но и дубли не находит.

Вроде все правильно, кидайте пост

[artem-nafanya 18]

13 минуты назад, lexincton сказал:

Вроде все правильно, кидайте пост

#запись в процедуре WARNING_TOOLS

#чтение в в процедуре reprocess

 

VERTOR_C-1L_3.1_DOUBLE.7z

[lexincton 70]

52 минуты назад, artem-nafanya сказал:

#запись в процедуре WARNING_TOOLS

#чтение в в процедуре reprocess

 

VERTOR_C-1L_3.1_DOUBLE.7z

 

VERTOR_C-1L_3.1_DOUBLE.rar

[artem-nafanya 18]

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

 

VERTOR_C-1L_3.1_DOUBLE.rar

Отрабатывает правильно, но появилось ложное срабатывание, если один и тот же инструмент используется в нескольких операциях подряд (без смены инструмента), то код считает его дублем.

[lexincton 70]

3 часа назад, artem-nafanya сказал:

Отрабатывает правильно, но появилось ложное срабатывание, если один и тот же инструмент используется в нескольких операциях подряд (без смены инструмента), то код считает его дублем.

Так да, я так задачу и видел, напишите подробнее что надо получить

[artem-nafanya 18]

11 минуту назад, lexincton сказал:

Так да, я так задачу и видел, напишите подробнее что надо получить

В операциях обработки NX используется три инструмента: Т2, Т3, Т6.

Код отслеживающий дубли должен оперировать только этими инструментами, безотносительно того как и в каких количествах и в каком порядке они используются в операциях обработки.

Дублем инструмента должна считаться ситуация, если я:

-- создам новый инструмент с номером 2, 3 или 6 и буду использовать его в операциях обработки;

-- если сменю номер у существующего инструмента Т2 на на 6, тогда будет два инструмента с номером 6.

Изменено 25 января 2018 пользователем artem-nafanya

[lexincton 70]

6 минут назад, artem-nafanya сказал:

В операциях обработки NX используется три инструмента: Т2, Т3, Т6.

Код отслеживающий дубли должен оперировать только этими инструментами, безотносительно того как и в каких количествах и в каком порядке они используются в операциях обработки.

Дублем инструмента должна считаться ситуация, если я:

-- создам новый инструмент с номером 2, 3 или 6 и буду использовать его в операциях обработки;

-- если сменю номер у существующего инструмента Т2 на на 6, тогда будет два инструмента с номером 6.

Т.е. чтобы 2 разных инструмента не были под одним номером?

[artem-nafanya 18]

2 минуты назад, lexincton сказал:

Т.е. чтобы 2 разных инструмента не были под одним номером?

Верно.