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 "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 2)
######################################################
restore [locate_data_file OCC1477-1.brep] s1
restore [locate_data_file OCC1477-2.brep] s2
checkshape s1
checkshape s2
mksweep s1
addsweep s2 -T
if { [catch {buildsweep result} catch_result] } {
puts "Faulty OCC1477"
}
set square 913238
set 3dviewer 1
|
