1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
set chamf_shape 8_J1.draw
set chamf_edge_face [list " 3 2" " 9 2"]
set chamf_dist_angle [list "0.1 30" "0.08 30"]
set chamf_dist_dist [list "0.1 0.11" " 0.2 0.21"]
set chamf_equal_dist [list "0.1 " " 0.2 "]
if { [string compare $command chamf] == 0 } {
puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
} else {
if {[string compare $group dist_angle] == 0} {
puts "TODO OCC22909 MacOS: chamfer is not done. compute of chamfer failed"
} else {
puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
}
if {[string compare $group dist_dist] == 0} {
puts "TODO OCC22909 MacOS: chamfer is not done. compute of chamfer failed"
}
if {[string compare $group equal_dist] == 0} {
puts "TODO OCC22909 MacOS: chamfer is not done. compute of chamfer failed"
}
}
|
