3 puts "========================"
5 puts "========================"
8 restore [locate_data_file buc60744a.brep] a
9 restore [locate_data_file buc60744b.brep] b
11 set che [checkshape a]
12 if { [regexp {Faulty} $che ] == 1 } {
13 puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
14 puts "Body of the script was NOT executed"
17 puts "BUC60744 OK (shape 1): Source shape is valid"
19 set che [checkshape b]
20 if { [regexp {Faulty} $che ] == 1 } {
21 puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
22 puts "Body of the script was NOT executed"
25 puts "BUC60744 OK (shape 2): Source shape is valid"
27 ksection result a b 1000 0.0001 0.00001 0
29 set ne [llength [explode result e]]
30 set nv [llength [explode result v]]
33 puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
39 set ne [llength [explode result e]]
40 set nv [llength [explode result v]]
43 puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]