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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
puts "========"
puts "OCC165"
puts "========"
restore [locate_data_file OCC165-2.brep] f
checkshape f
set IsGood 1
if [catch {mkoffset res1 f 3 10 } result] {
puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
set IsGood 0
} else {
#puts "OCC165 OK (case 1): function MKOFFSET works properly"
mkplane pl1_1 res1_1
checkshape pl1_1
mkplane pl1_2 res1_2
checkshape pl1_2
mkplane pl1_3 res1_3
checkshape pl1_3
}
if [catch {mkoffset res2 f 3 -10 } result] {
puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
set IsGood 0
} else {
#puts "OCC165 OK (case 2): function MKOFFSET works properly"
mkplane pl2_1 res2_1
checkshape pl2_1
mkplane pl2_2 res2_2
checkshape pl2_2
mkplane pl2_3 res2_3
checkshape pl2_3
}
if {$IsGood == 1} {
compound f res1_1 res1_2 res1_3 res2_1 res2_2 res2_3 res
regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
set good_len 462.832
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
set IsGood 0
}
regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_2] full len
set good_len 525.664
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
set IsGood 0
}
regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_3] full len
set good_len 588.496
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 5) : function MKOFFSET works wrongly"
set IsGood 0
}
regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
set good_len 320
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 6) : function MKOFFSET works wrongly"
set IsGood 0
}
regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_2] full len
set good_len 240
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 7) : function MKOFFSET works wrongly"
set IsGood 0
}
regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_3] full len
set good_len 160
set percent_max 0.1
set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
puts "good_len = ${good_len}"
puts "length = ${len}"
puts "percent = ${percent}"
if {${percent} > ${percent_max}} {
puts "Faulty OCC165 (case 8) : function MKOFFSET works wrongly"
set IsGood 0
}
if {$IsGood == 1} {
puts "OCC165 OK"
} else {
puts "OCC165 FAULTY"
}
} else {
puts "OCC165 FAULTY"
}
|
