4 # Testing attribute: TNaming_NamedShape
6 # Testing command: SelectGeometry (FACE)
13 foreach OS [directory [concat aBox1$ter]] {
25 box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
31 # Set a shape to the label
32 ImportShape D ${aLabel} aBox1
34 # Close/Open transaction
37 # Select all the sub-shapes of type <aType>
40 explode ${aBox1} ${aType}
44 foreach S [directory [concat $aBox1$ter]] {
49 #Memorize a bounding box of the selected sub-shape
50 set aBoundingBox1 [bounding ${S}]
51 set X1_Box1 [lindex ${aBoundingBox1} 0]
52 set Y1_Box1 [lindex ${aBoundingBox1} 1]
53 set Z1_Box1 [lindex ${aBoundingBox1} 2]
54 set X2_Box1 [lindex ${aBoundingBox1} 3]
55 set Y2_Box1 [lindex ${aBoundingBox1} 4]
56 set Z2_Box1 [lindex ${aBoundingBox1} 5]
59 set LABEL [Label D 0:$iSubLabel]
60 SelectGeometry D ${LABEL} ${S} ${aBox1}
62 # Solve selected sub-shape
63 SolveSelection D ${LABEL}
65 # Get selected (and solved) sub-shape
66 GetShape D ${LABEL} aSubShape
69 set aBoundingBox2 [bounding aSubShape]
70 set X1_Box2 [lindex ${aBoundingBox2} 0]
71 set Y1_Box2 [lindex ${aBoundingBox2} 1]
72 set Z1_Box2 [lindex ${aBoundingBox2} 2]
73 set X2_Box2 [lindex ${aBoundingBox2} 3]
74 set Y2_Box2 [lindex ${aBoundingBox2} 4]
75 set Z2_Box2 [lindex ${aBoundingBox2} 5]
77 if {${X1_Box1} != ${X1_Box2} || ${Y1_Box1} != ${Y1_Box2} || ${Z1_Box1} != ${Z1_Box2} || ${X2_Box1} != ${X2_Box2} || ${Y2_Box1} != ${Y2_Box2} || ${Z2_Box1} != ${Z2_Box2}} {
78 puts "SelectGeometry command (${i}): Error"
82 puts "SelectGeometry command: OK"