mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-25 00:57:38 +08:00
46 lines
1.2 KiB
Plaintext
Executable File
46 lines
1.2 KiB
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 "OCC46"
|
|
puts "================"
|
|
puts ""
|
|
|
|
restore [locate_data_file OCC46.brep] sh
|
|
explode sh e
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_4] full l1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_7] full l2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_9] full l3
|
|
|
|
set res1 [expr $l1+$l2+$l3]
|
|
puts $res1
|
|
|
|
#write stepfile
|
|
######################################################################
|
|
catch {exec rm ${imagedir}/sss.step}
|
|
stepwrite a sh ${imagedir}/sss.step
|
|
stepread ${imagedir}/sss.step ss *
|
|
|
|
tpcompound result
|
|
|
|
explode result e
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_4] full t1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_7] full t2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_9] full t3
|
|
|
|
set res2 [expr $t1+$t2+$t3]
|
|
puts $res2
|
|
|
|
if {[expr abs([expr $res1 - $res2])] > 0.0001} then {
|
|
puts "Error : large difference between shapes"
|
|
}
|
|
|
|
set 2dviewer 0
|