1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
puts "=========="
puts "OCC24263"
puts "=========="
puts ""
###################################################
# TNaming_CopyShape::CopyTool failure
###################################################
box b 100 100 100
explode b F
if { [regexp "Copy is Done" [CopyShape b b_1] ] != 1 } {
puts "Error : Copy is not done"
} else {
puts "OK : Copy is done"
}
if { [regexp "SOLID FORWARD" [whatis b_c] ] != 1 } {
puts "Error : b_c is not a solid forward"
} else {
puts "OK : b_c is a solid forward"
}
if { [regexp "FACE REVERSED" [whatis b_1_c] ] != 1 } {
puts "Error : b_1_c is not a face reversed"
} else {
puts "OK : b_1_c is a face reversed"
}
|
