|
#================================================================ e1 A4 f! o1 q* w. I
proc MOM_end_of_group {} {6 m/ R7 X3 _0 z. w3 `
#===============================================================
# h* X- L3 U8 m6 ~ global mom_stock_part
0 l" j6 W C+ D; W; d: r global max_cut_depth- u) e( t* g# e) x
global mom_group_name
" Z& f- w$ l8 ]; T6 ^ global mom_tool_name' j! S; E: x4 s+ |0 T
global mom_machine_time
* E: e6 v' Q( x* m4 `% } global sub_machine_time
+ U3 o0 [# ~9 S2 O# U global mom_stock_part
0 Z4 Y, M6 S. u7 ]1 { global mom_stock_floor- R+ q; D+ d) ?
global stock_part# k7 D7 ] l7 n1 M5 u* @; r
global machine_time
m% N1 `1 _( Z: h. k global cut_method+ A% G4 Z/ L5 R' d J
global depth
; G; Q$ K1 W6 W8 o M6 x global sn aq tls clm
5 @6 u2 U0 o7 x9 [& X+ s$ I global mom_clearance_plane_status0 J) U8 s' ^# |1 y! a! b2 p
global mom_spindle_speed
/ t; {* e1 ^5 j( I8 \' V global mom_feed_cut_value
1 F3 ~/ B5 N2 m, y! J, A+ m; M4 R( H set aq ""
6 w8 E, R) X5 ?& x2 H' P6 m( q% P #set sub_machine_time $mom_machine_time
; T' I( Y3 F3 q, N9 d: ^ set sub_machine_time [expr $mom_machine_time - $sub_machine_time]5 o% k2 r: L; Q( f' x/ x3 l
set stock_part [format "%.2f" $mom_stock_part]
' q* p4 F' z$ D& V. t if { $mom_clearance_plane_status == 1} {" \2 D, K9 u8 G+ `
if {$clm <= 0 } {set aq "请检查安全高度"}/ K [; w" [6 e8 x
}
f2 e# U" i$ t8 T* t if {$mom_clearance_plane_status != 1 } {set aq "未设安全高度"}" ?/ t( s) @7 N3 t
if {$mom_stock_part >= 0.1 } { set cut_method "粗" }% @1 l2 }1 j* q* d, m9 `
if {$mom_stock_part >= 0.03 && $mom_stock_part < 0.1 } { set cut_method "中光" }$ @' ?' d8 F7 L+ m8 d% R T
if {$mom_stock_part < 0.03 && $mom_stock_part >= 0 } { set cut_method "光" }2 [& g6 @/ S2 d# O: g9 s
if {$mom_stock_part <-0.15 } { set cut_method "光" }
0 p1 Q/ `% x9 M! N/ W7 ~ if {$mom_stock_part >=-0.15 && $mom_stock_part < 0 } { set cut_method "光" }; `- ?6 E3 I* a$ Q
C8 N) w' P: k1 d% r2 l
( I/ n( M% Z! f7 Y+ b if {[EQ_is_gt $sub_machine_time 0]} {
* M" z5 [; V% B& w" w4 B# c [- f set sn [expr $sn+1]8 g/ }1 t; `+ |* p% `7 {
MOM_output_literal "[format "%4d" $sn] [format "%6s" $mom_group_name] [format "%8s" $mom_tool_name] [format "%3s" $cut_method] [format "%7.2f" $stock_part] [format "%6.1f" $max_cut_depth]"! ` t* b0 Q" e
#MOM_output_literal "-------------------------------------------------------------------------------"& J4 m$ e7 T% E. F5 D
set sub_machine_time $mom_machine_time
- J+ @: w& O2 ?- w3 E }& _+ C# R4 O9 c6 J: A, e
4 y' P0 |4 h1 V; m" c
} |
|