1puts "==========" 2puts "BUC60533" 3puts "==========" 4 5restore [locate_data_file buc60533a.brep] part 6checkshape part 7#puts "Tolerance part" 8#computetolerance part 9 10restore [locate_data_file buc60533b.brep] trTool 11checkshape trTool 12#puts "Tolerance trTool" 13#computetolerance trTool 14 15#building the result using general fuse algorithm 16#without building halfspace 17bclearobjects 18bcleartools 19baddobjects part trTool 20#************************************************* 21if [catch {bfillds; bbuild r} catch_result] { 22 puts "Faulty BUC60533: function CUT works wrongly" 23} else { 24 puts " BUC60533 OK: function CUT works properly" 25} 26#************************************************* 27explode r 28copy r_1 result 29 30#set che [checkshape res r] 31#set err [lindex $che [expr [llength $che] - 1]] 32#if { $err != "OK"} { 33# puts "Faulty : mistakes are found in checked shape by checkshape command" 34#} else { 35# puts "Checking by checkshape - OK" 36 37#explode res e 38#mkcurve cu1 res_1 39#mkcurve cu2 res_2 40#mkcurve cu3 res_3 41#mkcurve cu4 res_4 42#mkcurve cu5 res_5 43 44#checkshape res 45 46#set tolerance [ maxtolerance res ] 47#set MaxFaceTolerance [ lindex $tolerance 14 ] 48#set MaxEdgeTolerance [ lindex $tolerance 20 ] 49#set MaxVertexTolerance [ lindex $tolerance 26 ] 50#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { 51#puts "Faulty :Tolerance of shape is more then 1.0" 52#} else { 53#puts "Tolerance of shape is less then 1.0" 54#} 55#} 56 57# Objectif : Couper part par trTool 58# 59# part est construite a partir d'un semi de point et de telle facon que u=x et v=y. 60# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette 61# surface via BRepAPI::MakeFace(surface) 62# Dans notre code, a aucun moment, nous 63# n'initialisons la tolerance. 64# 65# Le cut n'est pas effectue car une exception est levee : 66# An exception was caught Standard_ConstructionError: 67# ** Exception ** Standard_ConstructionError: 68 69 70checkprops result -s 1.5003e+007 71checkshape result 72checkview -display result -2d -path ${imagedir}/${test_image}.png 73 74