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
|
puts "================"
puts "OCC337"
puts "================"
puts ""
############################################
## It's impossible to fuse two solids in the file attached.
############################################
restore [locate_data_file OCC337_clone1.brep] a
explode a
set che [checkshape a_1]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar a_1 result
} else {
puts "OCC337 OK (shape 1): Source shape is valid"
set che [checkshape a_2]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar a_2 result
} else {
puts "OCC337 OK (shape 2): Source shape is valid"
bfuse result a_1 a_2
}
}
set square 35009.9
set 2dviewer 0
|
