UG后处理程序组内多个坐标系输出警告代码

有时候我们编程可能会使用到多个坐标系，然后将程序给调机的会忘记告诉他使用了多个坐标系，而他也可能因为疏忽，不去复查程序导致撞机的恶性事件发生在此附上一段代码，检测坐标偏置值是否一致不一致的输出警告，或者可以选择终止。

global mom_fixture_offset_value offset_flag
 if {![info exists offset_flag]} {
     set offset_flag 0
 }
 if {[string compare $mom_fixture_offset_value 1]&&![string compare $offset_flag 0]} {
     set msg [MOM_display_message 程序中包含多个坐标系，请选择 后处理消息 I 按原程序输出  中止后处理]
     switch $msg {
         1 {
             set offset_flag 1
         }
         2 {
             MOM_abort 中止
        }
     }
 }