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
|
#INTERFACE IGES
puts "========"
puts "OCC714"
puts "========"
puts ""
####################################################
## After command sew in DRAW on attached shape free wires are disappeared.
####################################################
restore [locate_data_file OCC714.brep] a
checkshape a
set nb_info1 [nbshapes a]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
sewing result 0.1 a
set nb_info2 [nbshapes a]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
} else {
puts "OK OCC714: SEWING operation was made PROPERLY"
}
set square 12917.1
set 2dviewer 0
|
