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
|
puts "========="
puts " OCC210 "
puts "========="
puts ""
##################################################
# Improve FixShape to correct case of touching wires
##################################################
puts "TODO CR22598 ALL: Faulty shapes in variables faulty_1 to faulty_"
pload XDE
cpulimit 2500
set BugNumber OCC210
set filepath [locate_data_file UKI60591.stp]
if [catch { stepread $filepath a * } result] {
puts "Faulty ${BugNumber}: here is reading problem"
} else {
puts "Reading ${BugNumber} OK"
tpcompound r
fixshape result r
checkshape result
}
set 2dviewer 0
|
