2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISHasOwnMaterial
7 # Note: After a start: AISHasOwnMaterial = false ( int 0 )
12 # Set NamedShape attribute
15 SetShape D ${aLabel} aBox1
17 # Initialize 3D viewer
20 # Add AISPresentation attribute with parameter NS
26 # Display presentation of NamedShape in the viewer
27 AISDisplay D ${aLabel}
30 set HasOwnMaterial [AISHasOwnMaterial D ${aLabel}]
32 puts "It is not necessary to have the photo for this case."
34 if { ${HasOwnMaterial} > 0 } {
35 puts "HasOwnMaterial=${HasOwnMaterial}"
36 puts "There is own material; AISHasOwnMaterial command: Error"
39 puts "There is not own material; AISHasOwnMaterial command: OK"