|
在tcl文件找到
/ k4 C$ C. k Q5 l9 e找到 proc PB_CMD_before_motion { }
+ h- j) J% w& Z' R修改为: u& A; t) Y W
#=============================================================
% N N& C+ T. d4 G: M0 X8 T0 `9 Rproc PB_CMD_before_motion { } {5 N0 x# Z& d, c
#=============================================================
9 J5 [+ D: {4 Y4 K7 I9 } global mom_motion_event mom_motion_type
$ N; M. K1 B, ^: Q2 | global mom_pos
8 L5 T- L1 J+ D* v2 S global max_z min_z
; N$ c/ w! n1 W
2 b F* B/ j0 F% F FEEDRATE_SET
k) _+ Z( W8 t7 ^ F0 @4 p switch $mom_motion_type {
0 @3 s( F G1 m# F ENGAGE {PB_engage_move}/ }' n, H9 d; G1 d) u5 W6 b
APPROACH {PB_approach_move}$ y3 Y) N7 i' K6 l* h
FIRSTCUT {PB_first_cut}
" V6 t9 k( ]" z }* `) ^6 g$ F+ Z" ]. t* B; d) N d& r
# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}
' r% m6 V! c" N* s6 w0 O* a L. e+ _2 g9 ?0 G6 e8 j( v
set pb_start_of_program_flag 0 2 r( F4 n3 o3 N7 L
7 {# A$ Y* s8 W# A# o- H if {![info exists min_z]} {
2 v' {7 l- B- j5 T6 S: c. P set min_z $mom_pos(2)
; i) s5 b7 x' X% g H% @* H0 X. W- b } elseif { $mom_pos(2) < $min_z } {: v* G5 j, v& u4 Y# `5 ?* u3 t
set min_z $mom_pos(2)
- m/ }% k1 F8 e% }1 L8 g) D }9 N! N* X9 }( C' e: ^" j
if {![info exists max_z]} {
5 f( {1 s% s6 N: \ set max_z $mom_pos(2)" H6 q$ i$ m3 p
} elseif { $mom_pos(2) > $max_z } {
( a0 {2 a {! \% q* A- V set max_z $mom_pos(2)$ c0 U5 T+ b, N
} ; n2 p! v" a$ H: f* M
}( p( O5 h' j2 q) M
7 Q+ z0 {4 Z& I( n& I主要是因为max_z和min_z没有定义导致错误. |
|