1 set chamf_shape 8_J1.draw
2 set chamf_edge_face [list " 4 1" " 3 2" " 9 2"]
3 set chamf_dist_angle [list " 0.1 30" " 0.1 30" " 0.1 30"]
4 set chamf_dist_dist [list " 0.1 0.2" " 0.2 0.2" " 0.2 0.2"]
5 set chamf_equal_dist [list "0.06 " "0.08 " "0.08 "]
6 if { [string compare $command chamf_sequence] == 0 && [string compare $group dist_dist] == 0 } {
7 puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"