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 " OCC4968 "
puts "========="
puts ""
##################################################
# Improve FixShape to correct case of touching wires
##################################################
set BugNumber OCC4968
restore [locate_data_file OCC4968.brep] r
regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes r] full wire_number1
fixshape result r
regexp {WIRE +: +([-0-9.+eE]+)} [nbshapes result] full wire_number2
checkshape result r
puts "wire_number1 = ${wire_number1}"
puts "wire_number2 = ${wire_number2}"
if { ${wire_number2} > ${wire_number1}} {
puts "OK ${BugNumber}: wire number - OK"
} else {
puts "Faulty ${BugNumber}: wrong wire number"
}
set 2dviewer 1
|
