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
|
set os $env(os_type)
puts "========"
puts "OCC321"
puts "========"
puts ''
##############################################################
##Crash during importation of IGES file on SUN, on other platforms message
## "Syntax error during importation"
##############################################################
stepread [locate_data_file OCC321.stp] a *
tpcompound a
checkshape a
checkshape a r
######################################################################
catch {exec rm ${imagedir}/OCC321.iges}
brepiges a ${imagedir}/OCC321.iges
dall
igesbrep ${imagedir}/OCC321.iges b *
tpcompound result
checkshape result
set 2dviewer 0
|
