mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
385d47dde7
When removing internal boundaries between faces of the same material do it once for the whole shape, and at this keep boundaries between areas with different material.
57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
puts "=========="
|
|
puts "OCC28245"
|
|
puts "=========="
|
|
puts ""
|
|
#################################################################################################
|
|
# Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces
|
|
#################################################################################################
|
|
|
|
circle c1 0 0 0 0 0 1 10
|
|
circle c2 10 0 0 0 0 1 10
|
|
circle c3 5 9 0 0 0 1 10
|
|
|
|
mkedge e1 c1
|
|
mkedge e2 c2
|
|
mkedge e3 c3
|
|
|
|
wire w1 e1
|
|
wire w2 e2
|
|
wire w3 e3
|
|
|
|
mkplane f1 w1
|
|
mkplane f2 w2
|
|
mkplane f3 w3
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects f1 f2 f3
|
|
bfillds
|
|
bcbuild rx
|
|
|
|
bcadd r1 f1 1 -m 1 -u
|
|
bcadd r1 f2 1 -m 2 -u
|
|
|
|
checknbshapes r1 -face 2
|
|
checkprops r1 -s 505.482
|
|
|
|
bcremoveall
|
|
bcadd r2 f1 1 -m 1 -u
|
|
bcadd r2 f2 1 -m 1 -u
|
|
|
|
checknbshapes r2 -face 1
|
|
checkprops r2 -s 505.482
|
|
|
|
bcremoveall
|
|
bcadd result f1 1 -m 1
|
|
bcadd result f2 1 f3 0 -m 1
|
|
bcadd result f3 1 f1 0 -m 2
|
|
bcremoveint result
|
|
|
|
set bcheck [bopcheck result]
|
|
if {![regexp {This shape seems to be OK.} $bcheck]} {
|
|
puts "Error: result shape is self intersected"
|
|
}
|
|
|
|
checknbshapes result -edge 8 -face 2
|
|
checkprops result -s 651.238
|