UG爱好者

标题: 请高手把限制五轴报警的TCL文件改成四轴报警的 [打印本页]

作者: Bridge_︻︻︻︻    时间: 2020-4-22 06:39
标题: 请高手把限制五轴报警的TCL文件改成四轴报警的
我在网上找到的一个限制五轴报警的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"
}


A.PNG (46.19 KB, 下载次数: 74)

A.PNG

作者: liaojun_128    时间: 2020-8-27 13:46
支持分享技术的楼主,抵制那些打着广告,看似好心,实为卖后处理的人,咨询点个小问题,就要收好几百块,谢谢楼主的轴向报错TLC判断语,我借用了,不过前面一大截好像跟轴向无关,是行程判断,改一下变量,三轴后处理也可以判断四轴程式,谢谢奉献的人。
作者: liaojun_128    时间: 2020-8-27 13:51
谢谢 奉献的人,点赞
作者: 黄如宇    时间: 2021-12-27 11:07
liaojun_128 发表于 2020-8-27 13:51
谢谢 奉献的人,点赞

人家是无私奉献了,但是你自私啊!!!东西拿了,却不告诉答案!!!
作者: okmawang    时间: 2021-12-29 09:48
liaojun_128 发表于 2020-8-27 13:46
支持分享技术的楼主,抵制那些打着广告,看似好心,实为卖后处理的人,咨询点个小问题,就要收好几百块,谢 ...

高手能解释一下楼主的语句吗?五轴C轴限位抽刀怎么写语句?
作者: 见过    时间: 2022-8-2 21:46
这个代码怎么使用的
作者: k3684952    时间: 2023-12-18 23:03
我也遇到这个状况了,。
请问大佬,您解决了吗?

作者: k3684952    时间: 2023-12-20 08:27
黄如宇 发表于 2021-12-27 11:07
人家是无私奉献了,但是你自私啊!!!东西拿了,却不告诉答案!!!

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

作者: 丶唯一的存在    时间: 2024-11-2 14:20
请问这行代码写在哪个位置?




欢迎光临 UG爱好者 (https://www.ugsnx.com/) Powered by Discuz! X3.2