tests/caf/named_shape/D3

   1 #INTERFACE CAF
   2 # NamedShape
   3 #
   4 # Testing attribute: TNaming_NamedShape
   5 #
   6 # Testing command:   SelectGeometry (VERTEX)
   7 #
   8
   9 puts "caf002-D3"
  10 set QA_DUP 0
  11
  12 set ter _*
  13 foreach OS [directory [concat aBox1$ter]] {
  14         unset $OS
  15 }
  16
  17 # Create a box
  18 set aSetX1 10
  19 set aSetY1 20
  20 set aSetZ1 30
  21 set aSetDX1 100
  22 set aSetDY1 200
  23 set aSetDZ1 300
  24
  25 box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
  26
  27 # Create a label
  28 set aLabel 0:4
  29 Label D ${aLabel}
  30
  31 # Set a shape to the label
  32 ImportShape D ${aLabel} aBox1
  33
  34 # Close/Open transaction
  35 NewCommand D
  36
  37 # Select all the sub-shapes of type <aType>
  38 # aType = VERTEX
  39 set aType v
  40 explode ${aBox1} ${aType}
  41
  42 set i 0
  43 set iSubLabel 3000
  44 foreach S [directory [concat $aBox1$ter]] {
  45         incr i
  46         incr iSubLabel
  47         puts "SubShape=$S"
  48
  49         #Memorize a bounding box of the selected sub-shape
  50         bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
  51
  52         # Select a sub-shape
  53         set LABEL [Label D 0:$iSubLabel]
  54         SelectGeometry D ${LABEL} ${S} ${aBox1}
  55
  56         # Solve selected sub-shape
  57         SolveSelection D ${LABEL}
  58
  59         # Get selected (and solved) sub-shape
  60         GetShape D ${LABEL} aSubShape
  61
  62         # Get bounding box
  63         bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
  64
  65         if {[dval X1_Box1] != [dval X1_Box2] || [dval Y1_Box1] != [dval Y1_Box2] || [dval Z1_Box1] != [dval Z1_Box2] || [dval X2_Box1] != [dval X2_Box2] || [dval Y2_Box1] != [dval Y2_Box2] || [dval Z2_Box1] != [dval Z2_Box2]} {
  66                 puts "SelectGeometry command (${i}): Error"
  67         }
  68 }
  69
  70 puts "SelectGeometry command: OK"