在哪里添加什么代码,可使工件名跟文件名不一致,终止后处理

xjc*

proc MOM_start_of_program { } {
#=============================================================
  global mom_logname mom_date is_from
  global mom_coolant_status mom_cutcom_status
  global mom_clamp_status mom_cycle_status
  global mom_spindle_status mom_cutcom_plane pb_start_of_program_flag
  global mom_cutcom_adjust_register mom_tool_adjust_register
  global mom_tool_length_adjust_register mom_length_comp_register
  global mom_flush_register mom_wire_cutcom_adjust_register
  global mom_wire_cutcom_status


    set pb_start_of_program_flag 0
    set mom_coolant_status UNDEFINED
    set mom_cutcom_status  UNDEFINED
    set mom_clamp_status   UNDEFINED
    set mom_cycle_status   UNDEFINED
    set mom_spindle_status UNDEFINED
    set mom_cutcom_plane   UNDEFINED
    set mom_wire_cutcom_status  UNDEFINED

    catch {unset mom_cutcom_adjust_register}
    catch {unset mom_tool_adjust_register}
    catch {unset mom_tool_length_adjust_register}
    catch {unset mom_length_comp_register}
    catch {unset mom_flush_register}
    catch {unset mom_wire_cutcom_adjust_register}

    set is_from ""

        catch { OPEN_files } ; #open warning and listing files
    LIST_FILE_HEADER ; #list header in commentary listing



  global mom_sys_post_initialized
  if { $mom_sys_post_initialized > 1 } { return }


   # Load parameters for alternate output units
    PB_load_alternate_unit_settings
    rename PB_load_alternate_unit_settings ""

安全获取程序名和工件名（原始值）[color=var(--md-box-body-color,var(--md-box-global-text-color))]set raw_prog_name ""
set raw_part_name ""
if { [catch { set prog_name $mom_program_name }] } { set prog_name "UNKNOWN_PROG" }
if { [catch { set part_name $mom_part_name }] } { set part_name "UNKNOWN_PART" }

标准化名称[color=var(--md-box-body-color,var(--md-box-global-text-color))]set prog_name [regsub -all {[^A-Z0-9]} [string trim [string toupper $prog_name]] ""]
set part_name [regsub -all {[^A-Z0-9]} [string trim [string toupper $part_name]] ""]

调试输出，确认原始值和标准化后的值[color=var(--md-box-body-color,var(--md-box-global-text-color))]MOM_output_literal "(调试：原始程序名 =原始工件名raw_part_name)\n"
MOM_output_literal "(调试：处理后程序名 =工件名part_name)\n"

修改条件判断，比较原始值（如果希望如此）或者保持比较标准化后的值，但确保标准化过程正确[color=var(--md-box-body-color,var(--md-box-global-text-color))]if { [string compare $prog_name [color=red !important]part\_name] != 0 } { MOM\_output\_literal "(错误：程序名称与工件名称不符！原始程序名：raw_prog_name，原始工件名：$raw_part_name)\n"
MOM_abort "后处理终止：程序名与工件名必须一致"
}
[color=var(--md-box-body-color,var(--md-box-global-text-color))]自己加这段没反应