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
|
puts "========================"
puts " OCC423 "
puts "(case 1)"
puts "========================"
puts ""
restore [locate_data_file cylindre.rle] cyl
checkshape cyl
restore [locate_data_file contour.rle] cont
checkshape cont
mkplane cont cont
nexplode cyl F
ttranslate cont 0 200 0
featdprism cyl cont cont 10 1 1
if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
} else {
puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
}
set square 94944.4
set 2dviewer 0
|
