|
F:\123
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_top_point_angle RAD2DEG
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_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] 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_corner1_radius] F=[format "%.2f" $mom_tool_flute_length] L=[format "%.2f"
$mom_tool_length])"}
|
|