mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
50 lines
1.5 KiB
Plaintext
Executable File
50 lines
1.5 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60853_plane.brep could not be found"
|
|
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
|
|
|
|
puts "========"
|
|
puts "BUC60853"
|
|
puts "========"
|
|
puts ""
|
|
###############################################################################
|
|
##The exception Standard_NumericError is generated in the function TopOpeBRepTool_CurveTool::MakeCurves().
|
|
## The error occurs only when approximate mode is switched on. The command in draw is :
|
|
## > section res err_face.brep err_plane.brep -a
|
|
###############################################################################
|
|
|
|
restore [locate_data_file BUC60853_face.brep] face
|
|
restore [locate_data_file BUC60853_plane.brep] plane
|
|
puts [checkshape face]
|
|
puts [checkshape plane]
|
|
|
|
bsection result face plane -a
|
|
|
|
|
|
# set text [nbshapes res]
|
|
# set ver [lindex $text 7]
|
|
# set edg [lindex $text 10]
|
|
# set com [lindex $text 28]
|
|
|
|
set nb_info [nbshapes result]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ver
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edg
|
|
|
|
# if { $com != 0} {
|
|
# puts " Faulty BUC60853: Result shape is COMPOUND, but it must be edge "
|
|
# set make_photo 0
|
|
# } else {
|
|
if { $edg != 1} {
|
|
puts " Faulty BUC60853: Result shape contains more than one edge "
|
|
explode res v
|
|
} else {
|
|
if { $ver < 2} {
|
|
puts " Faulty BUC60853: Result edge contains less than two vertexes."
|
|
explode res v
|
|
} else {
|
|
puts " BUC60853 OK: Result of section operation is correct "
|
|
explode res v
|
|
}
|
|
}
|
|
#}
|
|
set length 0
|
|
set 2dviewer 0
|