mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
30 lines
809 B
Plaintext
30 lines
809 B
Plaintext
puts "=========="
|
|
puts "PRO19895"
|
|
puts "=========="
|
|
|
|
#############################################################################
|
|
## There is wrong tolerance after reading of the model in optimaze mode (C30). Retrive entity number 2139 from file
|
|
## "bm4_db_punch_a.stp" and will obtaine tolerance. It is very big and isolains extend from entity.
|
|
#############################################################################
|
|
|
|
stepread [locate_data_file bm4_db_punch_a.stp] a *
|
|
|
|
tpcompound b
|
|
isos b 0
|
|
isos b 3
|
|
tpcompound result
|
|
|
|
tpdraw 2139
|
|
|
|
puts [checkshape tp_2139]
|
|
puts [checkshape tp_2139 r]
|
|
|
|
set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ]
|
|
puts "MaxTolerance = $MaxTolerance"
|
|
if { $MaxTolerance > 1 } {
|
|
puts "Error : Tolerance of shape is more then 1.0"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|