0d828ac8 |
1 | puts "============" |
2 | puts "CR25492: The selected subshape does not have topological relationship with original shape in OCC680" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload MODELING VISUALIZATION |
7 | |
8 | set isEqual 0 |
9 | vinit |
10 | box aShape 5 5 5 3 3 3 |
11 | vdisplay aShape |
12 | vfit |
13 | vselmode 4 1 |
14 | vselect 100 200 |
15 | vpickselected aSub |
16 | explode aShape F |
17 | |
18 | for {set i 1} {$i <= 6 } {incr i} { |
19 | set aRes [compare aShape_$i aSub]; |
20 | if { [lsearch $aRes equal] != -1} { |
21 | set isEqual 1 |
22 | } |
23 | } |
24 | |
25 | if {$isEqual == 0} { puts "Error: No selected sub-shape was found in exploded sub-shapes" } |
26 | vdump ${imagedir}/${casename}.png |