后处理卡不懂，懂语言的老铁来告知一下啥意思

21654

{:cry:}global ptp_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_machine_time
set cutting_time "(CUTTING TIME: [ format  "%.2f" $mom_machine_time])"
puts "%"
puts $cutting_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

赤兔拉磨*

后处理语言是一种机器语言，
说白了就是，不是人话！

VYF0412

感觉就是程序头的意思