#=============================================================
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 "
}
}
感恩回馈 奉上代码
可以了 所以实现报警了 新人进来学习下！支持一下！感谢楼主 分享！赞赞赞赞赞赞赞！ 我是通过检查刀轴来判断是否有反向，我的3轴、90°侧铣、万向侧铣后处理都是用5轴后处理改的，就是想得到B轴C轴角度。这种方法就是要牺牲掉4轴5轴联动钻孔、铣孔功能。
下面是我的代码
#放置于===线性移动 圆周移动 快速移动钻孔循环
#防止同一个NC程序中出现刀轴不一,特别是孔铣中部分孔反向
global mom_out_angle_pos
global mom_operation_name
global ffx_b
global ffx_c
if {} { ;# 判断 变量存在时
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 且行且珍惜、 发表于 2023-8-15 15:21
#=============================================================
proc PB_CMD_3A { } {
#===== ...
请教下 如果直接加tcl文件里面好弄吗 感谢分享，学习一下{:loveliness:}
页:
1
[2]