防止工件过大编程超过机床XYZ最大极限值代码

cchang2009 · 发表于 2018-7-4 17:51:25

谢谢分享

893011376 · 发表于 2018-7-5 22:15:09

你这是改的迈

qq51647539 · 发表于 2018-7-7 09:29:08

楼主好人啊！

lucklyday* · 发表于 2018-7-17 17:00:56

检测最大值咯

hetu1111 · 发表于 2018-8-27 22:27:01

global ptp_file_name
global tmp_file_name

set tmp_file_name "${ptp_file_name}_"
if {[file exists $tmp_file_name]} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name

file rename $ptp_file_name $tmp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name w]

global mom_sys_max_travel
global mom_sys_min_travel
puts $ofile "( Max X = $mom_sys_max_travel(0) MIN X = $mom_sys_min_travel(0) )"
puts $ofile "( Max Y = $mom_sys_max_travel(1) MIN Y = $mom_sys_min_travel(1) )"
puts $ofile "( Max Z = $mom_sys_max_travel(2) MIN Z = $mom_sys_min_travel(2) )"

set buf ""
while { [gets $ifile buf] > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name

bahpei · 发表于 2018-8-28 09:48:34

DDDDDDDDDDDDDDDDDDDDDDD

624255353 · 发表于 2018-8-28 10:35:26

谢谢分享。。。。。。。

8855 · 发表于 2018-9-12 19:46:48

64561312

树欲静而风不止* · 发表于 2018-9-14 22:15:53

666666

lixinhua1981081 · 发表于 2018-9-22 01:33:14

感谢分享

[分享] 防止工件过大编程超过机床XYZ最大极限值代码

论坛贡献

论坛元老