请高手把限制五轴报警的TCL文件改成四轴报警的

Bridge_︻︻︻︻

我在网上找到的一个限制五轴报警的TCL文件，当刀路出现五轴时（不管是定轴还是联动）报警，但我在三轴后处理上还想限制四轴报警，所以把TCL文件发上来，请高手改成四轴报警的TCL，谢谢！

#PB_CMD_check_travel_limits


   global mom_sys_max_travel
   global mom_sys_min_travel
   global mom_pos
   global mom_cycle_rapid_to_pos
   global mom_cycle_feed_to_pos
   global mom_cycle_retract_to_pos
   global mom_motion_type
   global feed
   global mom_spindle_speed
   global mom_group_name
   global mom_operation_name

set i 2

   if {![info exists mom_sys_max_travel]} {

         set mom_sys_max_travel($i) $mom_pos($i)
         set mom_sys_min_travel($i) $mom_pos($i)

   } elseif { ![string compare "CYCLE" $mom_motion_type] } {

         if {$mom_cycle_rapid_to_pos($i) < $mom_sys_min_travel($i)} {
            set mom_sys_min_travel($i) $mom_cycle_rapid_to_pos($i)
         }
         if {$mom_cycle_rapid_to_pos($i) > $mom_sys_max_travel($i)} {
            set mom_sys_max_travel($i) $mom_cycle_rapid_to_pos($i)
         }
         if {$mom_cycle_feed_to_pos($i) < $mom_sys_min_travel($i)} {
            set mom_sys_min_travel($i) $mom_cycle_feed_to_pos($i)
         }
         if {$mom_cycle_feed_to_pos($i) > $mom_sys_max_travel($i)} {
            set mom_sys_max_travel($i) $mom_cycle_feed_to_pos($i)
         }
         if {$mom_cycle_retract_to_pos($i) < $mom_sys_min_travel($i)} {
            set mom_sys_min_travel($i) $mom_cycle_retract_to_pos($i)
         }
         if {$mom_cycle_retract_to_pos($i) > $mom_sys_max_travel($i)} {
            set mom_sys_max_travel($i) $mom_cycle_retract_to_pos($i)
         }

   } else {

         if {$mom_pos($i) < $mom_sys_min_travel($i)} {
            set mom_sys_min_travel($i) $mom_pos($i)
         }
         if {$mom_pos($i) > $mom_sys_max_travel($i)} {
            set mom_sys_max_travel($i) $mom_pos($i)
         }

   }
global mom_tool_axis
set mta [ format  "%.13f" $mom_tool_axis(0)]
if {$mta != 0 } {
   MOM_output_to_listing_device "乔工温馨提示您"
   MOM_output_to_listing_device "程序名称:$mom_operation_name,是五轴刀路"
   MOM_output_to_listing_device "请检查刀路 更改刀轴 重新编程后再处理"
   MOM_output_to_listing_device "请注意刀轴"
MOM_abort "\n\n 请检查刀路 更改刀轴 重新编程后再处理 sz \n\n"
}

liaojun_128

支持分享技术的楼主，抵制那些打着广告，看似好心，实为卖后处理的人，咨询点个小问题，就要收好几百块，谢谢楼主的轴向报错TLC判断语，我借用了，不过前面一大截好像跟轴向无关，是行程判断，改一下变量，三轴后处理也可以判断四轴程式，谢谢奉献的人。

liaojun_128

谢谢 奉献的人，点赞

黄如宇

liaojun_128 发表于 2020-8-27 13:51
谢谢 奉献的人，点赞

人家是无私奉献了，但是你自私啊！！！东西拿了，却不告诉答案！！！

okmawang

liaojun_128 发表于 2020-8-27 13:46
支持分享技术的楼主，抵制那些打着广告，看似好心，实为卖后处理的人，咨询点个小问题，就要收好几百块，谢 ...

高手能解释一下楼主的语句吗？五轴C轴限位抽刀怎么写语句？

见过

这个代码怎么使用的

k3684952

我也遇到这个状况了，。
请问大佬，您解决了吗？

k3684952

黄如宇 发表于 2021-12-27 11:07
人家是无私奉献了，但是你自私啊！！！东西拿了，却不告诉答案！！！

兄弟，你解决这个问题没。
我也碰到这个问题了

丶唯一的存在

请问这行代码写在哪个位置？