projects / occt.git / blame
| Commit | Line | Data |
|---|---|---|
| a87752f3 | 1 | puts "=================" |
| 2 | puts "OCC381" | |
| 3 | puts "=================" | |
| 4 | puts "" | |
| 5 | ||
| 6 | pload QAcommands | |
| 7 | ||
| e837410d | 8 | NewDocument D BinOcaf |
| a87752f3 | 9 | |
| 10 | ###################################################### | |
| e837410d | 11 | if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.cbf}] } { |
| a87752f3 | 12 | puts "OCC381: Error" |
| 13 | } else { | |
| e837410d | 14 | catch {exec chmod 777 ${imagedir}/OCC381_2.cbf} |
| 15 | file delete -force ${imagedir}/OCC381_2.cbf | |
| a87752f3 | 16 | } |
| 17 |