0023119: TNaming_Selector::Solve() fails (changes from single face to compound of...
[occt.git] / tests / caf / named_shape / E3
1 # =================== OCAF ======================
2 # Naming
3 #
4 # Testing purpose: Naming selection mechanism 
5 #
6 # Test case: E3 (ShapeOrientation is used only for SingleSelection)
7 # 1. Create box B2
8 # 2. Create box B1
9 # 3. Translate B2 along XYZ
10 # 4. CS = Cut (B2, B1)
11 # 5. Make selection for all sub-shapes
12 # 6. Modify B2
13 # 7. Recompute modeling functions
14 # 8. Recompute selections
15 # ===============================================
16
17 #pload FULL
18 erase 
19 Close D 
20 unset D
21 NewDocument D MDTV-Standard
22
23 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
24 #1 Box creation
25 NewCommand D
26 set B2 [AddObject D];                   ## add object
27 set F2 [AddFunction D $B2 Box];         ## add function
28 BoxDX D $B2 190;                        ## set argumets of this function
29 BoxDY D $B2 290
30 BoxDZ D $B2 390
31 InitLogBook D;                          ## initialize (clean) internal maps of labels
32 ComputeFun D $F2;                       ## compute the function
33 GetShape D $F2:2 Box2;                  ## check result
34 whatis Box2
35 GetReference D $B2
36
37 #2 Box creation
38 NewCommand D
39 set B1 [AddBox D 120 140 150];
40 ComputeFun D $B1:1;
41 GetShape D $B1:1:2 Box;
42 whatis Box
43
44 #3 Translate Box1
45 NewCommand D
46 set FTr1 [PTranslateDXYZ D $B1 150 -40 270]
47 ComputeFun D $FTr1
48 GetShape D $B1:2:2 Box
49
50 #4 Cut B2 B1
51 NewCommand D
52 set CS [AddCut D $B2 $B1]
53 ComputeFun D $CS
54 erase
55 GetShape D $CS:2 S
56 NewCommand D
57
58 #5 test Naming
59 set SL [TestSingleSelection D $B2 1]
60 set SL2 [TestMultipleSelection D $B2 0]
61
62 #6 Modification
63 NewCommand D
64 BoxDX D $B2 220
65
66 #7 recompute
67 NewCommand D
68 InitLogBook D
69 ComputeFun D $F2
70 ComputeFun D $B1:1
71 ComputeFun D $FTr1
72 ComputeFun D $CS
73 erase
74 GetShape D $CS:2 S
75 don S
76
77 #8 Recompute selections
78 SolveFlatFrom D $SL
79 NewCommand D
80
81
82