UG三轴后处理同组里不同坐标报警提示！根据夹具偏置和坐标系名称判断！有需要的拿去！

global mom_operation_name nStep Step mom_operation_name_list mom_mcsname_attach_opr
global numbers
global times
global ZMLN

set ZMLN 0
set times 1
set Step -1
set nStep -1
set numbers 0

global mom_fixture_offset_value offset_flag
if {![info exists offset_flag]} {
    set offset_flag 0
}
if {[string compare $mom_fixture_offset_value 0]&&![string compare $offset_flag 0]} {
    set msg [MOM_display_message 程序中包含非G54坐标系,根据夹具偏置判断，默认值为0！请检查！]

        1 {
            set offset_flag 1
        }
        2 {
            MOM_abort 中止
        }
    }

global toollistendi
set toollistendi 0

global mom_fixture_offset_value yj
set c [expr $mom_fixture_offset_value+54]
set d [expr 0-$mom_fixture_offset_value]
set yj $mom_fixture_offset_value
global e
if {$mom_fixture_offset_value >= "0"} {
set e $c
} else {
set e 54.1\ P[format "%02.0f" $d]
}
#MOM_output_literal "G$e"
MOM_force once G_motion G_mold

global mom_operation_name_list mom_mcsname_attach_opr
foreach op $mom_operation_name_list {
           lappend mcs_list $mom_mcsname_attach_opr($op)
           }
set mcs_list_count [llength $mcs_list]

for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
     if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]]} {
    set msg [MOM_display_message 程序中包含多个坐标系，基于坐标系名称检测！请检查！]

        }
}