1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "========"
puts "OCC21727"
puts "========"
puts ""
###########################################################################################
# BRepBuilderAPI_Copy (and possibly other similar tools) create new shape in Frozen state
###########################################################################################
box b 10 10 10
set bug_info [whatis b]
if {[lindex $bug_info 6] != "Free"} {
puts "ERROR: OCC21727 is reproduced. Shape b does not have flag FREE."
}
compound b c
set bug_info [whatis b]
if {[lindex $bug_info 6] == "Free"} {
puts "ERROR: OCC21727 is reproduced. Shape b has flag FREE."
}
tcopy b q
set bug_info [whatis q]
if {[lindex $bug_info 6] != "Free"} {
puts "ERROR: OCC21727 is reproduced. Shape q does not have flag FREE."
}
|
