projects / occt.git / blame
| Commit | Line | Data |
|---|---|---|
| 72ae9895 RL |
1 | puts "================" |
| 2 | puts "OCC23597" | |
| 3 | puts "================" | |
| 4 | puts "" | |
| 5 | ####################################################################### | |
| 6 | # Failed to export ellipse into STEP with units other than mm | |
| 7 | ####################################################################### | |
| 8 | ||
| 9 | set filedir ${imagedir} | |
| 10 | ||
| 11 | set TheFileName bug23597_f-ellipse | |
| 12 | if { [file exists ${filedir}/${TheFileName}.stp] } { | |
| 13 | puts "Error : There is old ${filedir}/${TheFileName}.stp file" | |
| 14 | } | |
| 15 | ||
| 16 | xnorm STEP | |
| 17 | restore [locate_data_file ${TheFileName}.brep] f | |
| 18 | param write.step.unit FT | |
| 19 | newmodel | |
| 20 | stepwrite a f ${filedir}/${TheFileName}.stp | |
| 21 | ||
| 22 | if { ![file exists ${filedir}/${TheFileName}.stp] } { | |
| 23 | puts "Error : There is not ${filedir}/${TheFileName}.stp file" | |
| 24 | } | |
| 25 | ||
| 26 | catch {exec chmod 777 ${filedir}/${TheFileName}.stp } | |
| 27 | ||
| 28 | file delete ${filedir}/${TheFileName}.stp |