|
global mom_tool_name mom_tool_type$ C f1 j8 _* ]; w1 H G, u2 f. m6 g
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
A, ?, b, X$ Q7 M& n6 Pglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG7 q) R, e* O# y7 }$ v6 }1 t, I
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
# t( Z* i9 Q+ |& ?& c+ H4 a0 }
! _0 L# r' V' J2 i0 A% t6 g" z8 zif { $mom_tool_type == "Drilling Tool" } {% T0 a2 }2 k! c0 p. U
set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]6 {. h* ?' `% z7 v, W! C" \: A
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip
, `# q, c: K U2 ?4 p; N9 xangle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
# Z& k: \8 Q; a" O9 {, ?L=[format "%.2f" $mom_tool_length])"
6 h5 M2 G1 h1 ?& J} else {9 q, ?8 s$ g. S4 [3 `/ J: h- D0 K
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
$ C6 G+ U: A0 T- {- c"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]
; \; U2 W, z v, e: W3 F& Z& U, VL=[format "%.2f" $mom_tool_length])"$ W( j% ]6 S/ H, D/ s
} |
|