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
|
puts "============"
puts "OCC23402"
puts "============"
puts ""
##################################################
# Issue in BRepAlgoAPI_Common - SOLID and FACE
##################################################
polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0
mkplane sf l
prism s sf 5 0 0
polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2
mkplane f1 w1
bop s f1
bopcommon c1
ttranslate c1 0 0 5
polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3
mkplane f2 w2
bop s f2
bopcommon c2
ttranslate c2 0 0 5
polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4
mkplane f3 w3
bop s f3
bopcommon c3
ttranslate c3 0 0 5
regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1
regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2
regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3
if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } {
puts "Error : c1 and c2 should be indeticall"
} else {
puts "OK : c1 and c2 are identicall"
}
mu4
fit
set 2dviewer 1
|
