|
global mom_tool_name mom_tool_type
7 ?. b5 P2 M, A! _3 A: Eglobal mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
# V& g3 k' ~1 B* B1 T$ pglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG( S3 @& S* K; t& U& \. }
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius: P1 _5 a+ w t& [9 s
0 }
% Z% E) S H& [% q: r5 B+ Yif { $mom_tool_type == "Drilling Tool" } {
2 f, v* c! N. Xset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]
3 U. B# ~! F" Q; g3 M0 } MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip
# X4 t1 T& G' fangle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
# u. r: k6 N$ n+ @L=[format "%.2f" $mom_tool_length])"
7 F6 y( n y- O# ^5 V( {; n/ P} else {: Y& H/ M; p$ u/ M* d
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
% ~6 }: u) }+ M' M6 o! i3 H& d"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]! W, o" l' L: i2 r7 R
L=[format "%.2f" $mom_tool_length])"
$ ]2 L8 V4 I5 v' {+ U; z} |
|