1 puts "================"
3 puts "================"
6 puts " write STEP and IGES file "
9 ######################################################################
10 catch {exec rm ${imagedir}/box.step}
11 catch {exec rm ${imagedir}/box.igs}
13 stepwrite a b ${imagedir}/box.step
15 brepiges b ${imagedir}/box.igs
16 ####################################################
18 puts " Read STEP file "
19 stepread ${imagedir}/box.step a *
21 puts " Read IGES file "
22 igesbrep ${imagedir}/box.igs b *
24 compound a_1 b_1 result
25 puts [checkshape result]