a4eba920 |
1 | puts "TODO OCC12345 ALL: Error : is WRONG because number of " |
e54706ed |
2 | |
3 | puts "================" |
4 | puts "OCC4648" |
5 | puts "================" |
6 | puts "" |
7 | ################################# |
8 | # Problems with writing to STEP |
9 | ################################# |
10 | |
11 | set BugNumber OCC4648 |
12 | |
13 | igesbrep [locate_data_file annie_surf.igs] a * |
e54706ed |
14 | |
15 | file delete ${imagedir}/annie |
16 | stepwrite 0 a ${imagedir}/annie |
17 | if { ![file exists ${imagedir}/annie] } { |
18 | puts "Faulty ${BugNumber} : There is not file" |
19 | } |
20 | catch {exec chmod 777 ${imagedir}/annie} |
21 | |
22 | if [catch { stepread ${imagedir}/annie b *} res] { |
23 | puts "Faulty ${BugNumber} : stepread is wrong" |
24 | } else { |
25 | renamevar b_1 res |
a4eba920 |
26 | checknbshapes res -ref [nbshapes a] |
e54706ed |
27 | } |
28 | |
29 | file delete ${imagedir}/annie |
30 | |
31 | |