mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
bc728d2621
Improve processing of subshapes in ShapeTool Fix sharing and calculating location for subshapes Switch off autonaming for expand
37 lines
784 B
Plaintext
37 lines
784 B
Plaintext
puts "=========="
|
|
puts "OCC29599"
|
|
puts "=========="
|
|
puts ""
|
|
##########################################
|
|
# Incorrect expand compound method in XDE
|
|
##########################################
|
|
pload ALL
|
|
|
|
XOpen [locate_data_file bug29599.xbf] D
|
|
XExpand D 0:1:1:1
|
|
|
|
# check location of subshape
|
|
XGetShape sh D 0:1:1:10
|
|
XGetShape subsh D 0:1:1:10:1
|
|
set check_sub [issubshape subsh sh]
|
|
set check_sub [lindex $check_sub 5]
|
|
|
|
if {$check_sub != "Index"} {
|
|
puts "Error: Wrong subshape location"
|
|
}
|
|
|
|
# check sharing of new part
|
|
set ref1 [XGetReferredShape D 0:1:1:1:5]
|
|
set ref2 [XGetReferredShape D 0:1:1:1:8]
|
|
if {$ref1 != $ref2} {
|
|
puts "Error: Wrong sharing"
|
|
}
|
|
|
|
# check name
|
|
set name [GetName D 0:1:1:1:5]
|
|
if {$name != "l-bracket-assembly_1"} {
|
|
puts "Error: Wrong name of component"
|
|
}
|
|
|
|
Close D
|