40093367 |
1 | #INTERFACE CAF |
2 | # Presentation attributes |
3 | # |
4 | # Testing attribute: TPrsStd_AISPresentation |
5 | # |
6 | # Testing command: AISDriver |
7 | # |
8 | |
9 | puts "caf003-L1" |
10 | |
11 | # Create a box |
12 | box aBox 100 200 300 |
13 | set aLabel 0:2 |
14 | SetShape D ${aLabel} aBox |
15 | |
16 | # Initialize 3D viewer |
17 | AISInitViewer D |
18 | |
19 | # Add AISPresentation attribute with parameter NS |
20 | set aDriverGUID1 [lindex [AISSet D ${aLabel} NS] 0] |
21 | |
22 | # Display presentation of NamedShape in the viewer |
23 | AISDisplay D ${aLabel} |
24 | |
25 | # Get driver GUID |
26 | set aDriverGUID2 [lindex [AISDriver D ${aLabel}] 0] |
27 | |
28 | puts "It is not necessary to have the photo for this case." |
29 | |
30 | if { ${aDriverGUID1} != ${aDriverGUID2} } { |
31 | puts "aDriverGUID1=${aDriverGUID1} aDriverGUID2=${aDriverGUID2}" |
32 | puts "Get the driver GUID; AISDriver command: Error" |
33 | return |
34 | } |
35 | puts "Get the driver GUID; AISDriver command: OK" |