mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 09:30:48 +08:00
15b2583e69
- Add option 'remove_level' to the command 'removeloc'. - Add test case. Minor correction of test case
15 lines
380 B
Plaintext
15 lines
380 B
Plaintext
puts "======="
|
|
puts "OCC28471"
|
|
puts "======="
|
|
puts ""
|
|
##################################################
|
|
# ShapeUpgrade_RemoveLocations breaks sharing of sub-shapes
|
|
##################################################
|
|
|
|
restore [locate_data_file bug28471_faces_share_vertex.brep] a
|
|
|
|
set remove_level 0 ;# allow compound
|
|
removeloc r a $remove_level
|
|
|
|
checknbshapes r -ref [nbshapes a]
|