2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISViewer
5 # Testing attribute: TPrsStd_AISPresentation
7 # Testing command: AISSet
8 # Testing command: AISDisplay
9 # Testing command: AISRepaint
14 # Set NamedShape attribute
17 SetShape D ${aLabel} aBox1
19 # Initialize 3D viewer
25 # Add AISPresentation attribute with parameter NS
28 # Close/Open transaction
31 # Display presentation of NamedShape in the viewer
32 AISDisplay D ${aLabel}
34 # Close/Open transaction
40 # Update the viewer (AISRepaint Doc)
43 puts "There is the empty 3D viewer"