|
global mom_tool_name mom_tool_type% v9 h" C, ^* \, X; T: [
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
; ?" G8 X) u4 t! W) _0 ^2 Nglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG1 h# f+ w, F9 H
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
1 m* {! `$ A# r1 Y2 a1 M0 }5 P+ R4 E* _. u' B6 A# B6 j5 o, G
if { $mom_tool_type == "Drilling Tool" } {1 m4 m/ g$ o7 ~6 R
set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]
+ d4 l5 I- k/ j, O% a: `; U3 [ MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip 1 f7 l# V+ s8 i3 r
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
$ C3 o# H E" t: ~! q+ dL=[format "%.2f" $mom_tool_length])"
_/ }6 X0 k' ^1 Z( Z} else {, G0 [1 S* p7 \' @: k% f% _
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format+ R8 _$ f4 n5 i6 M
"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]
I& Z) R$ n3 F( J# W6 y1 @L=[format "%.2f" $mom_tool_length])"4 [! J0 C' E; v* q1 M6 U
} |
|