中校
UID2382423
U币1
G币9706
技术0
主题103
精华0
阅读权限90
注册时间2015-7-29
最后登录2024-11-23
在线时间894 小时
手机13761526384
中校
|
我在网上找到的一个限制五轴报警的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, 下载次数: 77)
|