|
global mom_tool_name mom_tool_type v1 V5 \. w6 d6 j, l
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length8 K( T5 a% f" t3 F1 F- z* C
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG. c) V$ X# I' ^1 U5 r( T6 `- ^ |
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
/ N+ _9 q4 @ y/ U, h0 s& i9 k0 }2 D+ |0 }! Y5 L! H
if { $mom_tool_type == "Drilling Tool" } {
( b! G% j/ O0 O6 s6 bset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]% C! P! A! m$ U; j
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip 2 X( E" [+ U/ s* W! _
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]
. N1 `, V! g' H N5 S- y+ HL=[format "%.2f" $mom_tool_length])"
( l. C3 g: n% s1 f- c# g} else {
/ O- {8 c$ h, v! h) m) w MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
3 h6 j7 Z2 n( H, v( ~# [; C"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]0 X L# O4 a0 f% m+ s
L=[format "%.2f" $mom_tool_length])"/ ~2 D. M$ ?; q5 q
} |
|