jdtx168 发表于 2018-6-16 13:45:33

dddddddddddddddddddd

952116623 发表于 2018-6-16 13:57:52

好东西 谢谢分享

老杨哥 发表于 2018-6-21 16:39:07

看看大湿的高招

15271678240 发表于 2018-6-22 13:46:33

44444444444444

狼儿 发表于 2018-6-30 08:34:13

fanuc_A

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 {} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name

file rename $ptp_file_name $tmp_file_name
set ifile
set ofile

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 { > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
页: 14 15 16 17 18 19 20 21 22 23 [24] 25 26 27 28 29 30 31
查看完整版本: 防止工件过大编程超过机床XYZ最大极限值代码