1 puts "================"
3 puts "================"
5 #######################################################################
6 # Failed to export ellipse into STEP with units other than mm
7 #######################################################################
9 set filedir ${imagedir}
11 set TheFileName bug23597_f-ellipse
12 if { [file exists ${filedir}/${TheFileName}.stp] } {
13 puts "Error : There is old ${filedir}/${TheFileName}.stp file"
17 restore [locate_data_file ${TheFileName}.brep] f
18 param write.step.unit FT
20 stepwrite a f ${filedir}/${TheFileName}.stp
22 if { ![file exists ${filedir}/${TheFileName}.stp] } {
23 puts "Error : There is not ${filedir}/${TheFileName}.stp file"
26 catch {exec chmod 777 ${filedir}/${TheFileName}.stp }
28 file delete ${filedir}/${TheFileName}.stp