352ffd73 |
1 | puts "================" |
2 | puts "OCC1031" |
3 | puts "================" |
4 | puts "" |
5 | # |
6 | # Note: Numerical control of setting material |
7 | # |
8 | |
9 | pload QAcommands |
10 | |
e837410d |
11 | NewDocument D BinOcaf |
352ffd73 |
12 | UndoLimit D 100 |
13 | NewCommand D |
14 | |
15 | # Set NamedShape attribute |
16 | box aBox1 100 200 300 |
17 | set aLabel 0:2 |
18 | SetShape D ${aLabel} aBox1 |
19 | |
20 | # Initialize 3D viewer |
21 | AISInitViewer D |
22 | |
23 | # Add AISPresentation attribute with parameter NS |
24 | AISSet D ${aLabel} NS |
25 | |
26 | # Set shading mode |
27 | vsetdispmode 1 |
28 | |
29 | # Display presentation of NamedShape in the viewer |
30 | AISDisplay D ${aLabel} |
31 | |
32 | # Close/Open transaction |
33 | NewCommand D |
34 | |
35 | set list [OCC1031_AISMaterial D ${aLabel}] |
36 | set AISMaterial1 [lindex ${list} [expr [llength ${list}] - 1] ] |
37 | |
38 | # Set a material of the shape as NOM_JADE |
39 | set JadeMaterial 18 |
40 | OCC1031_AISMaterial D ${aLabel} ${JadeMaterial} |
41 | |
42 | set list [OCC1031_AISMaterial D ${aLabel}] |
43 | set AISMaterial2 [lindex ${list} [expr [llength ${list}] - 1] ] |
44 | |
45 | # Close/Open transaction |
46 | NewCommand D |
47 | |
48 | # Undo |
49 | Undo D |
50 | |
51 | # Update the viewer |
52 | AISRepaint D |
53 | |
54 | set list [OCC1031_AISMaterial D ${aLabel}] |
55 | set AISMaterial3 [lindex ${list} [expr [llength ${list}] - 1] ] |
56 | |
57 | # Redo |
58 | Redo D |
59 | |
60 | # Update the viewer |
61 | AISRepaint D |
62 | |
63 | set list [OCC1031_AISMaterial D ${aLabel}] |
64 | set AISMaterial4 [lindex ${list} [expr [llength ${list}] - 1] ] |
65 | |
66 | # Check the material |
67 | puts "AISMaterial1 = ${AISMaterial1}" |
68 | puts "AISMaterial2 = ${AISMaterial2}" |
69 | puts "AISMaterial3 = ${AISMaterial3}" |
70 | puts "AISMaterial4 = ${AISMaterial4}" |
71 | |
72 | set status 0 |
73 | if { ${AISMaterial1} != 0 } { |
74 | puts "OCC1031_AISMaterial command: Error (case 1)" |
75 | set status 1 |
76 | } |
77 | |
78 | if { ${AISMaterial2} != ${JadeMaterial} } { |
79 | puts "OCC1031_AISMaterial command: Error (case 2)" |
80 | set status 1 |
81 | } |
82 | |
83 | if { ${AISMaterial3} != 0 } { |
84 | puts "OCC1031_AISMaterial command: Error (case 3)" |
85 | set status 1 |
86 | } |
87 | |
88 | if { ${AISMaterial4} != ${JadeMaterial} } { |
89 | puts "OCC1031_AISMaterial command: Error (case 4)" |
90 | set status 1 |
91 | } |
92 | |
93 | if { ${status} == 0} { |
94 | puts "OCC1031_AISMaterial command: OK" |
95 | } |
96 | |