57c718c4 |
1 | puts "============" |
2 | puts "OCC26061" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # TNaming_Selector crash in select method. |
7 | ####################################################################### |
8 | |
9 | pload QAcommands |
10 | |
e837410d |
11 | NewDocument D BinOcaf |
57c718c4 |
12 | |
13 | ## 1. Build Primitive face <f> |
14 | plane pl 0 0 0 0 0 1 |
15 | mkface f0 pl -10 10 -10 10 |
16 | set Lab900 [Label D 0:1:900] |
17 | BuildNamedShape D $Lab900 P f0 |
18 | |
19 | ## 2. Mirror f0 |
20 | tmirror f0 0 0 10 0 0 1 |
21 | renamevar f0 fmir |
22 | GetShape D $Lab900 f0 |
23 | set Lab901 [Label D 0:1:901] |
24 | BuildNamedShape D $Lab901 G f0 fmir |
25 | |
26 | ## 3. Translate primitive face |
27 | ttranslate f0 0 0 -5 |
28 | renamevar f0 ftr5 |
29 | set Lab902 [Label D 0:1:902] |
30 | GetShape D $Lab900 f0 |
31 | BuildNamedShape D $Lab902 M f0 ftr5 |
32 | |
33 | ## 4. Translate mirrored face |
34 | GetShape D $Lab901 fmir |
35 | renamevar fmir fmirtr |
36 | ttranslate fmirtr 0 0 -5 |
37 | GetShape D $Lab901 fmir |
38 | set Lab903 [Label D 0:1:903] |
39 | BuildNamedShape D $Lab903 M fmir fmirtr |
40 | |
41 | ## 5. Select the face from step 4 (mirrored & translasted) |
42 | set Lab904 [Label D 0:1:904] |
43 | GetShape D $Lab903 fSel |
44 | SelectShape D $Lab904 fSel |
45 | ## ==> No exception |
46 | GetShape D $Lab904 fRes |
47 | whatis fRes |