404c8936 |
1 | puts "====================================================================" |
2 | puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context" |
3 | puts "Select 1 or 2 circled edges" |
4 | puts "====================================================================" |
5 | |
0d828ac8 |
6 | pload MODELING VISUALIZATION |
404c8936 |
7 | vclear |
0d828ac8 |
8 | vinit View1 |
404c8936 |
9 | |
10 | pcylinder c 15 30 |
11 | vdisplay c |
12 | vfit |
13 | |
14 | # Create relation from 1 selected circled edge. |
15 | vselmode c 2 1 |
16 | vselect 205 174 |
17 | |
18 | vrelation r1 -equalradius |
19 | |
20 | vdump $imagedir/${casename}_1.png |
21 | |
22 | # Create relation from 2 selected circled edges. |
23 | vremove r1 |
24 | |
25 | vselect 205 377 |
26 | |
27 | set shift 1 |
28 | vselect 205 174 $shift |
29 | |
30 | vrelation r2 -equalradius |
31 | |
32 | vdump $imagedir/${casename}_2.png |