if { [isdraw result] } {
#check if result is valid
+ EnsureTolRule result result
puts "checkshape"
set ch [checkshape result]
puts $ch
###########################################################
restore [locate_data_file OCC329.brep] a
+EnsureTolRule a a
checkshape a
set tol1 [maxtolerance a]
restore [locate_data_file buc60462a.brep] a
checkshape a
restore [locate_data_file buc60462b.brep] b
+EnsureTolRule b b
checkshape b
bsection result a b
restore [locate_data_file buc60463a.brep] a
checkshape a
restore [locate_data_file buc60463b.brep] b
+EnsureTolRule b b
checkshape b
bsection result a b
#################################################################
restore [locate_data_file OCC292.brep] result
+EnsureTolRule result result
checkshape result
tclean result
##################################################
restore [locate_data_file OCC317.brep] result
+EnsureTolRule result result
set che [checkshape result]
if { [regexp {Faulty} $che] == 1} {
##################################################
restore [locate_data_file OCC330.brep] result
+EnsureTolRule result result
decho off
set che [checkshape result]
puts ""
restore [locate_data_file mds-part1.rle] a
+EnsureTolRule a a
set che [checkshape a]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC452 (shape 1): Source shape is invalid. It was detected by Checkshape command"
}
restore [locate_data_file CTO900_ger60239a.rle] c
+EnsureTolRule c c
set che [checkshape c]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC452 (shape 3): Source shape is invalid. It was detected by Checkshape command"
}
restore [locate_data_file CTO900_ger60239b.rle] d
+EnsureTolRule d d
set che [checkshape d]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC452 (shape 4): Source shape is invalid. It was detected by Checkshape command"
puts ""
restore [locate_data_file CTO900_ger60239a.rle] a
+EnsureTolRule a a
set che [checkshape a]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC452 (shape 5): Source shape is invalid. It was detected by Checkshape command"
}
restore [locate_data_file CTO900_ger60239b.rle] b
+EnsureTolRule b b
set che [checkshape b]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC452 (shape 6): Source shape is invalid. It was detected by Checkshape command"
restore [locate_data_file OCC698_1.brep] b4
checkshape b4
restore [locate_data_file OCC698_2.brep] b5
+EnsureTolRule b5 b5
checkshape b5
bcut result b5 b4
######################################################
restore [locate_data_file OCC697_1.brep] b1
+EnsureTolRule b1 b1
restore [locate_data_file OCC697_2.brep] b2
checkshape b1
#################################
restore [locate_data_file OCC774.brep] a
+EnsureTolRule a a
explode a
checkshape a_1
checkshape a_2
##########################################
restore [locate_data_file OCC776.brep] a
+EnsureTolRule a a
explode a
checkshape a_1
checkshape a_2
##########################################
restore [locate_data_file OCC776.brep] a
+EnsureTolRule a a
explode a
checkshape a_1
checkshape a_2
##########################################################
restore [locate_data_file BUC60877_lh.brep] sh
+EnsureTolRule sh sh
checkshape sh
plane pl 820 198 140 -1e-06 0 1
# See comment in CR23244:
restore [locate_data_file OCC919-PROC.brep] a_1
+EnsureTolRule a_1 a_1
#
checkshape a_1
pload QAcommands
restore [locate_data_file buc60652b.brep] result
+EnsureTolRule result result
checkshape result
BUC60652 result
pload QAcommands
restore [locate_data_file buc60652c.brep] result
+EnsureTolRule result result
checkshape result
BUC60652 result
## Fillets created in CasCade version 3 do not display as shaded surfaces.
#################################################
restore [locate_data_file buc60707a.brep] result
+EnsureTolRule result result
checkshape result
tclean result
##############################################
restore [locate_data_file OCC368.brep] result
+EnsureTolRule result result
checkshape result
tclean result
puts ""
restore [locate_data_file fra62476b.brep] result
+EnsureTolRule result result
checkshape result
tclean result
restore [locate_data_file ger61235a.brep] tool
checkshape tool
restore [locate_data_file ger61235b.brep] object
+EnsureTolRule object object
checkshape object
bsection result object tool
puts "=================================="
restore [locate_data_file pro20333a.brep] result
+EnsureTolRule result result
checkshape result
tclean result
puts "========================"
restore [locate_data_file pump4.brep] a_1
+EnsureTolRule a_1 a_1
checkshape a_1
#####################################################################
########################################################
restore [locate_data_file OCC630.brep] a1
+EnsureTolRule a1 a1
checkshape a1
######################################################################
##################################################################
restore [locate_data_file buc60661a.brep] buc60661
+EnsureTolRule buc60661 buc60661
checkshape buc60661
######################################################################
puts "========================"
restore [locate_data_file shading_058.brep] result
+EnsureTolRule result result
checkshape result
tclean result
puts "========================"
restore [locate_data_file shading_151.brep] result
+EnsureTolRule result result
checkshape result
tclean result
#####################
restore [locate_data_file OCC859.brep] a
+EnsureTolRule a a
checkshape a
sewing result a
######################################################
restore [locate_data_file OCC859.brep] result
+EnsureTolRule result result
checkshape result
freebounds result 0.1
# Date : 26 Nov 98
restore [locate_data_file cts21832_base.brep] base
+EnsureTolRule base base
restore [locate_data_file cts21832_cont.brep] cont
explode cont wire
# Date : 23mar98
restore [locate_data_file CTO900_ger60224-part.rle] base
+EnsureTolRule base base
restore [locate_data_file ger60224-tool.rle] wire
mkplane cont wire
# Date : 10 Sept 98
restore [locate_data_file CTO900_pro12880c.rle] base
+EnsureTolRule base base
restore [locate_data_file pro12880_face.rle] cont
featprism base cont cont 0 1 0 1 1
# Date : 15 Sept 98
restore [locate_data_file CTO900_ger50084c.rle] base
+EnsureTolRule base base
restore [locate_data_file ger50084_face.rle] wire
## contour est un wire -> on en fait une face
cpulimit 2000
restore [locate_data_file CFE900_cts20geq.rle] base
+EnsureTolRule base base
restore [locate_data_file cts20960_face.brep] cont
explode base face
# Date : 25 Nov 98
restore [locate_data_file cts20088_base.brep] base
+EnsureTolRule base base
restore [locate_data_file contour_pkv.rle] cont
explode base face
# Date : 02 Dec 98
restore [locate_data_file CFE900_pro16gff.rle] base
+EnsureTolRule base base
restore [locate_data_file pro16769_face.brep] cont
explode base face
# cts20088
restore [locate_data_file cts20088_base.brep] base
+EnsureTolRule base base
restore [locate_data_file contour_pkv.rle] cont
explode base face
puts "TODO OCC22810 ALL: Error : The area of the resulting shape is"
restore [locate_data_file cts20088_base.brep] base
+EnsureTolRule base base
restore [locate_data_file contour_pkv.rle] cont
explode base face
puts [fixsmall result a 1]
+EnsureTolRule result result
if { [isdraw result] } {
puts [checkshape result]
}
puts [DT_ApplySeq result a MDTV ToV4]
+EnsureTolRule result result
puts [checkshape result]
fixwgaps result a 0.001
+EnsureTolRule result result
puts [checkshape result]
puts [DT_SplitAngle result a]
+EnsureTolRule result result
puts [checkshape result]
puts [DT_ToBspl result a]
+EnsureTolRule result result
puts [checkshape result]
restore [locate_data_file CFE900_pro16gdo.rle] a
+EnsureTolRule a a