puts "==========" puts "BUC60649" puts "BUC60657" puts "==========" puts "" restore [locate_data_file buc60649a.brep] a checkshape a set che [checkshape a rr] if { [regexp {OK} $che] != 1 } { puts "Faulty : mistakes are found in SOURCE shape by checkshape command" puts "Body of the script was not executed" } else { puts "Checking of SOURCE shape by checkshape - OK" mkoffset result a 1 1 renamevar result_1 result } set length 271.473 set 2dviewer 0