|
global mom_tool_name mom_tool_type( Y, j3 E; q1 h2 P; p7 x, [2 O
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
1 g9 @' Z! b6 ~' @8 ?' Gglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG# H+ A9 z# Z) Z: M6 `7 J d
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius: J* @# `+ a* J% w8 ]6 S0 y
0 }) _$ {. }5 A. d5 R7 M9 V& @; T1 E
if { $mom_tool_type == "Drilling Tool" } {
/ ? S- b4 z' w. vset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]7 h! |, R9 E; p: u$ h) j
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip $ X% A* k h; _$ p7 e
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]2 l: B3 }- x6 g4 A! u
L=[format "%.2f" $mom_tool_length])". o0 b- {! p. q; y& E' f1 B! N
} else {% X& a) c- k! c. O
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
) R/ ]; ^5 p' g+ j& ^" Q"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]) l+ V x; A& T8 t9 S1 Q% \
L=[format "%.2f" $mom_tool_length])"# k5 f( ~; Z5 O2 M& {
} |
|