3bea4c16 |
1 | puts "================" |
2 | puts "OCC1540" |
3 | puts "================" |
4 | puts "" |
5 | ########################################################## |
6 | # exception while writing step file with invisible layer |
7 | ########################################################## |
8 | |
9 | set BugNumber OCC1540 |
10 | |
11 | XNewDoc D |
12 | box b 10 10 10 |
13 | XAddShape D b 1 |
14 | XAddLayer D invis |
15 | XSetLayer D b invis |
16 | XSetVisibility D invis 0 |
17 | |
18 | set status [ catch { WriteStep D $imagedir/${test_image}.stp } ] |
19 | |
20 | if { $status == 0 } { |
21 | puts "OK ${BugNumber}" |
22 | } else { |
23 | puts "Faulty ${BugNumber}" |
24 | } |
25 | |