UGNX三轴后处理同组不同坐标报警提示，根据夹具偏置和

三轴UG后处理同组不同坐标报警提示，根据夹具偏置和坐标系名称判断！

1. global mom_operation_name nStep Step mom_operation_name_list mom_mcsname_attach_opr
   
2. global numbers
   
3. global times
   
4. global ZMLN
   
5. 
   
6. set ZMLN 0
   
7. set times 1
   
8. set Step -1
   
9. set nStep -1
   
10. set numbers 0
    
11. 
    
12. global mom_fixture_offset_value offset_flag
    
13. if {![info exists offset_flag]} {
    
14.     set offset_flag 0
    
15. }
    
16. if {[string compare $mom_fixture_offset_value 0]&&![string compare $offset_flag 0]} {
    
17.     set msg [MOM_display_message 程序中包含非G54坐标系,根据夹具偏置判断，默认值为0！请检查！]
    
18. 
    
19.         1 {
    
20.             set offset_flag 1
    
21.         }
    
22.         2 {
    
23.             MOM_abort 中止
    
24.         }
    
25.     }
    
26. 
    
27. 
    
28. global toollistendi
    
29. set toollistendi 0
    
30. 
    
31. global mom_fixture_offset_value yj
    
32. set c [expr $mom_fixture_offset_value+54]
    
33. set d [expr 0-$mom_fixture_offset_value]
    
34. set yj $mom_fixture_offset_value
    
35. global e
    
36. if {$mom_fixture_offset_value >= "0"} {
    
37. set e $c
    
38. } else {
    
39. set e 54.1\ P[format "%02.0f" $d]
    
40. }
    
41. #MOM_output_literal "G$e"
    
42. MOM_force once G_motion G_mold
    
43. 
    
44. global mom_operation_name_list mom_mcsname_attach_opr
    
45. foreach op $mom_operation_name_list {
    
46.            lappend mcs_list $mom_mcsname_attach_opr($op)
    
47.            }
    
48. set mcs_list_count [llength $mcs_list]
    
49. 
    
50. for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
    
51.      if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]]} {
    
52.     set msg [MOM_display_message 程序中包含多个坐标系，基于坐标系名称检测！请检查！]
    
53. 
    
54.         }
    
55. }

复制代码