1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
puts "========================"
puts " OCC318 "
puts "========================"
puts ""
##################################################
## Checkshape works wrong with Semi-Infinite Prism (s)
##################################################
box mb -0.5 -0.5 -0.5 1 1 1
explode mb F
prism result mb_1 1 0 0 SemiInf
set che [checkshape result]
if { [regexp {Faulty} $che] == 1} {
puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
} else {
puts "OCC318 OK: Result shape is valid"
}
set square 8e+100
set 2dviewer 0
|
