后处理处理出来的中文乱码怎么解决？

安稳岁月

tombai691019 发表于 2024-10-31 11:04
这个是写刀单时你用的是PUTS命令，不是用的MOM_output_literal 命令。中文显示会有问题，要么改命令要么 ...

好的  非常感谢大神{}{}

丶唯一的存在

#忘忧草# 发表于 2024-10-30 12:25
只有刀具清单乱码，我猜测和你的模板文件创建时的系统环境有关。你先试试不用模板创建操作和刀具，并且刀具 ...

重新新建刀具用中文.还是刀具清单中文乱码.其他是正常的





%
O0001
G17 G40 G49 G80
(2025/03/25 15:55 /2)
(NC name: 107370-01.NC)
(Machine time: 0.48 MIN)
(Total Tool:1)
(T1=D10绮楀垁 D=30. R=0. H01)
M05
M09
G91 G28 Z0.0
G91 G28 X0. Y0.
G40 G49 G80 G90
N1 (T110粗刀  D=30. R=0. H=01)
M01
M06 T01
(光面1)
M69
M11
G00 G90 G54 B0.0 C0.0
G00 G90 G54 X-52.273 Y14.85 S5000 M03
G43 Z10. H01
M08
M10
M68
Z0.0
G01 X-34.273 Y14.851 F1000. M08
X34.272 Y14.852
G02 X37.284 Y2.251 I-34.272 J-14.852
G01 X-37.284 Y2.249
G03 X-35.889 Y-10.353 I37.284 J-2.249
G01 X35.889 Y-10.351
X53.889 Y-10.35
G00 Z10.
M09
G91 G28 Z0. M05
M69
M11
G91 G28 X0. Y0.
G90 G00 G54 B0. C0.
M30
%

丶唯一的存在

tombai691019 发表于 2024-10-31 11:04
这个是写刀单时你用的是PUTS命令，不是用的MOM_output_literal 命令。中文显示会有问题，要么改命令要么 ...

代码关掉刀具清单就不显示.打开就乱码.好像不识别MOM代码




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 tooli numbers toolnumbers sametoolZmin
global mom_output_file_basename
global mom_part_name
global mom_date numbers
global mom_part_name st1 st2 st3 st4




puts $ofile "%"
puts $ofile "O0001"
puts $ofile "G17 G40 G49 G80"
#puts $ofile "(Part: $st3)"
#puts $ofile "(Equipment: FANUC)"



#MOM_output_literal "%"
#MOM_output_literal "O0001"
#MOM_output_literal "$mom_output_file_basename"
#MOM_output_literal "(Part: $st3)"
#MOM_output_literal "(NC Name: $mom_output_file_basename.NC)"
#puts $ofile "(Equipment: FANUC)"
#MOM_output_literal "G17 G40 G49 G80"



global mom_part_name
#puts $ofile "(Part: $mom_part_name)"
global mom_date
set datee [clock format [clock seconds] -format "%Y/%m/%d %H:%M /%w"]
puts $ofile "($datee)"
global mom_output_file_basename
puts $ofile "(NC name: $mom_output_file_basename.NC)"
global mom_machine_time
puts $ofile "(Machine time: [format "%.2f" $mom_machine_time] MIN)"
MOM_output_literal "(Total Toolnumbers)"
#puts $ofile "(Total Toolnumbers)"
global toollistend ii iii Step numbers

for { set ii 0 } { $ii < $numbers } { incr ii } {
set iii [expr $ii+1 ]
MOM_output_literal "($toollistend($ii))"
#puts $ofile "($toollistend($ii))"

}

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

tombai691019

丶唯一的存在 发表于 2025-3-25 16:26
代码关掉刀具清单就不显示.打开就乱码.好像不识别MOM代码

puts 命令与MOM_output_literal 命令不要混着用。这样后面的MOM_output_literal 或不起作用了。

tombai691019

丶唯一的存在 发表于 2025-3-25 16:26
代码关掉刀具清单就不显示.打开就乱码.好像不识别MOM代码

代码改一下顺序，先用MOM_output_literal 输出刀单后再用puts 代码把其它数据写入就可以了。

419511411

把puts $ofile 换成MOM_output_literal
代码替换
global ptp_file_name tlist_zt it mom_output_file_basename
  global tnn tdia trr thh tdd tno
set it 0
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
MOM_open_output_file $ptp_file_name

global tooli numbers toolnumbers sametoolZmin
global mom_output_file_basename
global mom_part_name
global  mom_date numbers
global mom_part_name st1 st2 st3 st4
set st1 [string length $mom_part_name]
set st2 [expr [string last "\\" $mom_part_name] +1 ]
set st3 [string range $mom_part_name $st2 $st1]


放在刀具列表后"W"改”a"
MOM_close_output_file $ptp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name a]


像后面这样
############################################
global ptp_file_name tlist_zt it mom_output_file_basename
  global tnn tdia trr thh tdd tno
set it 0
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
MOM_open_output_file $ptp_file_name

global tooli numbers toolnumbers sametoolZmin
global mom_output_file_basename
global mom_part_name
global  mom_date numbers
global mom_part_name st1 st2 st3 st4
set st1 [string length $mom_part_name]
set st2 [expr [string last "\\" $mom_part_name] +1 ]
set st3 [string range $mom_part_name $st2 $st1]
#############################################

MOM_output_literal "%
O0009"
MOM_output_literal "( NC : $fm )"
MOM_output_literal "( [lindex [split [file tail $mom_event_handler_file_name] .] 0] )"
MOM_output_literal "( ---------------------------- )"
MOM_output_literal "( CUTTING_TIME : $cu_tc )"
MOM_output_literal "( TOTAL_MACHINE_TIME : $ma_tc )"
MOM_output_literal "( NC_SIZE = $size_c  Total_N = [expr $seqnum-1]  )"
#puts $ofile "( NC_SIZE=$size_c  FEET=[format "%.0f" $ptp_feet] )"
#puts $ofile "( $env(COMPUTERNAME) : [clock format [clock seconds] -format "%Y/%m/%d || %T || %w"] )"
MOM_output_literal "( ---------------------------- )"
MOM_output_literal "( Max X = [format %.2f $mom_sys_max_travel(0)]   MIN X = [format %.2f $mom_sys_min_travel(0)] )"
MOM_output_literal "( Max Y = [format %.2f $mom_sys_max_travel(1)]   MIN Y = [format %.2f $mom_sys_min_travel(1)] )"
MOM_output_literal "( Max Z = [format %.2f $mom_sys_max_travel(2)]   MIN Z = [format %.2f $mom_sys_min_travel(2)] )"
MOM_output_literal "( ----------------------------- )"
MOM_output_literal "( Total_MCS = $t_mcs )"
for {set itc 0} {$itc < $t_mcs} {incr itc} {
MOM_output_literal "( $ctooli($itc) )"
}
MOM_output_literal "( ----------------------------- )"
MOM_output_literal "(=======TOOL LIST START=======)"
MOM_output_literal "( Total_toolnumbers = $nTotals )"
for { set mn 0 } { $mn < $nTotals } { incr mn } {
set mnn [expr $mn+1 ]
set ttit 1
MOM_output_literal " "
MOM_output_literal "( $tlist($mn) maxZ=[format "%.2f" $maxzi($tmis($mnn))] minZ=[format "%.2f" $minzi($tmis($mnn))] )"}
MOM_output_literal "(=======TOOL LIST END=========)"
MOM_close_output_file $ptp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name a]


试过OK