如何判断刀轨下一层深度小于上一层深度

且行且珍惜、

#=============================================================
proc PB_CMD_3A { } {
#=============================================================
global mom_tool_axis
global mom_operation_name
set mta [ format  "%.13f" $mom_tool_axis(0)]
if {$mta != 0 } {

MOM_abort "  \n\n\n温馨提示您：工序：《$mom_operation_name》的刀轴不垂直于ZM，请分析加工面是否是水平面!!! \n\n\n "
}
set mtaa [ format  "%.2f" $mom_tool_axis(2)]
if {$mtaa != 1 } {

MOM_abort "  \n\n\n温馨提示您：工序：《$mom_operation_name》的刀轴不垂直于ZM，如果是孔铣请检查是否有从背面进刀!!! \n\n\n "
}
}

感恩回馈 奉上代码

罒鋒ㄨゞ仁█

可以了 所以实现报警了

YBB123456

新人进来学习下！支持一下！感谢楼主 分享！赞赞赞赞赞赞赞！

这么近

我是通过检查刀轴来判断是否有反向，我的3轴、90°侧铣、万向侧铣后处理都是用5轴后处理改的，就是想得到B轴C轴角度。这种方法就是要牺牲掉4轴5轴联动钻孔、铣孔功能。
下面是我的代码

#放置于===线性移动 圆周移动 快速移动  钻孔循环
#防止同一个NC程序中出现刀轴不一,特别是孔铣中部分孔反向
global mom_out_angle_pos
global mom_operation_name
global ffx_b
global ffx_c
if {[info exists ffx_b]} {         ;# 判断 变量存在时
  if {$mom_out_angle_pos(1) != $ffx_b || $mom_out_angle_pos(0) != $ffx_c} {      ;# 判断当前刀轴不等于初始刀轴
set errmes "\n\n 提示您：工序名称为:$mom_operation_name 的有刀轴反向, 请检查程序!!!\n\n"
    MOM_abort "$errmes"             ;#中止后处理操作并输出操作名称等信息
   }
  } else {                       ;# 否则 变量不存在时
set ffx_b $mom_out_angle_pos(1)   ;# 赋值初始刀轴
set ffx_c $mom_out_angle_pos(0)   ;# 赋值初始刀轴
}
}



#放置于===刀轨结束 ，  删除变量为下一个工序防错做准备
#如果不需要4轴和5轴多面定向加工，以下代码可以全屏蔽，将对整个程序检查刀轴反向
global ffx_b
global ffx_c
unset ffx_b
unset ffx_c

luochen922*

且行且珍惜、 发表于 2023-8-15 15:21
#=============================================================
proc PB_CMD_3A { } {
#===== ...

请教下 如果直接加tcl文件里面  好弄吗

年轻的勇士

感谢分享，学习一下{}