|
global mom_tool_name mom_tool_type
* ~- ~2 a3 y- H, I- F- Dglobal mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
6 ?% e0 p# p( ?3 ? C1 `" Qglobal mom_tool_length tip_angle mom_tool_point_angle RAD2DEG# Z5 v1 g1 c# y+ T
if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius
5 O' O# Y! x( X9 V0 }
, T i$ T$ {$ ?: zif { $mom_tool_type == "Drilling Tool" } {
1 W& s( e5 x& W; t2 i6 aset tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]
1 J+ L' }6 s D- c8 F5 Z MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip 8 m6 h) k0 w0 c0 I" `1 P
angle=[format "%.2f" $tip_angle] F=[format "%.2f" $mom_tool_flute_length]- K3 w$ a, A- ]" r; _" _
L=[format "%.2f" $mom_tool_length])"
T8 J6 f8 T m" u5 q. {} else {5 V7 w* v: j/ x
MOM_out_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format
# F" `$ s& R" `* @"%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length]
3 O1 `* J0 z e0 a. QL=[format "%.2f" $mom_tool_length])"
, U6 ?0 w# j( t/ X \) r6 Z- o} |
|