UG爱好者

标题: 后处理卡不懂，懂语言的老铁来告知一下啥意思 [打印本页]

作者: 21654 时间: 2021-12-21 10:40
标题: 后处理卡不懂，懂语言的老铁来告知一下啥意思

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

作者: 赤兔拉磨* 时间: 2021-12-21 11:37
后处理语言是一种机器语言，
说白了就是，不是人话！

作者: VYF0412 时间: 2021-12-29 15:17
感觉就是程序头的意思

欢迎光临 UG爱好者 (https://www.ugsnx.com/)