mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
39 lines
913 B
Plaintext
Executable File
39 lines
913 B
Plaintext
Executable File
set os $env(os_type)
|
|
if { [string compare $os "windows"] == 0 } {
|
|
# puts "TODO OCC23561 $os: child process exited abnormally"
|
|
} else {
|
|
puts "TODO OCC23561 ALL: An exception was caught"
|
|
puts "TODO OCC23561 ALL: Tcl Exception:"
|
|
puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
|
|
}
|
|
puts "TODO OCC23561 ALL: TEST INCOMPLETE"
|
|
|
|
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
|
|
|