tombai691019 发表于 2024-10-31 11:04
这个是写刀单时你用的是PUTS命令，不是用的MOM_output_literal 命令。中文显示会有问题，要么改命令要么 ...
好的非常感谢大神{:hug:}{:hug:}
#忘忧草# 发表于 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 (T1:D10粗刀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 {} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile
set ofile
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 -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: MIN)"
MOM_output_literal "(Total Tool:$numbers)"
#puts $ofile "(Total Tool:$numbers)"
global toollistend ii iii Step numbers
for { set ii 0 } { $ii < $numbers } { incr ii } {
set iii
MOM_output_literal "($toollistend($ii))"
#puts $ofile "($toollistend($ii))"
}
set buf ""
while { > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
丶唯一的存在 发表于 2025-3-25 16:26
代码关掉刀具清单就不显示.打开就乱码.好像不识别MOM代码
puts 命令与MOM_output_literal 命令不要混着用。这样后面的MOM_output_literal 或不起作用了。
丶唯一的存在 发表于 2025-3-25 16:26
代码关掉刀具清单就不显示.打开就乱码.好像不识别MOM代码
代码改一下顺序，先用MOM_output_literal 输出刀单后再用puts 代码把其它数据写入就可以了。
把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 {} {
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
globalmom_date numbers
global mom_part_name st1 st2 st3 st4
set st1
set st2 +1 ]
set st3
放在刀具列表后"W"改”a"
MOM_close_output_file $ptp_file_name
set ifile
set ofile
像后面这样
############################################
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 {} {
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
globalmom_date numbers
global mom_part_name st1 st2 st3 st4
set st1
set st2 +1 ]
set st3
#############################################
MOM_output_literal "%
O0009"
MOM_output_literal "( NC : $fm )"
MOM_output_literal "( .] 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_cTotal_N = )"
#puts $ofile "( NC_SIZE=$size_cFEET= )"
#puts $ofile "( $env(COMPUTERNAME) : -format "%Y/%m/%d || %T || %w"] )"
MOM_output_literal "( ---------------------------- )"
MOM_output_literal "( Max X = MIN X = )"
MOM_output_literal "( Max Y = MIN Y = )"
MOM_output_literal "( Max Z = MIN Z = )"
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
set ttit 1
MOM_output_literal " "
MOM_output_literal "( $tlist($mn) maxZ= minZ= )"}
MOM_output_literal "(=======TOOL LIST END=========)"
MOM_close_output_file $ptp_file_name
set ifile
set ofile
试过OK
419511411 发表于 2025-8-25 11:19
把puts $ofile 换成MOM_output_literal
代码替换
global ptp_file_name tlist_zt it mom_output_file_base ...
我的刀具清单也是汉字乱码问题，没发现有PUTS命令，大神能否帮修改一下，代码如下：
global toollistend toollistendi
global tl mom_tool_pitch
global mom_sys_min_travel ZMIN mom_tool_number odemin newmin
global mom_tool_diameter mom_tool_radius
global mom_tool_point_angle mom_isv_tool_point_angle
global mom_tool_corner1_radius mom_tool_seg_radius
global mom_tool_flute_length mom_tool_flutes_number
global mom_tool_length ZMLN
global mom_tool_type Step t d mom_tool_seg_length
global mom_tool_name mom_tool_number mom_operation_type
global mom_tool_lower_corner_radius mom_tool_upper_corner_radius
global mom_tool_shank_diameter
global mom_tool_tapered_shank_diameter mom_tool_tapered_shank_length mom_tool_tapered_shank_taper_length
global mom_tool_holder_diameter mom_tool_holder_length
global mom_tool_use_tapered_shank
global mom_tool_length_adjust_register mom_cutcom_adjust_register
global mom_tool_adjust_register mom_tool_cutcom_register mom_cutcom_type
set Step
#set t(0) 9999
set t($Step) $mom_tool_number
#set tl
#MOM_output_literal " t($Step):$t($Step) ? "
for { set i 1 } { $i < $Step } { incr i } {
#MOM_output_literal " t($i):$t($i) ? "
if { $t($i) == $mom_tool_number } {
# MOM_output_literal " Same as before"
set Step
return
}
}
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
#MOM_output_literal "toollistendi $toollistendi"
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H=
}
#MOM_output_literal "toollistend: $toollistend(0)"
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
#####################
#####################
#Milling Tool-Barrel
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
#if { } {
#set mom_tool_tapered_shank_diameter 0
#set mom_tool_tapered_shank_length 0
#set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
#}
#MOM_output_literal "toollistendi $toollistendi"
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H=
}
#MOM_output_literal "toollistend: $toollistend(0)"
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
##############
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
#MOM_output_literal "toollistendi $toollistendi"
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
ND=[ format "%.2f" $mom_tool_shank_diameter] FL= \
H=
}
#MOM_output_literal "toollistend: $toollistend(0)"
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
#######################
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
FL= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
set d
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
gc915 发表于 2026-5-6 09:12
我的刀具清单也是汉字乱码问题，没发现有PUTS命令，大神能否帮修改一下，代码如下：
由于字数受限，只能把命令分为2部分上传，这是第2部分
set ZMLN $ZMLN
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= FL= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
r= FL= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
global mom_tool_pitch
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
P= FL= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
P= FL= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
global mom_tool_tip_diameter
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
TD= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
TD= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
if { } {
global mom_tool_chamfer_length
#MOM_output_literal "mom_tool_use_tapered_shank: $mom_tool_use_tapered_shank"
if { } {
set mom_tool_tapered_shank_diameter 0
set mom_tool_tapered_shank_length 0
set mom_tool_tapered_shank_taper_length 0
#MOM_output_literal "no tool taper shankno tool taper shankno tool taper shank"
}
if { && $mom_cutcom_type != 0} {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
C= \
H= D=
} else {
lappend toollistend($toollistendi) T$mom_tool_number=$mom_tool_name D= \
C= \
H=
}
set toollistendi
#MOM_output_literal "toollistendi $toollistendi"
}
#global mom_sys_max_travel
#global mom_sys_min_travel
#global mom_machine_time
#MOM_output_literal "( MAX Z = ) MIN Z = ) "
不如把你的后处理上传改还好些，好测试。
tombai691019 发表于 2026-5-6 11:38
不如把你的后处理上传改还好些，好测试。
这是刀具清单有乱码的后处理，麻烦大神看下是否可以修改完善