a87752f3 |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC295" |
5 | puts "================" |
6 | puts "" |
7 | ############################################################## |
8 | ## Exception is raised in the GeomConvert_CompCurveToBSplineCurve |
9 | ##Exception "Run-time exception error |
10 | ## current exception: xalloc. No handler for exception. |
11 | ## " is raised during merging to edges in DRAW with command "merge re e1 e2". |
12 | ############################################################## |
13 | |
14 | restore [locate_data_file OCC295-1.brep] e1 |
15 | |
16 | set che [checkshape e1] |
17 | if { [regexp {Faulty} $che] == 1} { |
18 | puts "Faulty OCC295 (shape1): Source shape is invalid. It was detected by Checkshape command" |
19 | puts "Body of the script was NOT executed" |
20 | renamevar e1 result |
21 | } else { |
22 | puts "OCC295 OK (shape1): Source shape is valid" |
23 | restore [locate_data_file OCC295-2.brep] e2 |
24 | set che [checkshape e2] |
25 | if { [regexp {Faulty} $che] == 1} { |
26 | puts "Faulty OCC295 (shape2): Source shape is invalid. It was detected by Checkshape command" |
27 | puts "Body of the script was NOT executed" |
28 | renamevar e2 result |
29 | } else { |
30 | puts "OCC295 OK (shape2): Source shape is valid" |
31 | OCC295 result e1 e2 |
32 | } |
33 | } |
34 | |
35 | set length 19.5611 |
36 | set 2dviewer 0 |