;;;;       Erstellen einer     ;;;;
;;;;        Kurvenscheibe    ;;;;


;;;   erstellen der Spline auf der Achse der inneren Rolle
(create_bspline :wire_part "/KurvenlinieInnen"

;;;   von hier an sind die eignetlichen Werte für die KurveInnen einzufügen: ;;;

255.762,0.000,0.000
253.948,4.433,0.000
252.017,8.801,0.000
249.974,13.101,0.000
247.821,17.329,0.000
245.562,21.484,0.000
243.200,25.561,0.000
240.740,29.559,0.000
238.186,33.475,0.000
235.541,37.306,0.000
232.810,41.051,0.000
229.995,44.707,0.000
227.102,48.272,0.000
224.136,51.746,0.000
221.100,55.127,0.000
217.999,58.413,0.000
214.836,61.603,0.000
211.617,64.698,0.000
208.345,67.695,0.000
205.026,70.596,0.000
201.663,73.399,0.000
198.260,76.105,0.000
194.822,78.713,0.000
191.353,81.224,0.000
187.857,83.639,0.000
184.338,85.958,0.000
180.801,88.183,0.000
177.251,90.314,0.000
173.688,92.352,0.000
170.119,94.298,0.000
166.546,96.156,0.000
162.974,97.925,0.000
159.406,99.608,0.000
155.845,101.207,0.000
152.294,102.724,0.000
148.757,104.161,0.000
145.237,105.521,0.000
141.736,106.806,0.000
138.258,108.019,0.000
134.804,109.162,0.000
131.377,110.238,0.000
127.979,111.251,0.000
124.613,112.202,0.000
121.280,113.095,0.000
117.981,113.933,0.000
114.720,114.720,0.000
111.496,115.458,0.000
108.312,116.150,0.000
105.167,116.800,0.000
102.064,117.412,0.000
99.003,117.987,0.000
95.984,118.530,0.000
93.007,119.044,0.000
90.074,119.532,0.000
87.183,119.997,0.000
84.334,120.442,0.000
81.528,120.870,0.000
78.764,121.285,0.000
76.040,121.690,0.000
73.357,122.087,0.000
70.714,122.479,0.000
68.108,122.870,0.000
65.539,123.261,0.000
63.006,123.656,0.000
60.506,124.056,0.000
58.039,124.465,0.000
55.602,124.884,0.000
53.193,125.316,0.000
50.811,125.762,0.000
48.453,126.225,0.000
46.117,126.706,0.000
43.801,127.206,0.000
41.502,127.729,0.000
39.217,128.273,0.000
36.945,128.842,0.000
34.682,129.434,0.000
32.418,130.020,0.000
30.143,130.566,0.000
27.860,131.072,0.000
25.568,131.538,0.000
23.269,131.964,0.000
20.962,132.350,0.000
18.649,132.696,0.000
16.330,133.001,0.000
14.007,133.266,0.000
11.679,133.490,0.000
9.347,133.674,0.000
7.013,133.816,0.000
4.677,133.918,0.000
2.339,133.980,0.000
0.000,134.000,0.000
-2.339,133.980,0.000
-4.677,133.918,0.000
-7.013,133.816,0.000
-9.347,133.674,0.000
-11.679,133.490,0.000
-14.007,133.266,0.000
-16.330,133.001,0.000
-18.649,132.696,0.000
-20.962,132.350,0.000
-23.269,131.964,0.000
-25.568,131.538,0.000
-27.860,131.072,0.000
-30.143,130.566,0.000
-32.418,130.020,0.000
-34.682,129.434,0.000
-36.935,128.809,0.000
-39.178,128.145,0.000
-41.408,127.442,0.000
-43.626,126.699,0.000
-45.831,125.919,0.000
-48.021,125.100,0.000
-50.197,124.243,0.000
-52.358,123.348,0.000
-54.503,122.415,0.000
-56.631,121.445,0.000
-58.742,120.438,0.000
-60.835,119.395,0.000
-62.909,118.315,0.000
-64.964,117.199,0.000
-67.000,116.047,0.000
-69.015,114.860,0.000
-71.009,113.638,0.000
-72.982,112.382,0.000
-74.932,111.091,0.000
-76.859,109.766,0.000
-78.763,108.408,0.000
-80.643,107.017,0.000
-82.499,105.593,0.000
-84.329,104.138,0.000
-86.134,102.650,0.000
-87.912,101.131,0.000
-89.664,99.581,0.000
-91.388,98.001,0.000
-93.084,96.392,0.000
-94.752,94.752,0.000
-96.392,93.084,0.000
-98.001,91.388,0.000
-99.581,89.664,0.000
-101.131,87.912,0.000
-102.650,86.134,0.000
-104.138,84.329,0.000
-105.593,82.499,0.000
-107.017,80.643,0.000
-108.408,78.763,0.000
-109.766,76.859,0.000
-111.091,74.932,0.000
-112.382,72.982,0.000
-113.638,71.009,0.000
-114.860,69.015,0.000
-116.047,67.000,0.000
-117.199,64.964,0.000
-118.315,62.909,0.000
-119.395,60.835,0.000
-120.438,58.742,0.000
-121.445,56.631,0.000
-122.415,54.503,0.000
-123.348,52.358,0.000
-124.243,50.197,0.000
-125.100,48.021,0.000
-125.919,45.831,0.000
-126.699,43.626,0.000
-127.442,41.408,0.000
-128.145,39.178,0.000
-128.809,36.935,0.000
-129.434,34.682,0.000
-130.020,32.418,0.000
-130.566,30.143,0.000
-131.072,27.860,0.000
-131.538,25.568,0.000
-131.964,23.269,0.000
-132.350,20.962,0.000
-132.696,18.649,0.000
-133.001,16.330,0.000
-133.266,14.007,0.000
-133.490,11.679,0.000
-133.674,9.347,0.000
-133.816,7.013,0.000
-133.918,4.677,0.000
-133.980,2.339,0.000
-134.000,0.000,0.000
-133.980,-2.339,0.000
-133.918,-4.677,0.000
-133.816,-7.013,0.000
-133.674,-9.347,0.000
-133.490,-11.679,0.000
-133.266,-14.007,0.000
-133.001,-16.330,0.000
-132.696,-18.649,0.000
-132.350,-20.962,0.000
-131.964,-23.269,0.000
-131.538,-25.568,0.000
-131.072,-27.860,0.000
-130.566,-30.143,0.000
-130.020,-32.418,0.000
-129.434,-34.682,0.000
-128.765,-36.923,0.000
-127.968,-39.124,0.000
-127.047,-41.280,0.000
-126.004,-43.387,0.000
-124.842,-45.439,0.000
-123.566,-47.433,0.000
-122.181,-49.364,0.000
-120.690,-51.230,0.000
-119.100,-53.027,0.000
-117.417,-54.752,0.000
-115.645,-56.404,0.000
-113.793,-57.980,0.000
-111.868,-59.481,0.000
-109.874,-60.904,0.000
-107.820,-62.250,0.000
-105.714,-63.519,0.000
-103.562,-64.713,0.000
-101.371,-65.831,0.000
-99.150,-66.878,0.000
-96.905,-67.854,0.000
-94.644,-68.763,0.000
-92.373,-69.608,0.000
-90.099,-70.393,0.000
-87.828,-71.122,0.000
-85.568,-71.800,0.000
-83.322,-72.431,0.000
-81.099,-73.022,0.000
-78.900,-73.575,0.000
-76.733,-74.100,0.000
-74.600,-74.600,0.000
-72.505,-75.081,0.000
-70.452,-75.550,0.000
-68.443,-76.014,0.000
-66.480,-76.477,0.000
-64.565,-76.945,0.000
-62.699,-77.426,0.000
-60.881,-77.924,0.000
-59.113,-78.445,0.000
-57.393,-78.995,0.000
-55.721,-79.577,0.000
-54.094,-80.198,0.000
-52.511,-80.860,0.000
-50.970,-81.570,0.000
-49.467,-82.327,0.000
-48.000,-83.138,0.000
-46.569,-84.013,0.000
-45.177,-84.965,0.000
-43.817,-85.995,0.000
-42.485,-87.107,0.000
-41.175,-88.300,0.000
-39.882,-89.577,0.000
-38.601,-90.939,0.000
-37.326,-92.386,0.000
-36.052,-93.919,0.000
-34.773,-95.538,0.000
-33.483,-97.242,0.000
-32.177,-99.031,0.000
-30.849,-100.903,0.000
-29.494,-102.858,0.000
-28.106,-104.894,0.000
-26.680,-107.007,0.000
-25.210,-109.198,0.000
-23.692,-111.462,0.000
-22.120,-113.797,0.000
-20.489,-116.199,0.000
-18.795,-118.665,0.000
-17.032,-121.191,0.000
-15.197,-123.772,0.000
-13.286,-126.406,0.000
-11.293,-129.085,0.000
-9.217,-131.806,0.000
-7.052,-134.563,0.000
-4.796,-137.352,0.000
-2.447,-140.167,0.000
0.000,-143.000,0.000
2.546,-145.848,0.000
5.193,-148.702,0.000
7.943,-151.559,0.000
10.797,-154.410,0.000
13.758,-157.249,0.000
16.824,-160.070,0.000
19.998,-162.867,0.000
23.278,-165.631,0.000
26.665,-168.357,0.000
30.159,-171.038,0.000
33.758,-173.668,0.000
37.460,-176.237,0.000
41.266,-178.741,0.000
45.171,-181.173,0.000
49.176,-183.526,0.000
53.275,-185.794,0.000
57.468,-187.968,0.000
61.750,-190.046,0.000
66.117,-192.018,0.000
70.567,-193.880,0.000
75.094,-195.626,0.000
79.694,-197.250,0.000
84.363,-198.746,0.000
89.095,-200.110,0.000
93.885,-201.336,0.000
98.727,-202.420,0.000
103.616,-203.357,0.000
108.545,-204.144,0.000
113.508,-204.775,0.000
118.500,-205.248,0.000
123.512,-205.559,0.000
128.539,-205.706,0.000
133.574,-205.686,0.000
138.608,-205.495,0.000
143.636,-205.134,0.000
148.650,-204.599,0.000
153.642,-203.890,0.000
158.605,-203.006,0.000
163.533,-201.946,0.000
168.415,-200.710,0.000
173.247,-199.298,0.000
178.021,-197.712,0.000
182.728,-195.952,0.000
187.361,-194.018,0.000
191.913,-191.913,0.000
196.378,-189.640,0.000
200.747,-187.200,0.000
205.014,-184.595,0.000
209.172,-181.830,0.000
213.214,-178.908,0.000
217.134,-175.831,0.000
220.926,-172.606,0.000
224.583,-169.235,0.000
228.099,-165.724,0.000
231.469,-162.077,0.000
234.688,-158.299,0.000
237.751,-154.397,0.000
240.651,-150.376,0.000
243.387,-146.241,0.000
245.951,-142.000,0.000
248.362,-137.669,0.000
250.639,-133.267,0.000
252.777,-128.796,0.000
254.776,-124.262,0.000
256.632,-119.669,0.000
258.346,-115.023,0.000
259.915,-110.327,0.000
261.338,-105.587,0.000
262.613,-100.808,0.000
263.742,-95.994,0.000
264.722,-91.151,0.000
265.552,-86.283,0.000
266.233,-81.396,0.000
266.766,-76.494,0.000
267.149,-71.582,0.000
267.383,-66.666,0.000
267.470,-61.750,0.000
267.410,-56.840,0.000
267.203,-51.939,0.000
266.851,-47.053,0.000
266.356,-42.187,0.000
265.719,-37.344,0.000
264.941,-32.531,0.000
264.026,-27.750,0.000
262.974,-23.007,0.000
261.789,-18.306,0.000
260.473,-13.651,0.000
259.027,-9.045,0.000
257.456,-4.494,0.000






;;;   bis hier sind die eignetlichen Werte einzufügen ;;;
:end_condition :closed
complete)






;;;   erstellen der Spline auf der Achse der äusseren Rolle
(create_bspline :wire_part "/KurvenlinieAussen"

;;;   von hier an sind die eignetlichen Werte für die KurveAussen einzufügen: ;;;

388.762,0.000,0.000
386.928,6.754,0.000
384.936,13.442,0.000
382.792,20.061,0.000
380.497,26.607,0.000
378.056,33.076,0.000
375.472,39.464,0.000
372.749,45.768,0.000
369.892,51.985,0.000
366.904,58.112,0.000
363.789,64.146,0.000
360.552,70.084,0.000
357.196,75.924,0.000
353.728,81.664,0.000
350.150,87.302,0.000
346.467,92.836,0.000
342.684,98.263,0.000
338.805,103.583,0.000
334.836,108.795,0.000
330.780,113.897,0.000
326.642,118.888,0.000
322.426,123.768,0.000
318.137,128.536,0.000
313.780,133.192,0.000
309.358,137.735,0.000
304.877,142.167,0.000
300.341,146.486,0.000
295.754,150.694,0.000
291.120,154.791,0.000
286.443,158.778,0.000
281.728,162.656,0.000
276.977,166.425,0.000
272.196,170.087,0.000
267.388,173.644,0.000
262.556,177.096,0.000
257.704,180.447,0.000
252.836,183.696,0.000
247.955,186.847,0.000
243.063,189.902,0.000
238.164,192.862,0.000
233.261,195.729,0.000
228.355,198.506,0.000
223.451,201.196,0.000
218.550,203.801,0.000
213.653,206.323,0.000
208.765,208.765,0.000
203.886,211.130,0.000
199.017,213.420,0.000
194.162,215.638,0.000
189.320,217.788,0.000
184.494,219.871,0.000
179.684,221.891,0.000
174.890,223.849,0.000
170.115,225.750,0.000
165.358,227.596,0.000
160.620,229.389,0.000
155.901,231.132,0.000
151.201,232.828,0.000
146.519,234.480,0.000
141.857,236.090,0.000
137.214,237.661,0.000
132.588,239.194,0.000
127.979,240.693,0.000
123.386,242.160,0.000
118.810,243.596,0.000
114.247,245.004,0.000
109.698,246.386,0.000
105.161,247.743,0.000
100.634,249.078,0.000
96.116,250.391,0.000
91.606,251.685,0.000
87.101,252.960,0.000
82.601,254.219,0.000
78.102,255.462,0.000
73.605,256.690,0.000
69.105,257.902,0.000
64.593,259.069,0.000
60.062,260.157,0.000
55.512,261.165,0.000
50.946,262.094,0.000
46.364,262.944,0.000
41.768,263.713,0.000
37.159,264.402,0.000
32.539,265.010,0.000
27.909,265.537,0.000
23.271,265.984,0.000
18.625,266.350,0.000
13.974,266.634,0.000
9.318,266.837,0.000
4.660,266.959,0.000
0.000,267.000,0.000
-4.660,266.959,0.000
-9.318,266.837,0.000
-13.974,266.634,0.000
-18.625,266.350,0.000
-23.271,265.984,0.000
-27.909,265.537,0.000
-32.539,265.010,0.000
-37.159,264.402,0.000
-41.768,263.713,0.000
-46.364,262.944,0.000
-50.946,262.094,0.000
-55.512,261.165,0.000
-60.062,260.157,0.000
-64.593,259.069,0.000
-69.105,257.902,0.000
-73.595,256.657,0.000
-78.063,255.333,0.000
-82.508,253.932,0.000
-86.927,252.453,0.000
-91.319,250.898,0.000
-95.684,249.266,0.000
-100.020,247.558,0.000
-104.325,245.775,0.000
-108.599,243.917,0.000
-112.839,241.984,0.000
-117.045,239.978,0.000
-121.215,237.899,0.000
-125.349,235.747,0.000
-129.444,233.523,0.000
-133.500,231.229,0.000
-137.515,228.864,0.000
-141.488,226.429,0.000
-145.419,223.925,0.000
-149.305,221.353,0.000
-153.145,218.714,0.000
-156.939,216.008,0.000
-160.685,213.236,0.000
-164.382,210.399,0.000
-168.029,207.498,0.000
-171.624,204.534,0.000
-175.168,201.507,0.000
-178.658,198.420,0.000
-182.094,195.271,0.000
-185.474,192.064,0.000
-188.798,188.798,0.000
-192.064,185.474,0.000
-195.271,182.094,0.000
-198.420,178.658,0.000
-201.507,175.168,0.000
-204.534,171.624,0.000
-207.498,168.029,0.000
-210.399,164.382,0.000
-213.236,160.685,0.000
-216.008,156.939,0.000
-218.714,153.145,0.000
-221.353,149.305,0.000
-223.925,145.419,0.000
-226.429,141.488,0.000
-228.864,137.515,0.000
-231.229,133.500,0.000
-233.523,129.444,0.000
-235.747,125.349,0.000
-237.899,121.215,0.000
-239.978,117.045,0.000
-241.984,112.839,0.000
-243.917,108.599,0.000
-245.775,104.325,0.000
-247.558,100.020,0.000
-249.266,95.684,0.000
-250.898,91.319,0.000
-252.453,86.927,0.000
-253.932,82.508,0.000
-255.333,78.063,0.000
-256.657,73.595,0.000
-257.902,69.105,0.000
-259.069,64.593,0.000
-260.157,60.062,0.000
-261.165,55.512,0.000
-262.094,50.946,0.000
-262.944,46.364,0.000
-263.713,41.768,0.000
-264.402,37.159,0.000
-265.010,32.539,0.000
-265.537,27.909,0.000
-265.984,23.271,0.000
-266.350,18.625,0.000
-266.634,13.974,0.000
-266.837,9.318,0.000
-266.959,4.660,0.000
-267.000,0.000,0.000
-266.959,-4.660,0.000
-266.837,-9.318,0.000
-266.634,-13.974,0.000
-266.350,-18.625,0.000
-265.984,-23.271,0.000
-265.537,-27.909,0.000
-265.010,-32.539,0.000
-264.402,-37.159,0.000
-263.713,-41.768,0.000
-262.944,-46.364,0.000
-262.094,-50.946,0.000
-261.165,-55.512,0.000
-260.157,-60.062,0.000
-259.069,-64.593,0.000
-257.902,-69.105,0.000
-256.613,-73.582,0.000
-255.156,-78.009,0.000
-253.537,-82.379,0.000
-251.758,-86.687,0.000
-249.821,-90.927,0.000
-247.732,-95.095,0.000
-245.496,-99.187,0.000
-243.117,-103.197,0.000
-240.601,-107.123,0.000
-237.956,-110.961,0.000
-235.185,-114.707,0.000
-232.297,-118.361,0.000
-229.300,-121.921,0.000
-226.199,-125.384,0.000
-223.002,-128.750,0.000
-219.717,-132.019,0.000
-216.352,-135.192,0.000
-212.914,-138.268,0.000
-209.412,-141.250,0.000
-205.852,-144.139,0.000
-202.243,-146.938,0.000
-198.591,-149.649,0.000
-194.904,-152.276,0.000
-191.189,-154.822,0.000
-187.452,-157.291,0.000
-183.699,-159.687,0.000
-179.937,-162.016,0.000
-176.170,-164.281,0.000
-172.405,-166.489,0.000
-168.645,-168.645,0.000
-164.895,-170.753,0.000
-161.158,-172.820,0.000
-157.438,-174.852,0.000
-153.736,-176.853,0.000
-150.056,-178.829,0.000
-146.398,-180.787,0.000
-142.764,-182.729,0.000
-139.154,-184.664,0.000
-135.569,-186.594,0.000
-132.006,-188.525,0.000
-128.467,-190.460,0.000
-124.948,-192.404,0.000
-121.450,-194.360,0.000
-117.967,-196.331,0.000
-114.500,-198.320,0.000
-111.049,-200.338,0.000
-107.616,-202.397,0.000
-104.198,-204.499,0.000
-100.788,-206.646,0.000
-97.383,-208.839,0.000
-93.978,-211.078,0.000
-90.568,-213.366,0.000
-87.149,-215.701,0.000
-83.715,-218.085,0.000
-80.262,-220.517,0.000
-76.784,-222.996,0.000
-73.276,-225.521,0.000
-69.734,-228.091,0.000
-66.154,-230.706,0.000
-62.529,-233.362,0.000
-58.855,-236.056,0.000
-55.129,-238.789,0.000
-51.344,-241.556,0.000
-47.498,-244.354,0.000
-43.584,-247.179,0.000
-39.600,-250.027,0.000
-35.542,-252.897,0.000
-31.406,-255.781,0.000
-27.188,-258.677,0.000
-22.885,-261.579,0.000
-18.494,-264.482,0.000
-14.013,-267.381,0.000
-9.438,-270.271,0.000
-4.768,-273.146,0.000
0.000,-276.000,0.000
4.867,-278.828,0.000
9.834,-281.621,0.000
14.904,-284.377,0.000
20.075,-287.086,0.000
25.349,-289.743,0.000
30.726,-292.342,0.000
36.206,-294.876,0.000
41.788,-297.337,0.000
47.471,-299.720,0.000
53.254,-302.018,0.000
59.135,-304.224,0.000
65.113,-306.330,0.000
71.184,-308.333,0.000
77.347,-310.222,0.000
83.599,-311.994,0.000
89.935,-313.641,0.000
96.353,-315.157,0.000
102.849,-316.536,0.000
109.418,-317.772,0.000
116.055,-318.859,0.000
122.757,-319.792,0.000
129.517,-320.565,0.000
136.330,-321.173,0.000
143.191,-321.612,0.000
150.093,-321.875,0.000
157.030,-321.960,0.000
163.996,-321.861,0.000
170.985,-321.576,0.000
177.988,-321.099,0.000
185.000,-320.429,0.000
192.012,-319.562,0.000
199.019,-318.496,0.000
206.011,-317.229,0.000
212.981,-315.757,0.000
219.922,-314.081,0.000
226.825,-312.198,0.000
233.684,-310.109,0.000
240.488,-307.811,0.000
247.232,-305.306,0.000
253.906,-302.594,0.000
260.503,-299.675,0.000
267.015,-296.550,0.000
273.434,-293.222,0.000
279.751,-289.690,0.000
285.958,-285.958,0.000
292.050,-282.029,0.000
298.017,-277.905,0.000
303.852,-273.589,0.000
309.548,-269.086,0.000
315.098,-264.398,0.000
320.494,-259.531,0.000
325.731,-254.489,0.000
330.801,-249.277,0.000
335.698,-243.899,0.000
340.417,-238.362,0.000
344.950,-232.672,0.000
349.294,-226.834,0.000
353.442,-220.855,0.000
357.390,-214.742,0.000
361.133,-208.500,0.000
364.687,-202.149,0.000
368.071,-195.707,0.000
371.281,-189.177,0.000
374.315,-182.566,0.000
377.171,-175.878,0.000
379.848,-169.119,0.000
382.342,-162.294,0.000
384.653,-155.410,0.000
386.780,-148.471,0.000
388.721,-141.483,0.000
390.476,-134.452,0.000
392.043,-127.382,0.000
393.422,-120.281,0.000
394.613,-113.154,0.000
395.617,-106.005,0.000
396.433,-98.842,0.000
397.062,-91.669,0.000
397.504,-84.492,0.000
397.759,-77.317,0.000
397.831,-70.148,0.000
397.718,-62.992,0.000
397.424,-55.854,0.000
396.950,-48.739,0.000
396.297,-41.653,0.000
395.468,-34.599,0.000
394.465,-27.584,0.000
393.290,-20.611,0.000
391.946,-13.687,0.000
390.436,-6.815,0.000







;;;   bis hier sind die eignetlichen Werte einzufügen ;;;
:end_condition :closed
complete)





;;; erstellen der Kurvenscheibe
create_workplane :new :name "Kurvenscheibengeo" complete
current_wp "/Kurvenscheibengeo"
uic_project_3d_edge 
:selected_part "/KurvenlinieAussen" :all_3d 
extrude :auto_direction :yes :keep_wp :yes :keep_profile :yes :sel_part "/Kurvenscheibe" :distance 30.0 
(PROGN
  (DRAGGER-SWITCH-MODIFY :DRAG_INCREMENTAL NIL)
  (DRAGGER-SWITCH-MODIFY :DRAG_DISTANCE_INCREMENT 10.0)
  (DRAGGER-SWITCH-MODIFY :DRAG_ANGLE_INCREMENT 0.174532925199433)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION T)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION_SHIFT 0)
  (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_CLASH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_TOUCH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_FREEDOM NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_EXCLUDE_INCLUDE T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SOLVE_CURRENT NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_KEEP_RELATIONS NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_PHYSICAL_FREEDOM T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-LINE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-PLANE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-AXIS T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-SLIDE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-FIX-ROT NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-BY-CENTER NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-BEHAVIOUR-OTHER :FIXED)
  (VALUES))
:wp "/Kurvenscheibengeo" :keep_wp :no complete

;;; erstellen der KurvenscheibeInnen
create_workplane :new :name "Kurvenscheibengeo" complete
current_wp "/Kurvenscheibengeo"
uic_project_3d_edge 
:selected_part "/KurvenlinieInnen" :all_3d 
extrude :auto_direction :yes :keep_wp :yes :keep_profile :yes :sel_part "/KurvenscheibeInnen" :distance 30.0 
(PROGN
  (DRAGGER-SWITCH-MODIFY :DRAG_INCREMENTAL NIL)
  (DRAGGER-SWITCH-MODIFY :DRAG_DISTANCE_INCREMENT 10.0)
  (DRAGGER-SWITCH-MODIFY :DRAG_ANGLE_INCREMENT 0.174532925199433)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION T)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION_SHIFT 0)
  (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_CLASH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_TOUCH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_FREEDOM NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_EXCLUDE_INCLUDE T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SOLVE_CURRENT NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_KEEP_RELATIONS NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_PHYSICAL_FREEDOM T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-LINE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-PLANE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-AXIS T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-SLIDE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-FIX-ROT NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-BY-CENTER NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-BEHAVIOUR-OTHER :FIXED)
  (VALUES))
:wp "/Kurvenscheibengeo" :keep_wp :no complete

;;; Eingabe der Radien der Stütz und Kurvenrollen
offset :check :keep_tangent :no :blend_auto :yes :update_rels :no :feat_select :fr-boss-pocket :faces :spline_sf 
:selected_part "/KurvenscheibeInnen" :all_3d 
:distance +31.0 complete



;;;   Erstellen der Rückseite
create_workplane :new :name "Kurvenscheibengeo" complete
uic_project_face :selected_part 
:selected_part "/Kurvenscheibe" :face_3d :spline_sf :all_3d
circle :cen_rad 0.0,0.0 10
extrude :auto_direction :yes :keep_wp :yes :keep_profile :yes :sel_part "/Kurvenscheibe" :distance -20.0 
(PROGN
  (DRAGGER-SWITCH-MODIFY :DRAG_INCREMENTAL NIL)
  (DRAGGER-SWITCH-MODIFY :DRAG_DISTANCE_INCREMENT 10.0)
  (DRAGGER-SWITCH-MODIFY :DRAG_ANGLE_INCREMENT 0.174532925199433)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION T)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION_SHIFT 0)
  (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_CLASH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_TOUCH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_FREEDOM NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_EXCLUDE_INCLUDE T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SOLVE_CURRENT NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_KEEP_RELATIONS NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_PHYSICAL_FREEDOM T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-LINE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-PLANE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-AXIS T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-SLIDE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-FIX-ROT NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-BY-CENTER NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-BEHAVIOUR-OTHER :FIXED)
  (VALUES))
:wp "/Kurvenscheibengeo" :keep_wp :no complete

offset :check :keep_tangent :no :blend_auto :yes :update_rels :no :feat_select :fr-boss-pocket :faces :spline_sf 
:selected_part "/Kurvenscheibe" :all_3d 
:distance -55 complete

;;;   Suptraktion der inneren Kurvenscheibe
subtract_3d :keep_tool :yes :tools :blanks 
:start "/Kurvenscheibe" :select_done :tools 
:start "/KurvenscheibeInnen" :select_done 
:keep_tool :no complete

;;;   Erstellen der Markierung
create_workplane :new :name "Markierung" complete 
uic_c_line_cross 0.0,0.0 2dcopilot 
(PROGN
  (2D:2D-COPILOT :SET-SWITCH :SNAP-2D T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-SAME-XY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-EXTREMES NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-PROJECTORS T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-CORNER-LINES NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-EXTENSIONS T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-DISTANT T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-MIDPOINTS NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-ACTIVE-PART-ONLY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-IN-PLANE-ONLY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-POINT T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-LINE T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-CIRCLE T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-PRECISION T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-PRECISION-SHIFT 0)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-END-POLYLINES T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-GRID T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-ZOOM T)
  (VALUES))
:circle_mode 50.0,0.0 5 50.0,0.0 2.5
2dcopilot 
(PROGN
  (2D:2D-COPILOT :SET-SWITCH :SNAP-2D T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-SAME-XY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-EXTREMES NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-PROJECTORS T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-CORNER-LINES NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-EXTENSIONS T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-DISTANT T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-MIDPOINTS NIL)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-ACTIVE-PART-ONLY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-IN-PLANE-ONLY T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-POINT T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-LINE T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-3D-CIRCLE T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-PRECISION T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-PRECISION-SHIFT 0)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-END-POLYLINES T)
  (2D:2D-COPILOT :SET-SWITCH :SNAP-TO-GRID T)
  (2D:2D-COPILOT :SET-SWITCH :AUTO-ZOOM T)
  (VALUES))
:rectangle_mode 20.0,5.0 35.0,-5.0 mill 
:auto_direction :yes 
:keep_wp :yes :keep_profile :yes :distance -5
:parts "/Kurvenscheibe" 
:distance :wp "/Markierung" 
(PROGN
  (DRAGGER-SWITCH-MODIFY :DRAG_INCREMENTAL NIL)
  (DRAGGER-SWITCH-MODIFY :DRAG_DISTANCE_INCREMENT 10.0)
  (DRAGGER-SWITCH-MODIFY :DRAG_ANGLE_INCREMENT 0.174532925199433)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION T)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION_SHIFT 0)
  (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_CLASH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_TOUCH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_FREEDOM NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_EXCLUDE_INCLUDE T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SOLVE_CURRENT NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_KEEP_RELATIONS NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_PHYSICAL_FREEDOM T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-LINE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-PLANE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-AXIS T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-SLIDE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-FIX-ROT NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-BY-CENTER NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-BEHAVIOUR-OTHER :FIXED)
  (VALUES))
:keep_wp :no complete