+++ /dev/null
-
-puts "=============="
-puts " BUC60409 "
-puts " FUSE "
-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"
- bfuse result c s
- }
-}
-set square 39.0894
-set 2dviewer 0