输出T型刀R
各位大佬，下面这段语言该怎么改，主体是论坛一位朋友的，想在他的基础上输出T型刀的R角，自己试着在前面加了一段，但是还是不行，希望论坛里的大神能助我一臂之力{:biggrin:}set outputthd 1global 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_numberset 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 { 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 tt set th set td if {$outputthd == 1 } { MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"} else { MOM_output_literal "(T00:$mom_tool_name D=$tdi R=$tr H00 D$td)"}
各位大师些，棒棒忙啦 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 {
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
MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"
页:
[1]