1 puts "TODO OCC12345 ALL: Faulty OCC825"
2 puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
10 ######################################
11 ## BRepAlgoAPI_Cut fails on sphere and b-spline face
12 ######################################
14 #####################################
16 if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
19 if { [regexp {FAILED} $info_result] } {
23 set ExplodeList [explode res1]
24 if {[llength ${ExplodeList}] < 1} {
28 set ExplodeList [explode res2]
29 if {[llength ${ExplodeList}] < 1} {
41 set nb_info [nbshapes res1]
42 regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_face
43 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_shell
44 regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_solid
45 regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nbCompSolid
46 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
47 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_Shape
49 if { $nb_face != $nbFace_exp } {
50 puts [format "Faulty : result must contain %s FACE(S), but it contains %s only." $nbFace_exp $nb_face]
53 if { $nb_shell != $nbShell_exp } {
54 puts [format "Faulty : result must contain %s SHELL(S), but it contains %s only." $nbShell_exp $nb_shell]
57 if { $nb_solid != $nbSolid_exp } {
58 puts [format "Faulty : result must contain %s SOLID(S), but it contains %s only." $nbSolid_exp $nb_solid]
61 if { $nbCompSolid != $nbCompSolid_exp } {
62 puts [format "Faulty : result must contain %s COMPSOLID(S), but it contains %s only." $nbCompSolid_exp $nbCompSolid]
65 if { $nb_compound != $nbCompound_exp } {
66 puts [format "Faulty : result must contain %s COMPOUND(S), but it contains %s only." $nbCompound_exp $nb_compound]
69 if { $nb_Shape != $nbShape_exp } {
70 puts [format "Faulty : result must contain %s SHAPE(S), but it contains %s only." $nbShape_exp $nb_Shape]