UG三轴后处理加入（刀具信息，自动换刀选择停止，YZ最大最小行程时间程序头显示

涛涛哥 · 发表于 2018-11-20 20:37:25

xuexixuexi

p292833184 · 发表于 2018-11-20 20:56:51

LKJB.;K.KJL.,和规范化的规范化地方

zhuyin54765101 · 发表于 2018-11-20 23:38:27

谢谢分享！

jianfeng13148 · 发表于 2018-11-22 07:14:01

666666666666

大辰 · 发表于 2018-11-22 10:50:56

像楼主虚心学习

1037894421 · 发表于 2018-11-22 11:57:12

haohaohaohao

老王小王王小王 · 发表于 2018-11-23 13:40:29

988555

4922349223 · 发表于 2018-11-27 13:56:52

好好好好谢谢

zdd147 · 发表于 2018-11-27 16:42:48

两根萝卜 · 发表于 2018-11-28 04:35:26

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