刀具信息显示格式哪里错了

babyon

global mom_tool_name mom_tool_type
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG

if ![ info exists mom_tool_corner1_radius ] { set mom_tool_corner1_radius 0 }
if { $mom_tool_type == "Drilling Tool" } {
set tip_angle [ expr $mom_tool_point_angle * $RAD2DEG ]
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip angle=[format "%.2f"
$mom_tip_angle] F=[format "%.2f" $mom_tool_flute_length ] L=[ format "%.2f"
$mom_tool_length ])"
} else {
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format "%.2f"
$mom_tool_cornerl_radius] F=[format "%.2f" $mom_tool_flute_length] L=[format "%.2f"
$mom_tool_length ])"
}
请问格式哪里借了，

348527760

是corner1，而不是cornerl

babyon

非常感谢

zhangchuanhe

这是刀具清单吗

fishing

有高手呀，

babyon

global mom_tool_name mom_tool_type
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length
global mom_tool_length tip_angle mom_tool_point_angle RAD2DEG
if ![info exists mom_tool_corner1_radius] { set mom_tool_corner1_radius 0 }
if {$mom_tool_type=="Drilling Tool"}
{set tip_angle [ expr $mom_tool_point_angle*$RAD2DEG ]
MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] Tip angle=[format "%.2f" $mom_tip_angle] F=[format "%.2f" $mom_tool_flute_length ] L=[format "%.2f" $mom_tool_length])"
}
else{MOM_output_literal ";(D=[format "%.2f" $mom_tool_diameter] R=[format "%.2f" $mom_tool_corner1_radius] F=[format "%.2f" $mom_tool_flute_length] L=[format "%.2f" $mom_tool_length])"
}

babyon

已解决