61c421bf |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC157" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file OCC157.brep] wire |
9 | checkshape wire |
10 | |
11 | set Tolerance 100. |
12 | set info_result [OCC157 result wire ${Tolerance}] |
13 | |
14 | set ll [llength ${info_result}] |
15 | if {${ll} < 2} { |
16 | puts "length = ${ll}" |
17 | puts "OCC157: Error" |
18 | } else { |
19 | if { [regexp {OK} $info_result] } { |
20 | puts "OCC157: OK" |
21 | } else { |
22 | puts "OCC157: Error" |
23 | } |
24 | } |
25 | set square 2.11095e+06 |
26 | set 2dviewer 0 |
27 | |