|
在tcl文件找到/ v0 G) F6 J l: w. t! [
找到 proc PB_CMD_before_motion { } 6 Z& U6 o' L. A7 s
修改为:
: t5 z9 \ S8 M#=============================================================
6 v6 ~+ d1 a; N+ L: [proc PB_CMD_before_motion { } {
: |9 K$ o* Q: U) N4 J2 {#=============================================================
/ ^4 u; W. r5 R' S! e P global mom_motion_event mom_motion_type) a: e& o: p5 F' W3 L5 D
global mom_pos
* u. _2 w$ ?6 v) n& p6 m, Y0 e global max_z min_z( g- {- @: ^# A4 B
! _% K1 g& S# @2 J! d FEEDRATE_SET/ ]+ {; J) B5 ^( [% x
switch $mom_motion_type {
4 F5 R" C3 k' d' w$ S3 i7 g ENGAGE {PB_engage_move}
* Y7 \8 J/ l9 R& ~. Y2 Q6 i2 B APPROACH {PB_approach_move}
/ h8 ?) z5 y" A FIRSTCUT {PB_first_cut}( p+ j& N }+ A' @9 B* J
}
. C, ~) V' z: P2 i5 ^& B v" X# if {[llength [info commands PB_CMD_before_motion]]} {PB_CMD_before_motion}3 x; h( C4 f7 a7 W; O
6 t; p7 B& S% R5 ~+ V( z set pb_start_of_program_flag 0
/ z6 P4 e' k) _+ ~) r4 _ h " u1 j8 l. f. h9 D9 A1 ~1 \8 S
if {![info exists min_z]} {
" |! v) G. I3 m' K$ T set min_z $mom_pos(2)8 I' E. t, `6 D
} elseif { $mom_pos(2) < $min_z } {4 s4 C/ q3 V( u/ l
set min_z $mom_pos(2)2 s+ I4 e4 [% w% ?5 v2 h
}- r9 n5 B, p; @# }* e
if {![info exists max_z]} {$ O) F$ }8 f) s9 H
set max_z $mom_pos(2)
. O+ p7 E2 A' w1 u B& c9 O6 l } elseif { $mom_pos(2) > $max_z } {
1 ] ?1 B" l3 O( v* W set max_z $mom_pos(2)& Z7 y2 ~, W) M, @) C. y
}
8 T+ F" F/ K9 w/ c}7 s ~: V, @9 q* l
& L9 z6 [% `5 H- L4 z$ [; ]主要是因为max_z和min_z没有定义导致错误. |
|