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
|
puts "========================"
puts " OCC317 "
puts "========================"
puts ""
##################################################
## A Solid "so" is valid, whereas wire "so_5" from the solid is not valid.
##################################################
restore [locate_data_file OCC317.brep] result
set che [checkshape result]
if { [regexp {Faulty} $che] == 1} {
puts "Faulty OCC317: Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
} else {
puts "OCC317 OK: Source shape is valid"
explode result w
set che [checkshape result_5]
if { [regexp {Faulty} $che] == 1} {
puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
} else {
puts "OCC317 OK : Wire is valid."
}
set che [checkshape result r]
if { [regexp {OK} $che] != 1 } {
puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
} else {
puts "OCC317 OK : Wire is valid."
}
}
set square 2104.21
set 2dviewer 0
|
