|
在tcl文件找到6 U/ c( b, g/ P. Q
找到 proc PB_CMD_before_motion { } . i* {, E, V* q: v" q
修改为:: h% J/ A7 t. {+ `2 x! s
#=============================================================0 h9 z8 z. F: @$ P) i
proc PB_CMD_before_motion { } {6 |; M5 `0 ?8 z5 _' o7 M: R7 c
#=============================================================4 a+ T' q" [/ K: z; o8 Z: @
global mom_motion_event mom_motion_type
, J: ~9 _, d) d/ m1 r; H global mom_pos
) C; w. k1 a8 }2 ^2 A4 v$ B* y$ b$ g global max_z min_z5 D6 b( a7 ] F& z. q( x' w L
# w" i. F }6 p3 T* H- k2 v5 H% y A7 l, F
FEEDRATE_SET- p6 H) \4 A$ e! A6 M
switch $mom_motion_type {3 J. ~ [- k7 z9 h
ENGAGE {PB_engage_move}1 N5 ~& y# z2 X) Z
APPROACH {PB_approach_move}
/ _$ s2 H/ L) B FIRSTCUT {PB_first_cut}
, n+ C, x3 u8 H8 K }8 l' f3 z: r+ H) p5 `' V' R1 ^ c
# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}+ j/ D7 z/ b6 }* V! y. k. v, d( {3 o
4 K) E; J6 T0 s5 ?
set pb_start_of_program_flag 0 1 q1 d9 O" S, |% B
: T9 C; ?4 Z/ z( V4 Z
if {![info exists min_z]} {* G0 m9 H7 A9 p0 }& T' A, g( S
set min_z $mom_pos(2). o( E o2 }, c0 s
} elseif { $mom_pos(2) < $min_z } {6 _% P" k/ B, z. `% I4 f& @
set min_z $mom_pos(2)
: E2 Y* c) F S' D6 b7 Q& u }
1 I) C; I# k. W$ L/ n if {![info exists max_z]} {
) d) ^" y# M! U' c. ?& p set max_z $mom_pos(2)1 U# S$ w/ l. ]* Q
} elseif { $mom_pos(2) > $max_z } {
0 G& u2 p$ ~+ q6 W% E" U+ G4 h# E set max_z $mom_pos(2)
3 x( i$ h$ Z& D5 |1 U( | } 4 T7 |1 g& r% Y+ s5 A
}' N5 M( A ?: p2 \+ t8 Z( s
. @+ v+ e$ s0 @/ E主要是因为max_z和min_z没有定义导致错误. |
|