7416e83c |
1 | puts "============" |
2 | puts "CR23367" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################################################## |
6 | # New functionality restoring the middle path of pipe-like shape |
7 | ########################################################################################################## |
8 | |
9 | polyline pp 0 0 0 10 -10 0 20 0 0 10 10 0 0 0 0 |
10 | polyline sp 0 0 0 0 0 50 -100 0 0 -50 0 -50 |
11 | mksweep sp |
12 | addsweep pp |
13 | buildsweep a -R |
14 | explode a e |
15 | wire w1 a_11 a_8 a_5 a_2 |
16 | wire w2 a_34 a_36 a_28 a_31 |
17 | donly a w1 w2 |
18 | fit |
19 | middlepath result a w1 w2 |
20 | |
1027626d |
21 | set length 270.149 |
7416e83c |
22 | |
23 | set 2dviewer 1 |
24 | |
25 | |
26 | |
27 | |