|
|
发表于 2020-5-27 19:31:34
|
显示全部楼层
|
MOM_force once D global mom_spindle_speed global mom_operation_name if { $mom_spindle_speed == 0 } { set errmes " WARNING:$mom_operation_name S=0 PLEASE CHECK" MOM_abort "$errmes" } global mom_feed_cut_value global mom_operation_name if { $mom_feed_cut_value == 250 } { set errmes " WARNING:$mom_operation_name F=250 PLEASE CHECK" MOM_abort "$errmes" } global mom_tool_name mom_tool_type global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG if ![ info exists mom_tool_cornerl_radius ] { set mom_tool_cornerl_radius 0 } if { $mom_tool_type=="Drilling Tool"} { set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ] MOM_output_literal "(D=[ format "%.2f" $mom_tool_diameter] tip_angle=[ format "%.2f" $tip_angle])" } else { MOM_output_literal "(D=[ format "%.2f" $mom_tool_diameter] R=[ format "%.2f" $mom_tool_corner1_radius])" } ################################################################################ global mom_tool_number mom_tool_name global mom_operation_name if { $mom_tool_number == 0 } { set errmes " warning:$mom_operation_name T=0 PLEASE CHECK" MOM_abort "$errmes" } global mom_next_oper_has_tool_change if {[info exists mom_next_oper_has_tool_change]} { if { $mom_next_oper_has_tool_change=="YES"} { MOM_output_literal "M9" MOM_output_literal "M5" MOM_output_literal "/G91 G28 Z0." MOM_output_literal "M01" } } global mom_machine_time MOM_output_literal " (Total Operation Machine Time : [format "%.2f" $mom_machine_time] min )" |
|
