lobal mom_tool_name mom_tool_type global mom_tool_diameter mom_tool_cornerl_radius m global mom_tool_name mom_tool_type global mom_tool_diameter mom_tool_cornerl_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_corner1_ radius 0 } Mom_output_literal"($mom_operation_name)" Mom_output_literal"($mom_tool_namemom_tool_type)" 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] F=[format "%.2f" mom_tool_flute_length_] L=[format "%.2f" $mom_tool_length])" } else { {MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[ format "%.2f" $mom_tool_corner_radius] F=[format "%.2f" $mom_tool_flute_length] L=[format "%.2f" $mom_tool_length])" } |