|
global mom_tool_name mom_tool_type
7 k$ H) r9 v) vglobal mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length: ^# A$ d! r+ Q1 P% ~9 Q
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG) O; G$ w0 ^! t# }0 ~. }
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
% o% K# ^; \( f* K: s. t! B0 }
: K: i! p' X) o6 O+ z+ s# d& D: @1 v8 {if { $mom_tool_type == "Drilling Tool" } {* O+ ?8 Z& [- a
set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]3 K Y9 R# A8 {
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip
- r8 ?- G- R# `3 gangle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]% f; y! M2 a- `3 y- y5 C- p
L=[format "%.2f" $mom_tool_length])"& ^, S) N" x9 ~" H
} else {& W2 L0 D/ Q7 t5 G. p
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format! a3 Q$ ]# D5 l2 I: S: N) L4 B
"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]) u1 E8 |( c1 @2 Z9 L- W( N3 F8 `3 |
L=[format "%.2f" $mom_tool_length])"( K! p' s! z6 J+ O
} |
|