mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-17 03:41:36 +08:00
29 lines
574 B
Plaintext
Executable File
29 lines
574 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC51"
|
|
puts "================"
|
|
puts ""
|
|
|
|
puts " write STEP and IGES file "
|
|
box b 12 34 56
|
|
|
|
######################################################################
|
|
catch {exec rm ${imagedir}/box.step}
|
|
catch {exec rm ${imagedir}/box.igs}
|
|
|
|
stepwrite a b ${imagedir}/box.step
|
|
|
|
brepiges b ${imagedir}/box.igs
|
|
####################################################
|
|
dall
|
|
puts " Read STEP file "
|
|
stepread ${imagedir}/box.step a *
|
|
|
|
puts " Read IGES file "
|
|
igesbrep ${imagedir}/box.igs b *
|
|
|
|
compound a_1 b_1 result
|
|
puts [checkshape result]
|
|
|
|
set 2dviewer 0
|
|
|