#=============================================================
proc PB_CMD_output_multi_mcs { } {
#=============================================================
global mom_fixture_offset_value
global mom_pos Totals_mcs
global mom_prev_pos n_c n_d n_e
global mom_operation_name
global mom_tool_number
global mom_inside_outside_tolerances
global mom_parent_group_name
global mom_group_name offset_flag
global mom_mcsname_attach_opr
global mom_out_angle_pos Zm1 Zm2
global mom_oper_geom stl tml tnl itl
global mom_mcsname_attach_opr tmll tmlll
if {![info exists offset_flag]} {
set offset_flag 0
}
if { $mom_fixture_offset_value == 0 } {
set n_e [expr 54]}
set n_c [expr $mom_fixture_offset_value+53]
set n_d [expr 0-$mom_fixture_offset_value]
if {$mom_fixture_offset_value >= 1} {
set n_e $n_c
}
if {$mom_fixture_offset_value < "0"} {
set n_e 54.1\ P[format "%1.0f" $n_d]
}
if {$mom_fixture_offset_value <= -10} {
set n_e 54.1\ P[format "%02.0f" $n_d]
}
set stl [expr $stl+1]
set tml($stl) $mom_fixture_offset_value
set tnl($stl) $mom_mcsname_attach_opr($mom_operation_name)
set tmll($stl) $n_e
set tmlll($stl) $mom_mcsname_attach_opr($mom_operation_name)
#MOM_output_literal "(当前坐标系:G$tmll($stl))"
for {set itl 0} {$itl < $stl} {incr itl} {
#MOM_output_literal "(排列坐标系:$tmlll($itl): G$tmll($itl))"
if {$tml($itl) == $mom_fixture_offset_value} {
set stl [expr $stl-1]
if {[string compare $tnl($itl) $mom_mcsname_attach_opr($mom_operation_name)]} {
MOM_output_to_listing_device "******************************************************************
温馨提示您 : 几何体名($mom_mcsname_attach_opr($mom_operation_name))的夹具偏置值与另外一个几何体夹具偏置值相同(是:$mom_fixture_offset_value)!请重新检查设置!
******************************************************************"
MOM_display_message "温馨提示您:
几何体名($mom_mcsname_attach_opr($mom_operation_name))的夹具偏置值与另外一个几何体夹具偏置值相同(是:$mom_fixture_offset_value)!请重新检查设置!"
MOM_abort "报警提示:有两个夹具偏置值相同!"
}
return
}
}