|
|
因为我是用软件往机床里传输程序（法兰克）它要识别程序里第一行的程序名，就是O0000这个，所以程序时间到第一行后软件识别不了，传输不进去。这是我在论坛里复制一位大神的代码，请大家帮忙看看怎么修改一下啊
global mom_machine_time
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 "( machine time = $mom_machine_time )"
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
|
|
发表于 2023-4-18 20:21:43
