|
global mom_tool_name mom_tool_type
" F$ @& L/ m% F( J* @9 u( s# B, Tglobal mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
) }+ }6 y$ G" f# H* f0 x! ^5 Vglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG
4 E- J' ` W! p+ W7 S3 \" Pif ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius; |' l# [5 B% [- d. w4 l
0 }- A' z9 E: S3 F, c3 q
if { $mom_tool_type == "Drilling Tool" } {" q _) O' d1 @4 m, D8 o2 h
set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]! o/ Z% d# _- @ ?) |
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip
t, h; H7 N e8 S1 z" Gangle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
1 V; C" P" o6 G8 E# L' m' tL=[format "%.2f" $mom_tool_length])"* w; k- V% ~8 v4 ?9 h
} else {
2 }8 c2 H* H5 S3 C& k9 U0 V' m& A MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
1 \% P* y' n' q/ Q9 }"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]
* ^; O! I- D: C$ {+ |L=[format "%.2f" $mom_tool_length])"/ |+ d+ c$ I0 l! }( j' k
} |
|