|
在tcl文件找到
6 e& n% O- T2 J) S% ?找到 proc PB_CMD_before_motion { } . K+ N8 I$ l* J! k9 M# s
修改为:
3 E+ I8 ] O$ f" I: K+ a( s#=============================================================. o* l3 K" }1 @ v
proc PB_CMD_before_motion { } {! U. B1 c z2 i$ d3 O+ S$ ~! s
#=============================================================
, \4 {; C, {) b! h* m3 x L global mom_motion_event mom_motion_type
3 F* ] P# w+ [ global mom_pos
" ~7 d2 d! g4 P2 S' z" `2 ? global max_z min_z/ V/ f* v2 A# Z! \
1 x4 g Z8 {3 ?" W! X
FEEDRATE_SET
& \6 |4 d- B5 Z switch $mom_motion_type {
& U8 B9 ^8 _- o% m ENGAGE {PB_engage_move}
* p# K# z4 i/ h: k! o APPROACH {PB_approach_move}. G) |! a+ r' V
FIRSTCUT {PB_first_cut}
* R' {8 n+ T0 }7 n1 W }
- C; `" G; @8 S m# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}$ m2 `! ~7 {: ~) j/ I" z0 G B
" j8 L3 m0 ?" T: A
set pb_start_of_program_flag 0
& n( w4 B: R- B3 ]/ G8 z; R 8 w( i$ u: `8 X$ c; ]! I
if {![info exists min_z]} {4 @6 x- `& `" T( t! s! h
set min_z $mom_pos(2)
c; d5 V& u& B* b4 S* V0 V } elseif { $mom_pos(2) < $min_z } {
: k- W# N: V0 X set min_z $mom_pos(2)
' w/ ]7 X4 X4 d' K }% p" d6 J8 e- I7 @5 a4 _
if {![info exists max_z]} {: v" x! \7 i! j: P6 X1 M% ]
set max_z $mom_pos(2)6 j, l5 W: C1 l f9 R7 u- T
} elseif { $mom_pos(2) > $max_z } {) ]7 b5 ^% v% A3 A
set max_z $mom_pos(2)+ Y4 y! d1 A3 Q- R/ n' F ~
} * d6 h, X* P, n4 v6 `
}, c$ v7 A" ]1 q" B; }) f
2 f. [ j+ B, B W' b K
主要是因为max_z和min_z没有定义导致错误. |
|