mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
7868210dbc
1. The TestTopOpe* packages have been removed. 2. The commands *compare*, *issubshape* and *projponf* have been moved to BRepTest package. 3. The possibility to change the Extrema options has been added to projection algorithm (GeomAPI_ProjectPointOnSurf). 4. Documentation has been updated.
41 lines
670 B
Plaintext
Executable File
41 lines
670 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC26565"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## Compsolid after cut becomes compound of solids
|
|
###############################
|
|
|
|
box b 10 10 10
|
|
explode b f
|
|
|
|
shape profile Sh
|
|
add b_1 profile
|
|
add b_3 profile
|
|
|
|
polyline spine 0 0 0 10 10 0
|
|
|
|
pipe sh spine profile
|
|
|
|
whatis sh
|
|
plane pl 10 10 0 -1 -1 0 1 0 0
|
|
mkface f pl
|
|
|
|
shape sl So
|
|
shape sl_sh Sh
|
|
add f sl_sh
|
|
add sl_sh sl
|
|
|
|
bcut res sh sl
|
|
|
|
explode res
|
|
|
|
# should be compsolid
|
|
|
|
set ShapeType "COMPSOLID"
|
|
if { [regexp $ShapeType [whatis res_1]] == 1 } {
|
|
puts "OK : There is $ShapeType; Compsolid is good"
|
|
} else {
|
|
puts "Error : There is not $ShapeType; Compsolid is bad"
|
|
}
|