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
|
puts "================"
puts "OCC22820"
puts "================"
puts ""
#######################################################################################
# OCCT IGES writer loses plane information
######################################################################################
box b 1 1 1
set b_info [dump b]
if { [regexp BSplineSurface ${b_info}] } {
puts "Error in dump b"
}
brepiges b ${imagedir}/22820.igs
igesbrep ${imagedir}/22820.igs bb *
set types_info [listtypes]
puts "types_info=${types_info}"
if { [regexp BSplineSurface ${types_info}] } {
puts "Error in listtypes"
}
igesbrep ${imagedir}/22820.igs bb *
set bb_info [dump bb]
if { [regexp BSplineSurface ${bb_info}] } {
puts "Error in dump bb"
}
|
