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 0 0 0 |
11 | mksweep sp |
12 | addsweep pp |
13 | buildsweep a -R |
14 | explode a e |
15 | wire ww a_11 a_8 a_5 a_2 |
16 | donly a ww |
17 | fit |
18 | middlepath result a ww ww |
19 | |
1027626d |
20 | set length 365.161 |
7416e83c |
21 | |
22 | set 2dviewer 1 |
23 | |
24 | |
25 | |
26 | |