tests/caf/named_shape/E6

   1 # =================== OCAF ======================
   2 # Naming
   3 #
   4 # Testing purpose: Naming selection mechanism
   5 #
   6 # Test case: E6 (ShapeOrientation is not  used)
   7 # 1. Create box B1
   8 # 2. Create box B2
   9 # 3. Translate B1 along XYZ
  10 # 4. FS = B2 (B2, B1)
  11 # 5. Create cylinder Cyl
  12 # 6. CS = Cut (B1, Cyl)
  13 # 7. Make fillet
  14 # 8. Make  selections for all sub-shapes
  15 # 9. Modify B2
  16 # 10. Recompute modeling functions
  17 # 11. Recompute selections
  18 # ===============================================
  19
  20 #pload FULL
  21
  22 erase
  23 Close D
  24 unset D
  25 NewDocument D MDTV-Standard
  26
  27 #1 - create Box using short-cut
  28 NewCommand D
  29 AddDriver D Box;                        ## add box driver to driver table
  30 set B1 [AddBox D 130 140 150];          ## add box
  31 ComputeFun D $B1:1;                     ## compute box1 function
  32 GetShape D $B1:1:2 Box1;                ## check result
  33 whatis Box1
  34 # referes to result NS
  35 GetReference D $B1;                     ## check is reference set
  36
  37 #2 - create box using more flexible set of commands
  38 NewCommand D
  39 set B2 [AddObject D];                   ## add object
  40 set F2 [AddFunction D $B2 Box];         ## add function
  41 BoxDX D $B2 190;                        ## set argumets of this function
  42 BoxDY D $B2 290
  43 BoxDZ D $B2 390
  44 InitLogBook D;                          ## initialize (clean) internal maps of labels
  45 AddDriver D Box Attach Cyl
  46 ComputeFun D $F2;                       ## compute the function
  47 GetShape D $F2:2 Box2;                  ## check result
  48 whatis Box2
  49 GetReference D $B2;                     ## referes to result NS
  50
  51 #3
  52 NewCommand D
  53 AddDriver D PTxyz PTALine PRLine
  54 set FTr1 [PTranslateDXYZ D $B1 110 130 270]
  55 ComputeFun D $FTr1;                     ## translation function recomputation
  56 GetShape D $FTr1:2 Box1;                ## get modified result
  57
  58 #4 => fuse
  59 AddDriver D Fuse
  60 set FS [AddFuse D $B2 $B1]
  61 ComputeFun D $FS
  62 GetShape D $FS:2 Box2
  63
  64 #5
  65 NewCommand D
  66 explode Box2 F
  67 explode Box2_1 E
  68 set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 0]; ## set attachment
  69 AddDriver D Attach Cyl
  70 set Cyl [AddCyl D 30 315 ${Sel1}]
  71 ComputeFun D $Cyl:1
  72 GetShape D $Cyl:1:2 S
  73
  74 #6 => cut
  75 NewCommand D
  76 AddDriver D Cut
  77 set CS [AddCut D $B2 $Cyl]
  78 ComputeFun D $CS
  79 GetShape D $CS:2 S
  80
  81 #7 => Fillet
  82 NewCommand D
  83 explode S F
  84 explode S_3 E
  85 set Sel2 [AttachShape D S_3_6 ${B2} ${B2} 0]; ## set attachment for using in Fillet
  86 AddDriver D Fillet
  87 set Fill [AddFillet D $B2 25 $Sel2 0]
  88 ComputeFun D $Fill
  89 GetShape D $Fill:2 S
  90
  91
  92 #8 test selection
  93 NewCommand D
  94 set SL [TestSingleSelection D $B2 0]
  95 set SL2 [TestMultipleSelection D $B2 0]
  96
  97 #9 modification
  98 NewCommand D
  99 BoxDX D $B2 210
 100
 101 #10 recomputation
 102 NewCommand D
 103 InitLogBook D;          ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 104 ComputeFun D $F2;
 105 ComputeFun D $B1:1
 106 ComputeFun D $FTr1
 107 ComputeFun D $FS
 108 ComputeFun D $Sel1:1
 109 ComputeFun D $Cyl:1
 110 ComputeFun D $CS
 111 ComputeFun D $Sel2:1
 112 ComputeFun D $Fill
 113 GetShape D $Fill:2 S
 114 don S
 115
 116 #11 recomputation of entities of the TestSelection commands
 117 SolveFlatFrom D $SL
 118 NewCommand D
 119