|
global mom_tool_name mom_tool_type5 H5 W. ?) c& O! d
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length' Z! K. s, T% E7 b6 ~& P1 S
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG1 x4 Y& K' J7 D; c
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius6 u# ]1 z" ~2 d/ ^: n2 H2 y
0 }8 E: V+ p- h. V/ W
if { $mom_tool_type == "Drilling Tool" } {
6 m: Z X; x$ n( |set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]# \, w. S8 x' u# }7 [
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip
5 X' D) i2 `7 T, R9 l( Oangle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]1 J8 i5 d2 Y0 K* [0 R( H
L=[format "%.2f" $mom_tool_length])"5 ?2 l' k0 }; n \
} else {
n& p$ J+ l+ |3 ~ l6 ?- M MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format) b- I T9 d; o
"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]# l; {5 F& e* B U0 B% ~# T
L=[format "%.2f" $mom_tool_length])"' d0 x: | q$ W4 i( |3 U
} |
|