f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "========" |
4 | puts "OCC712" |
5 | puts "========" |
6 | puts "" |
7 | ############################################################ |
8 | ## Exeption is raised in DRAW during building draft with help command "depouille" |
9 | ## on face in the attached shape. |
10 | ## The source code of application is also attached and should be checked. |
11 | ############################################################ |
12 | |
13 | set draftAngle 15 |
14 | set slabThick 30 |
15 | |
16 | if [catch {OCC712 ${draftAngle} ${slabThick} } catch_result] { |
17 | puts "Faulty OCC712" |
18 | } else { |
19 | puts "OCC712 OK" |
20 | } |
21 | |
22 | set 2dviewer 0 |