a87752f3 |
1 | pload QAcommands |
2 | |
3 | puts "========================" |
4 | puts "BUC60744" |
5 | puts "========================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file buc60744a.brep] a |
9 | restore [locate_data_file buc60744b.brep] b |
10 | |
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" |
15 | renamevar a result |
16 | } else { |
17 | puts "BUC60744 OK (shape 1): Source shape is valid" |
18 | |
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" |
23 | renamevar b result |
24 | } else { |
25 | puts "BUC60744 OK (shape 2): Source shape is valid" |
26 | |
27 | ksection result a b 1000 0.0001 0.00001 0 |
28 | |
29 | set ne [llength [explode result e]] |
30 | set nv [llength [explode result v]] |
31 | |
32 | if {$ne >= $nv} { |
33 | puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv] |
34 | } |
35 | } |
36 | } |
37 | bsection result a b |
38 | |
39 | set ne [llength [explode result e]] |
40 | set nv [llength [explode result v]] |
41 | |
42 | if {$ne >= $nv} { |
43 | puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv] |
44 | } |
45 | |
46 | set length 228.386 |
47 | set 2dviewer 0 |