为什么我的后处理前面几把刀角度读取正常，后面的两把刀读取不到角度呢
为什么我的后处理前面几把刀角度读取正常，后面的两把刀读取不到角度呢
代码原文如下
#PB_CMD_TOOL_INFO
set outputthd 1
global toollist mom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number mom_tool_type
global mom_tool_taper_angle mom_tool_point_angle mom_tool_lower_corner_radius
global mom_sys_max_travel mom_sys_min_travel mom_machine_time
global ptp_file_name ino mom_group_name mom_output_file_suffix mom_output_file_basename
set tdi
#---------------------
# 安全读取角度变量（弧度转角度）
#---------------------
if {} {
set angle_val
} elseif {} {
set angle_val
} else {
set angle_val 0
}
#---------------------
# 安全读取圆角变量（自动去尾零）
#---------------------
if {} {
set r_val "0"]
} else {
set r_val 0
}
if {} {
set cr_val "0"]
} else {
set cr_val 0
}
#---------------------
# 刀具号 / 补偿处理
#---------------------
if {
set tt $mom_tool_number
} else {
set tt 0
}
if {
set th $mom_tool_adjust_register
} else {
set th 0
}
if {
set td $mom_tool_cutcom_register
} else {
set td 0
}
set tt
set th
set td
set hhh $th
#---------------------
# 按刀具类型自动判断：R / A（你的核心逻辑）
#---------------------
if {$mom_tool_type == "Milling Tool-T Cutter"} {
set r $cr_val
set rr2 "R$r"
} elseif { != -1} {
set angle $angle_val
set rr2 "A"
} elseif { != -1} {
set angle
set rr2 "A"
} else {
set r $r_val
set rr2 "R$r"
}
#---------------------
# 输出刀具清单文件（干净规整）
#---------------------
set tool_lists_file_name ${ptp_file_name}_toollists
if {!} {
set ino 1
if {} {
MOM_remove_file $tool_lists_file_name
}
}
set tfile
if {$ino > 1} {
puts $tfile "( ZMAX= ZMIN=)"
}
set mom_sys_max_travel(2) -9999.999
set mom_sys_min_travel(2)9999.999
if {$outputthd == 1} {
puts $tfile "(T$tt D$tdi $rr2 H$th D$td >$mom_tool_name)"
}
incr ino
close $tfile
你这这个发给元宝，或者豆包他们会给你改，你要说清楚你要干什么，他会帮你，不对就多问几次，总有一次是符合你的 我猜有可能是铣刀角度与钻头角度变量取的名称一样的原因，你可以分开取2个不同有名称试试，猜想，没试
页:
[1]