puts "=================" puts " BUC60409 " puts " COMMON " puts "=================" restore [locate_data_file buc60409a.brep] c restore [locate_data_file buc60409b.brep] s set che [checkshape c] if { [regexp {Faulty} $che ] == 1 } { puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" puts "Body of the script was NOT executed" renamevar c result } else { puts "BUC60409 OK (shape 1): Source shape is valid" set che [checkshape s] if { [regexp {Faulty} $che ] == 1 } { puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" puts "Body of the script was NOT executed" renamevar s result } else { puts "BUC60409 OK (shape 2): Source shape is valid" bcommon result c s } } set square 4.89279 set 2dviewer 0