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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
puts "========================"
puts " OCC592 "
puts "========================"
puts ""
###################################
##BRepCheck_Analyzer does not detect faulty shape
#####################################
restore [locate_data_file OCC592.brep] ff114
explode ff114 e
mkcurve cc ff114_8
cvalue cc 0.95 x y z
vertex vv x y z
mksurface gs ff114
mkface ff gs
donl ff114 vv
trim trcc cc
set aa [distmini dd vv ff]
puts "******* Result *******"
regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
puts "distance between the point on curve and the surface is $dis1"
set tolerance [maxtolerance ff114_8]
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
puts "the tolerance of the edge is $MaxEdgeTolerance"
puts "the tolerance is less than distance between point and surface"
puts "BUT"
decho off
set che [checkshape ff114]
decho on
if { [regexp {Faulty} $che] != 1 } {
puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
} else {
puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
}
set 2dviewer 0
|
