|
|
发表于 2019-10-20 13:57:46
|
显示全部楼层
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 toollistendi
set toollistendi 0
global mom_fixture_offset_value yj
set c [expr $mom_fixture_offset_value+53]
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]]} {
MOM_display_message "程序中有多个加工坐标系，基于MCS坐标系名称检测。"
}
}
|
|
}
:}
