1 puts "TODO ?CR23788 ALL: Failed units"
3 # =================== OCAF ======================
6 # Testing purpose: Naming selection mechanism
8 # Test case: E4 (ShapeOrientation is not used)
10 # 2. Create cylinder Cyl
11 # 3. Translate Cyl along XYZ
12 # 4. CS = Cut (B2, Cyl)
13 # 5. Make selection for all sub-shapes
15 # 7. Recompute modeling functions
16 # 8. Recompute selections
17 # ===============================================
23 NewDocument D MDTV-Standard
25 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
29 set B2 [AddObject D]; ## add object
30 set F2 [AddFunction D $B2 Box]; ## add function
31 BoxDX D $B2 190; ## set argumets of this function
34 InitLogBook D; ## initialize (clean) internal maps of labels
35 ComputeFun D $F2; ## compute the function
36 GetShape D $F2:2 Box2; ## check result
44 set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment
45 ## AddDriver D Attach Cyl
46 set Cyl [AddCyl D 70 515 ${Sel1}]
48 GetShape D $Cyl:1:2 CylS
52 set FTr1 [PTranslateDXYZ D $Cyl 100 0 0]
54 GetShape D $Cyl:2:2 CylS
58 set CS [AddCut D $B2 $Cyl]
66 set SL [TestSingleSelection D $B2 0]
67 set SL2 [TestMultipleSelection D $B2 0]
85 #8 Recompute selections