1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
puts "============"
puts "BUC60880"
puts "============"
puts ""
##########################################
## We have overlapping edges when section a shell by plane.
##########################################
restore [locate_data_file BUC60880_sec_error2.brep] sh
checkshape sh
plane pl 65000 19000 2600 1 0 0
mkface f pl
bsection result sh f
set nb_info [nbshapes result]
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
if { $ed == 1 } {
puts "BUC60880 OK: SECTION operation was made properly"
} else {
explode result e
set status [OCC333 result_1 result_2]
if {[llength ${status}] < 1} {
puts "BUC60880 ERROR"
} else {
regexp {([-0-9.+eE]+)} $status full code
if { ${code} == 3 || ${code} == 2} {
puts "BUC60880 : Section command works properly"
} else {
puts "Faulty BUC60880: Section was made WRONGLY"
}
}
}
set length 1424.94
set 2dviewer 0
|
