1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
puts "========="
puts "OCC23958"
puts "========="
puts ""
#################################################################################
# Section of shell by plane is incomplete
#################################################################################
pload DATAEXCHANGEKERNEL
# shell
restore [locate_data_file bug23958_bug948-shape.brep] a
# plane
plane p 10.62752 0 0 1 0 0
mkface f p
# check that everything is Ok
checkshape a
tolerance a
bopargcheck a f -S #F
# build section
bsection result a f
# check total length of result
set length 1.21473
set 2dviewer 1
|