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
|
puts "==========="
puts " BUC60898"
puts "==========="
puts ""
pload XDE
set filepath [locate_data_file BUC60898.igs]
if [catch { igesbrep $filepath a *} result] {
puts "Faulty BUC60898: here is reading problem"
} else {
puts "BUC60898 OK"
tpcompound a
if [catch {sewing result 1e-7 a } catch_result] {
puts "Faulty BUC60898: function SEWING gives except"
} else {
puts " BUC60898 OK: function SEWING works without except"
}
checkmaxtol result 0.0002494807463576937
checknbshapes result -shell 4
checkfreebounds result 1725
set square 798.266
set 2dviewer 0
}
|
