|
在tcl文件找到
0 l1 h3 r6 q: p: i找到 proc PB_CMD_before_motion { } ( r* w, g i6 @- t* S
修改为:) x4 ?2 J/ N3 W F! o4 Q, G
#=============================================================) V4 h9 T9 n# e8 \/ ?, T) k' P
proc PB_CMD_before_motion { } {
& n; w9 f* V9 h: G% d3 E#=============================================================; x! d g) W, M' w% s
global mom_motion_event mom_motion_type
1 J& O& T$ F* \& x/ J1 H. w4 h- E global mom_pos$ m2 u; F# D5 F
global max_z min_z
0 s. I+ a% b( a' ~% p% r 7 E V9 L: i+ N- H0 q$ x" I6 r
FEEDRATE_SET
1 T5 q* |( v: x4 B+ J3 K+ z switch $mom_motion_type {
3 @6 t* `+ i9 _/ P6 n. ? ENGAGE {PB_engage_move}
% r8 n- S+ f: k0 ^ APPROACH {PB_approach_move}7 H9 K, U& P: q. I: U
FIRSTCUT {PB_first_cut}
1 H/ K# G1 p; i- ?9 b }
|! l' I, E1 a. ^2 ~# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}
, |4 ?$ v$ g5 a* W) ^. k
2 E1 p7 {) T" x0 V) _' G- L set pb_start_of_program_flag 0
- P1 {" Q6 B' e7 \ * X) \7 J: d K$ `
if {![info exists min_z]} {( b! r: @- m/ d
set min_z $mom_pos(2)
7 B! a. E& ~" o9 Z7 J0 E& l* K/ e } elseif { $mom_pos(2) < $min_z } {
& I+ i3 z6 |, @7 B set min_z $mom_pos(2)
7 `: K$ N5 S+ J* ~. z9 ` K }( H2 q& \" R7 J7 y' X
if {![info exists max_z]} {
( d, P3 `# z- t: M set max_z $mom_pos(2)# b' \1 i, I, ~1 Y; E( Z8 t: @' V
} elseif { $mom_pos(2) > $max_z } {% \# D- L# C3 Y: K
set max_z $mom_pos(2), ]. @5 v' e8 B e/ v% n
}
! o' v8 R: {$ V# |$ T' P' Z. z}, N. S$ s, h9 O' {8 ^: M* |
7 k1 G( ?' l6 b9 [/ Q+ k主要是因为max_z和min_z没有定义导致错误. |
|