Zapyta teoretycznie, ni można mom_tool_diameter podstawić pod zmienną i wtedy podzielić?
Z znalazłem taki wpisy w pliku tcl:

proc dane_narzedzia { } {
#=============================================================
global mom_tool_name mom_tool_diameter
global mom_tool_corner1_radius
global mom_tool_corner2_radius
global mom_tool_barrel_radius
global mom_tool_type
set r1 0; set r2 0; set r 0

if {$mom_tool_type == "Milling Tool-5 Parameters" || \
$mom_tool_type == "Milling Tool-7 Parameters" || \
$mom_tool_type == "Milling Tool-10 Parameters"} {
set line [format ";( D=%.3f; R1=%.3f )" $mom_tool_diameter $r1]

} elseif {$mom_tool_type == "Milling Tool-Barrel"} {

set line [format ";( D=%.3f; R=%.3f; R1=%.3f; R2=%.3f )" $mom_tool_diameter $r $r1 $r2]

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

set line [format ";( D=%.3f; R1=%.3f; R2=%.3f )" $mom_tool_diameter $r1 $r2]

} else {

set line [format ";( D=%.3f )" $mom_tool_diameter]
}

MOM_output_literal ";( $mom_tool_name )"