标题: 后处理如何IJK为0时不输出 [打印本页] 作者: 华夏帝国 时间: 2022-5-4 16:37 标题: 后处理如何IJK为0时不输出 代码我在网上找了一些,但不会用,有大佬帮忙加一下吗?
global mom_pos_arc_plane
global mom_sys_cir_vector
global mom_sys_helix_pitch_type
global mom_helix_pitch
global mom_prev_pos mom_pos_arc_center
global PI
switch $mom_pos_arc_plane {
XY { MOM_suppress once K ; set cir_index 2 ;if {[format "%.3f" [expr $mom_pos_arc_center(0) - $mom_prev_pos(0)]] == "0" } {MOM_suppress once I}
if {[format "%.3f" [expr $mom_pos_arc_center(1) - $mom_prev_pos(1)]] == "0" } {MOM_suppress once J} }
YZ { MOM_suppress once I ; set cir_index 0 ;if {[format "%.3f" [expr $mom_pos_arc_center(2) - $mom_prev_pos(2)]] == "0" } {MOM_suppress once K}
if {[format "%.3f" [expr $mom_pos_arc_center(1) - $mom_prev_pos(1)]] == "0" } {MOM_suppress once J}}
ZX { MOM_suppress once J ; set cir_index 1 ;if {[format "%.3f" [expr $mom_pos_arc_center(0) - $mom_prev_pos(0)]] == "0" } {MOM_suppress once I}
if {[format "%.3f" [expr $mom_pos_arc_center(2) - $mom_prev_pos(2)]] == "0" } {MOM_suppress once K}}
}