Question

大家好，我对TCL编码很新，并希望对我的宏提供一些帮助：

set form {
  GuidoForm leftside {
    -default_buttons
    -label "Spilt of EOM Solid"
    -layout BoxLayout Y_AXIS

    GuidoField Volume {
      -label "<html> <b><font color=\"blue\">Volume:"
      -format none
      -width 6
      -low_bound 0
      -null false
      }
    GuidoField Totalmetres {
      -label "<html> <b><font color=\"blue\">Total Metres:"
      -format none
      -width 6
      -low_bound 0
      -null false
      }
    GuidoField Ore {
      -label "<html> <b><font color=\"blue\">Ore:"
      -format none
      -width 6
      -low_bound 0
      -null false
      }
    GuidoField Waste {
      -label "<html> <b><font color=\"blue\">Waste:"
      -format none
      -width 6
      -low_bound 0
      -null false
      } 
    GuidoField file {
      -label "<html> <b><font color=\"blue\">Give output filename:"
      -format none
      -default "Spilt_1"
      -translate none
      -display_length 20
      -max_length 60
      -null false
      }     
    }
  }
if {"[expr ($Ore + $Waste) == ($Totalmetres)]"} {
  puts "Ore and Waste MATCH Total metres"

} else {puts "Ore and Waste DO NOT MATCH Total metres please review data" 
  proc repeat
}

我试图让最终结果重复回到宏的开头是不满足else部分。我不确定如何使宏跳回到一行或超过一行代码。任何帮助将不胜感激：）

在TCL中创建重复功能

0 个答案: