mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
7783ba1120
Add protection from return of not top-level shape by FindShape method. Add protection against located roots into FindMainShape method. Add new Draw command for FindMainShape. Add flag findInstance to Draw command FindShape
36 lines
708 B
Plaintext
36 lines
708 B
Plaintext
puts "==============================================="
|
|
puts "0030727: Data Exchange - Problems in Shape Tool"
|
|
puts "==============================================="
|
|
puts ""
|
|
|
|
pload DCAF
|
|
|
|
box b 1 1 1
|
|
copy b bb
|
|
ttranslate bb 2 0 0
|
|
XNewDoc D
|
|
XAddShape D bb
|
|
explode bb f
|
|
explode b f
|
|
|
|
set result [XFindMainShape D b_1]
|
|
if {$result != "0:1:1:2"} {
|
|
puts "Error: wrong result of FindMainShape"
|
|
}
|
|
|
|
set result [XFindMainShape D bb_1]
|
|
if {$result != ""} {
|
|
puts "Error: wrong result of FindMainShape"
|
|
}
|
|
|
|
XAddSubShape D b_1 0:1:1:2
|
|
compound b_1 b_2 c
|
|
XAddShape D c
|
|
|
|
set result [XGetTopLevelShapes D]
|
|
if {$result != "0:1:1:1 0:1:1:2 0:1:1:3 0:1:1:4 0:1:1:5 "} {
|
|
puts "Error: wrong result of FindMainShape"
|
|
}
|
|
Close D
|
|
|