1 puts "================"
3 puts "================"
6 # Note: Numerical control of setting selection mode
15 # Set NamedShape attribute
18 SetShape D ${aLabel1} aBox1
20 # Initialize 3D viewer
23 # Add AISPresentation attribute with parameter NS
24 AISSet D ${aLabel1} NS
26 # Close/Open transaction
29 set list [OCC1034_AISSelectionMode D ${aLabel1}]
30 set AISSelectionMode1 [lindex ${list} [expr [llength ${list}] - 1] ]
32 # Display presentation of NamedShape in the viewer
33 AISDisplay D ${aLabel1}
35 # Close/Open transaction
39 set SetSelectionMode 2
40 OCC1034_AISSelectionMode D ${aLabel1} ${SetSelectionMode}
42 set list [OCC1034_AISSelectionMode D ${aLabel1}]
43 set AISSelectionMode2 [lindex ${list} [expr [llength ${list}] - 1] ]
45 # Close/Open transaction
54 set list [OCC1034_AISSelectionMode D ${aLabel1}]
55 set AISSelectionMode3 [lindex ${list} [expr [llength ${list}] - 1] ]
63 set list [OCC1034_AISSelectionMode D ${aLabel1}]
64 set AISSelectionMode4 [lindex ${list} [expr [llength ${list}] - 1] ]
67 puts "AISSelectionMode1 = ${AISSelectionMode1}"
68 puts "AISSelectionMode2 = ${AISSelectionMode2}"
69 puts "AISSelectionMode3 = ${AISSelectionMode3}"
70 puts "AISSelectionMode4 = ${AISSelectionMode4}"
72 set DefaultAISSelectionMode 0
74 if { ${AISSelectionMode1} != ${DefaultAISSelectionMode} } {
75 puts "OCC1034_AISSelectionMode command: Error (case 1)"
78 if { ${AISSelectionMode2} != ${SetSelectionMode} } {
79 puts "OCC1034_AISSelectionMode command: Error (case 2)"
82 if { ${AISSelectionMode3} != ${DefaultAISSelectionMode} } {
83 puts "OCC1034_AISSelectionMode command: Error (case 3)"
86 if { ${AISSelectionMode4} != ${SetSelectionMode} } {
87 puts "OCC1034_AISSelectionMode command: Error (case 4)"
91 if { ${status} == 0} {
92 puts "OCC1034_AISSelectionMode command: OK"