352ffd73 |
1 | pload QAcommands |
2 | |
3 | puts "========================" |
4 | puts "OCC372" |
5 | puts "BUC61036" |
6 | puts "========================" |
7 | puts "" |
8 | ############################################################### |
9 | ##BRepClass3d_SolidClassifier classify point to solid as OUT, but the point is inside the solid. |
10 | ############################################################### |
11 | |
12 | restore [locate_data_file OCC372.brep] b1 |
13 | checkshape b1 |
14 | |
15 | point p1 6311.4862583184 -2841.3092756034 16.461053497188 |
16 | |
17 | set result [OCC299 b1 p1] |
18 | set ll [llength ${result}] |
19 | if { ${ll} < 4 } then { |
20 | puts "OCC372: ERROR 1" |
21 | } else { |
22 | regexp {The point is (.*) shape} ${result} full status |
23 | if {[string compare ${status} "IN"] == 0} then { |
24 | puts "status = ${status}" |
25 | puts "OCC372: OK" |
26 | } else { |
27 | puts "status = ${status}" |
28 | puts "Faulty : OCC372" |
29 | } |
30 | } |
31 | |