if { [string compare $command "SplitAngle"] == 0 } { puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_" } restore [locate_data_file ANSCHLUSS.brep] a