a87752f3 |
1 | puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60853_plane.brep could not be found" |
2 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
3 | |
4 | puts "========" |
5 | puts "BUC60853" |
6 | puts "========" |
7 | puts "" |
8 | ############################################################################### |
9 | ##The exception Standard_NumericError is generated in the function TopOpeBRepTool_CurveTool::MakeCurves(). |
10 | ## The error occurs only when approximate mode is switched on. The command in draw is : |
11 | ## > section res err_face.brep err_plane.brep -a |
12 | ############################################################################### |
13 | |
14 | restore [locate_data_file BUC60853_face.brep] face |
15 | restore [locate_data_file BUC60853_plane.brep] plane |
16 | puts [checkshape face] |
17 | puts [checkshape plane] |
18 | |
19 | bsection result face plane -a |
20 | |
21 | |
22 | # set text [nbshapes res] |
23 | # set ver [lindex $text 7] |
24 | # set edg [lindex $text 10] |
25 | # set com [lindex $text 28] |
26 | |
27 | set nb_info [nbshapes result] |
28 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ver |
29 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edg |
30 | |
31 | # if { $com != 0} { |
32 | # puts " Faulty BUC60853: Result shape is COMPOUND, but it must be edge " |
33 | # set make_photo 0 |
34 | # } else { |
35 | if { $edg != 1} { |
36 | puts " Faulty BUC60853: Result shape contains more than one edge " |
37 | explode res v |
38 | } else { |
39 | if { $ver < 2} { |
40 | puts " Faulty BUC60853: Result edge contains less than two vertexes." |
41 | explode res v |
42 | } else { |
43 | puts " BUC60853 OK: Result of section operation is correct " |
44 | explode res v |
45 | } |
46 | } |
47 | #} |
48 | set length 0 |
49 | set 2dviewer 0 |