ac4efa22 |
1 | set Test "Specific operations naming test" |
2 | set IsDone 1 |
3 | set TestError "" |
4 | |
5 | if {[catch {set TestLab}] == 1} { |
6 | NewDocument D |
7 | set TestLab 0:1 |
8 | } |
9 | |
10 | set myLab [set TestLab]:1 |
11 | set myNameLab [set TestLab]:100 |
12 | |
13 | #################### two boxes glueing #################### |
14 | NameBox D $myLab 20 30 40 |
15 | set Box1Lab $myLab |
16 | NextLabel myLab |
17 | NextLabel myNameLab |
18 | box b 20 10 20 20 30 40 |
19 | NameImportShape D $myLab b |
20 | set Box2Lab $myLab |
21 | NextLabel myLab |
22 | NextLabel myNameLab |
23 | NameGlue D $myLab $Box1Lab $Box2Lab |
24 | Checking "Two boxes glueing" |
25 | |
26 | #################### 3-faces shell and 2-faces shell glueing #################### |
27 | restore [locate_data_file HH_O.brep] object |
28 | restore [locate_data_file HH_T.brep] tool |
29 | global object |
30 | NameImportShape D $myLab object |
31 | set ObjectLab $myLab |
32 | NextLabel myLab |
33 | NextLabel myNameLab |
34 | global tool |
35 | NameImportShape D $myLab tool |
36 | set ToolLab $myLab |
37 | NextLabel myLab |
38 | NextLabel myNameLab |
39 | NameGlue D $myLab $ObjectLab $ToolLab |
40 | Checking "Two shells glueing" |
41 | |
42 | #################### import box with broken edges and internal vertex at the face #################### |
43 | restore [locate_data_file brockenedgesbox.brep] bbox |
44 | NameImportShape D $myLab object |
45 | Checking "Box with broken edges" |