|
|
写了个卧加4轴的坐标宏后处理，和刀具列表放在一起就输出到程序头了，但是我不想要刀具信息，只想要输出计算后的G65坐标，就把刀具列表里的信息删了，只保留坐标宏的，结果就不往程序头输出了，输出到程序尾了，哪位大佬帮忙看下，该怎么改命令块的输出信息
修改前
set mpn [string last "\\" $mom_part_name]
set mpn1 [expr $mpn+1]
set mpn2 [string range $mom_part_name $mpn1 end-4]
MOM_output_literal "(partname：$mpn2)"
set rq [clock format [clock seconds] -format "%Y\\%m\\%d %T"]
set xq [clock format [clock seconds] -format "%A"]
MOM_output_literal "(posttime：$rq )"
MOM_output_literal "(cuttime:[format "%.2f" $mom_machine_time]min)"
if {$number >= 3} {
for {set lis 0} {$lis < $number} {incr lis} {
MOM_output_literal "$tool($lis)"
}
}
global mycsys_list
if { [info exists mycsys_list] } {
set i [llength $mycsys_list]
for { set a 0} {$a <= $i} {incr a} {
MOM_output_literal "[lindex $mycsys_list $a]"
}
}
set ifile [open $tmp_file_name r]
set buf ""
while { [gets $ifile buf] > 0 } {
if {$buf == "toolinf"} {
MOM_output_literal $toolinf($ino)
set ino [incr ino]
} else {
MOM_output_literal $buf
}
}
close $ifile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
修改后
global mycsys_list
if { [info exists mycsys_list] } {
set i [llength $mycsys_list]
for { set a 0} {$a <= $i} {incr a} {
MOM_output_literal "[lindex $mycsys_list $a]"
}
}
G65 输出到最后了
|
|
发表于 
