输出T型刀R

蛋蛋的忧伤*

各位大佬，下面这段语言该怎么改，主体是论坛一位朋友的，想在他的基础上输出T型刀的R角，自己试着在前面加了一段，但是还是不行，希望论坛里的大神能助我一臂之力{:biggrin:}

set outputthd 1

global toollist mom_tool_type mom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_lower_corner_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number

set tdi [ format  "%.2f" $mom_tool_diameter]

   if {$mom_tool_type == "Milling Tool-T Cutter"} {

set tr1 [ format "%.2f" $mom_tool_lower_corner_radius]

} else {

set tr [ format  "%.2f" $mom_tool_corner1_radius]

}

if [info exists mom_tool_number] {

    set tt $mom_tool_number

} else {

    set tt 0

}

if [info exists mom_tool_adj_reg_defined] {

    set th $mom_tool_adjust_register

} else {

    set th 0

}

if [info exists mom_tool_adj_reg_defined] {

    set td $mom_tool_cutcom_register

} else {

    set td 0

}

set tt [format "%02.0f" $tt]

set th [format "%02.0f" $th]

set td [format "%02.0f" $td]

set tt [format "%02.0f" $tt]

set th [format "%02.0f" $th]

set td [format "%02.0f" $td]

if {$outputthd == 1 } {

    MOM_output_literal "(T$ttmom_tool_name D=$tdi R=$tr H$th D$td)"

} else {

    MOM_output_literal "(T00mom_tool_name D=$tdi R=$tr H00 D$td)"

}

蛋蛋的忧伤*

各位大师些，棒棒忙啦

weilisong

global mom_tool_type mom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius
global mom_tool_lower_corner_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number

set tdi [ format  "%.2f" $mom_tool_diameter]
   if {$mom_tool_type == "Milling Tool-T Cutter"} {
set tr [ format "%.2f" $mom_tool_lower_corner_radius]
} else {
set tr [ format  "%.2f" $mom_tool_corner1_radius]
}
if [info exists mom_tool_number] {
    set tt $mom_tool_number
} else {
    set tt 0
}
if [info exists mom_tool_adj_reg_defined] {
    set th $mom_tool_adjust_register
} else {
    set th 0
}
if [info exists mom_tool_cutcom_register] {
    set td $mom_tool_cutcom_register
} else {
    set td 0
}
set tt [format "%02.0f" $tt]
set th [format "%02.0f" $th]
set td [format "%02.0f" $td]

    MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"