|
global mom_tool_name mom_tool_type
; h6 G- [/ k3 T8 R5 F; B4 b: F2 Y1 _global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length4 @& F$ H" @! G/ D$ V0 A
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG0 r: g1 E5 @! J. _8 O# l
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
$ A0 @) G% u* p) l2 {0 }! T5 W9 @0 N1 q3 A4 _7 j
if { $mom_tool_type == "Drilling Tool" } {
) o3 S! r T/ h$ J% d% e9 w' Eset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]: _. \) N3 i- }3 {0 c
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip : d5 R/ f J1 r3 n4 v6 E
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
( x( o+ l7 \0 g0 p+ S9 h7 hL=[format "%.2f" $mom_tool_length])"
7 [, v- i0 v ~* y} else {% A8 M- \- ^0 O
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
2 t) Y$ c i* d% S: q, W @/ S& i"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length], a" U; u# P, p; S+ J# W
L=[format "%.2f" $mom_tool_length])"
- s+ N) s- H2 L0 P: b D} |
|