|
在tcl文件找到
. N. H! b/ u/ D) F& p. E3 H找到 proc PB_CMD_before_motion { } * g# N/ ^& l( w* [
修改为:8 U/ V. P! V N! k9 c6 h& W. ~
#=============================================================: n1 p" D; p9 ~9 `" G3 c: p
proc PB_CMD_before_motion { } {
* H' p2 b* V0 O R#=============================================================
7 c% E% f( Y: Z/ \8 A f1 d! w5 ] global mom_motion_event mom_motion_type
! u: E' ]5 U8 [! {( M( b global mom_pos
- n7 h% h2 C% }0 r/ @ global max_z min_z
) n$ e/ g3 O% P$ ?& Y# c
6 | U$ y) L2 R& O; o# o3 R: i FEEDRATE_SET
7 u' t! b' Z2 q/ ? switch $mom_motion_type { {; l* k, O% r! U2 { }
ENGAGE {PB_engage_move}
# B' G) v# A( l, M7 K" j' l APPROACH {PB_approach_move}" L9 d0 z/ p; m5 i
FIRSTCUT {PB_first_cut}& @: L% m& S& i5 J3 T' k5 E6 N
} l" P: J! I1 \2 H+ {5 c1 Q) r
# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}5 w2 r3 R+ v) C% A' T" V
! F* H% e7 ^$ E- B9 C
set pb_start_of_program_flag 0 , h7 W D, ~; m; ]) z+ l) m
! h- A0 Z7 Y+ F! I+ I; \: }
if {![info exists min_z]} {
+ x6 r, U7 g7 E8 @+ h3 M& _ set min_z $mom_pos(2)& M% c6 ]& _2 z [# s4 f! H s
} elseif { $mom_pos(2) < $min_z } {
/ C3 P/ ]' i- P E7 B; M3 p set min_z $mom_pos(2)
$ S' }. S3 C# p' A8 u }
7 c z" O- N) B if {![info exists max_z]} { g: M9 a6 s& h9 n
set max_z $mom_pos(2)
* T* Q2 W" a( T9 ^ { } elseif { $mom_pos(2) > $max_z } {
3 E. p- c' P+ ?* T8 S set max_z $mom_pos(2)
3 d9 `, v: W: X" i# K# ?! \/ H3 z } , G' N$ q+ X# u E& `8 E" I/ W
}
! u0 D; N1 |8 J2 p
3 I! p( B: ]+ A3 b T# Y主要是因为max_z和min_z没有定义导致错误. |
|