!Makro file ; V9.09F!
!Automatic test!

!Please make sure that the language on your control is set to "en"!
_sprache 1;

Dimension 1;

Variable optional_stop, $Message, T1, T2, T3, startOperation, Op_Face1__1, Cutting, Finish, Entry, Exit, Op_Adaptive1__2, Direct, Ramping, Op_Contour1__3, Op_Horizontal1__4, Curr_zpno, Zpos;

Smakros Sm_Face1__1, Sm_Adaptive1__2, Sm_Contour1__3, Sm_Horizontal1__4, Retractzmax;

_maske _haupt, 1000, 0, "Submacro Description"
_feld optional_stop, 1, 0, 0, 0, 1, 2, 0, "optional_stop", "optional_stop"
_feld startOperation, 1, 0, 1, 0, 9999, 1, 0, "Startoperation , Adaptive1__2<2>, Contour1__3<3>, Horizontal1__4<4>>", "Select the operation to start with. ";

(
Curr_zpno = Zeromemnr;
Zeromem 0;
Zpos = - Wzl - 10;
Axyz 1, Xp, Yp, Zpos, 0, 0;
Zeromem Curr_zpno;
) Retractzmax;
(
T3d 0, 0, 1, 15, 17, 10, 10, 10, 10, 10, 10;
Submacro Retractzmax;
Contour_smoothing 1, 0.01219, 0.1, 110, 1;
Axyz 1, -160.02, 62.9412, z6p, 0, 0;
Axyz 1, -160.02, 62.9412, 15.24, 0, 0;
Axyz 1, -160.02, 62.9412, 15.24, 0, 0;
Axyz 1, -160.02, 62.9412, 5.08, 0, 0;
Feed Entry, Entry, Entry, Entry;
Axyz 0, -160.01201, 62.9412, 4.79516, 0, 0;
Axyz 0, -159.98806, 62.9412, 4.51122, 0, 0;
Axyz 0, -159.94823, 62.9412, 4.22907, 0, 0;
Axyz 0, -159.89264, 62.9412, 3.94959, 0, 0;
Axyz 0, -159.82146, 62.9412, 3.67368, 0, 0;
Axyz 0, -159.73493, 62.9412, 3.40218, 0, 0;
Axyz 0, -159.63331, 62.9412, 3.13597, 0, 0;
Axyz 0, -159.51693, 62.9412, 2.87587, 0, 0;
Axyz 0, -159.38614, 62.9412, 2.62271, 0, 0;
Axyz 0, -159.24136, 62.9412, 2.37728, 0, 0;
Axyz 0, -159.08305, 62.9412, 2.14035, 0, 0;
Axyz 0, -158.91171, 62.9412, 1.91267, 0, 0;
Axyz 0, -158.72787, 62.9412, 1.69496, 0, 0;
Axyz 0, -158.53211, 62.9412, 1.4879, 0, 0;
Axyz 0, -158.32504, 62.9412, 1.29214, 0, 0;
Axyz 0, -158.10733, 62.9412, 1.1083, 0, 0;
Axyz 0, -157.87965, 62.9412, 0.93695, 0, 0;
Axyz 0, -157.64273, 62.9412, 0.77864, 0, 0;
Axyz 0, -157.39729, 62.9412, 0.63386, 0, 0;
Axyz 0, -157.14413, 62.9412, 0.50308, 0, 0;
Axyz 0, -156.88403, 62.9412, 0.38669, 0, 0;
Axyz 0, -156.61782, 62.9412, 0.28507, 0, 0;
Axyz 0, -156.34633, 62.9412, 0.19854, 0, 0;
Axyz 0, -156.07041, 62.9412, 0.12737, 0, 0;
Axyz 0, -155.79093, 62.9412, 0.07178, 0, 0;
Axyz 0, -155.50878, 62.9412, 0.03194, 0, 0;
Axyz 0, -155.22484, 62.9412, 0.00799, 0, 0;
Axyz 0, -154.94, 62.9412, 0, 0, 0;
Feed Cutting, Cutting, Cutting, Cutting;
Axyz 0, -127, 62.9412, 0, 0, 0;
Feed Finish, Finish, Finish, Finish;
Axyz 0, 127, 62.9412, 0, 0, 0;
Feed Cutting, Cutting, Cutting, Cutting;
Circle 38.1762, 0, 0, -360, 90, 0, 0, 0, 2, 1, 0;
Circle 38.1762, 0, 0, -360, 0, -90, 0, 0, 2, 1, 0;
Feed Finish, Finish, Finish, Finish;
Axyz 0, -127, 24.765, 0, 0, 0;
Feed Cutting, Cutting, Cutting, Cutting;
Circle 38.1762, 0, 0, 0, 90, -180, 0, 0, 2, 1, 0;
Circle 38.1762, 0, 0, 0, -180, -90, 0, 0, 2, 1, 0;
Feed Finish, Finish, Finish, Finish;
Axyz 0, 127, -13.4112, 0, 0, 0;
Feed Cutting, Cutting, Cutting, Cutting;
Circle 38.1762, 0, 0, -360, 90, 0, 0, 0, 2, 1, 0;
Circle 38.1762, 0, 0, -360, 0, -90, 0, 0, 2, 1, 0;
Feed Finish, Finish, Finish, Finish;

!!! BLOCKS SKIPPED HERE !!!
!!! PROGRAM IS ONLY FOR REVIEW !!!

$Message = "Start next Operation";
Condition optional_stop, 0, 1, 0, 9999;
Message $Message, 0, 0, 0;
$Message = "OK";
) Sm_face1__1;
(
T3d 0, 0, 1, 15, 17, 10, 10, 10, 10, 10, 10;
Contour_smoothing 1, 0.12192, 0.1, 110, 1;
Submacro Retractzmax;
Axyz 1, 35.54417, -6.18728, z6p, 0, 0;
Axyz 1, 35.54417, -6.18728, 20.32, 0, 0;
Axyz 1, 35.54417, -6.18728, 20.32, 0, 0;
Axyz 1, 35.54417, -6.18728, 10.16, 0, 0;
Axyz 1, 35.54417, -6.18728, 3.81, 0, 0;
Feed Entry, Entry, Entry, Entry;
Axyz 0, 35.54417, -6.18728, 2.54, 0, 0;
Feed Ramping, Ramping, Ramping, Ramping;
Axyz 0, 35.85448, -6.19289, 2.52916, 0, 0;
Axyz 0, 36.16467, -6.18253, 2.51832, 0, 0;
Axyz 0, 36.47391, -6.15623, 2.50748, 0, 0;
Axyz 0, 36.78139, -6.11406, 2.49664, 0, 0;
Axyz 0, 37.0863, -6.05613, 2.4858, 0, 0;
Axyz 0, 37.38783, -5.9826, 2.47496, 0, 0;
Axyz 0, 37.68517, -5.89366, 2.46413, 0, 0;
Axyz 0, 37.97755, -5.78954, 2.45329, 0, 0;
Axyz 0, 38.26418, -5.67052, 2.44245, 0, 0;
Axyz 0, 38.54431, -5.53692, 2.43161, 0, 0;
Axyz 0, 38.8172, -5.38908, 2.42077, 0, 0;
Axyz 0, 39.08213, -5.22741, 2.40993, 0, 0;
Axyz 0, 39.33839, -5.05233, 2.39909, 0, 0;
Axyz 0, 39.58531, -4.86429, 2.38825, 0, 0;
Axyz 0, 39.82223, -4.66381, 2.37741, 0, 0;
Axyz 0, 40.04852, -4.45141, 2.36657, 0, 0;
Axyz 0, 40.2636, -4.22765, 2.35573, 0, 0;
Axyz 0, 40.46687, -3.99312, 2.34489, 0, 0;
Axyz 0, 40.65782, -3.74845, 2.33405, 0, 0;
Axyz 0, 40.83593, -3.49428, 2.32321, 0, 0;
Axyz 0, 41.00074, -3.23129, 2.31238, 0, 0;
Axyz 0, 41.15179, -2.96017, 2.30154, 0, 0;
Axyz 0, 41.28871, -2.68165, 2.2907, 0, 0;
Axyz 0, 41.41112, -2.39644, 2.27986, 0, 0;
Axyz 0, 41.5187, -2.10532, 2.26902, 0, 0;
Axyz 0, 41.61116, -1.80905, 2.25818, 0, 0;
Axyz 0, 41.68826, -1.50842, 2.24734, 0, 0;
Axyz 0, 41.7498, -1.20422, 2.2365, 0, 0;
Axyz 0, 41.79562, -0.89726, 2.22566, 0, 0;
Axyz 0, 41.82558, -0.58835, 2.21482, 0, 0;
Axyz 0, 41.83962, -0.27831, 2.20398, 0, 0;
Axyz 0, 41.83769, 0.03205, 2.19314, 0, 0;
Axyz 0, 41.81981, 0.34189, 2.1823, 0, 0;
Axyz 0, 41.78601, 0.65041, 2.17147, 0, 0;
Axyz 0, 41.73639, 0.95678, 2.16063, 0, 0;
Axyz 0, 41.67108, 1.26019, 2.14979, 0, 0;
Axyz 0, 41.59025, 1.55984, 2.13895, 0, 0;
Axyz 0, 41.49411, 1.85494, 2.12811, 0, 0;
Axyz 0, 41.38293, 2.1447, 2.11727, 0, 0;
Axyz 0, 41.25698, 2.42836, 2.10643, 0, 0;
Axyz 0, 41.11662, 2.70517, 2.09559, 0, 0;
Axyz 0, 40.96221, 2.97439, 2.08475, 0, 0;
Axyz 0, 40.79415, 3.23532, 2.07391, 0, 0;

!!! BLOCKS SKIPPED HERE !!!
!!! PROGRAM IS ONLY FOR REVIEW !!!

$Message = "Start next Operation";
Condition optional_stop, 0, 1, 0, 9999;
Message $Message, 0, 0, 0;
$Message = "OK";
) Sm_adaptive1__2;
(
T3d 0, 0, 1, 15, 17, 10, 10, 10, 10, 10, 10;
Contour_smoothing 1, 0.01219, 0.1, 110, 1;
Axyz 1, 89.7478, 1.45489, z6p, 0, 0;
Axyz 1, 89.7478, 1.45489, 15.24, 0, 0;
Axyz 1, 89.7478, 1.45489, 15.24, 0, 0;
Axyz 1, 89.7478, 1.45489, 0.75772, 0, 0;
Feed Entry, Entry, Entry, Entry;
Axyz 0, 89.7478, 1.45489, -0.508, 0, 0;
Axyz 0, 89.74008, 1.45475, -0.59621, 0, 0;
Axyz 0, 89.71716, 1.45432, -0.68175, 0, 0;
Axyz 0, 89.67975, 1.45363, -0.762, 0, 0;
Axyz 0, 89.62897, 1.45268, -0.83454, 0, 0;
Axyz 0, 89.56636, 1.45152, -0.89715, 0, 0;
Axyz 0, 89.49384, 1.45017, -0.94794, 0, 0;
Axyz 0, 89.4136, 1.44868, -0.98536, 0, 0;
Axyz 0, 89.32808, 1.44709, -1.00828, 0, 0;
Axyz 0, 89.23988, 1.44545, -1.016, 0, 0;
Circle 1.016, 0, 0, 0, 91.06536, -178.93482, 0, 0, 2, 1, 0;
Feed Cutting, Cutting, Cutting, Cutting;
Axyz 0, 88.7481, 0.56852, -1.016, 0, 0;
Axyz 0, 88.74838, 0.40609, -1.016, 0, 0;
Axyz 0, 88.74838, -0.40609, -1.016, 0, 0;
Axyz 0, 88.7481, -0.56852, -1.016, 0, 0;
Axyz 0, 88.72998, -1.54312, -1.016, 0, 0;
Axyz 0, 88.72611, -1.70556, -1.016, 0, 0;
Axyz 0, 88.68986, -2.68016, -1.016, 0, 0;
Axyz 0, 88.6824, -2.8426, -1.016, 0, 0;
Axyz 0, 88.62799, -3.8172, -1.016, 0, 0;
Axyz 0, 88.6169, -3.97963, -1.016, 0, 0;
Axyz 0, 88.5443, -4.95424, -1.016, 0, 0;
Axyz 0, 88.52954, -5.11667, -1.016, 0, 0;
Axyz 0, 88.45383, -5.92884, -1.016, 0, 0;
Axyz 0, 88.43842, -6.09128, -1.016, 0, 0;
Axyz 0, 88.32927, -7.06588, -1.016, 0, 0;
Axyz 0, 88.3101, -7.22832, -1.016, 0, 0;
Axyz 0, 88.18256, -8.20292, -1.016, 0, 0;
Axyz 0, 88.15958, -8.36535, -1.016, 0, 0;
Axyz 0, 88.01356, -9.33996, -1.016, 0, 0;
Axyz 0, 87.98668, -9.50239, -1.016, 0, 0;
Axyz 0, 87.84952, -10.31456, -1.016, 0, 0;
Axyz 0, 87.82177, -10.477, -1.016, 0, 0;
Axyz 0, 87.63848, -11.4516, -1.016, 0, 0;
Axyz 0, 87.60665, -11.61404, -1.016, 0, 0;
Axyz 0, 87.40454, -12.58864, -1.016, 0, 0;
Axyz 0, 87.36853, -12.75107, -1.016, 0, 0;
Axyz 0, 87.1843, -13.56324, -1.016, 0, 0;
Axyz 0, 87.14716, -13.72568, -1.016, 0, 0;
Axyz 0, 86.90694, -14.70028, -1.016, 0, 0;
Axyz 0, 86.86538, -14.86272, -1.016, 0, 0;
Axyz 0, 86.60585, -15.83732, -1.016, 0, 0;
Axyz 0, 86.55971, -15.99976, -1.016, 0, 0;
Axyz 0, 86.30569, -16.88699, -1.016, 0, 0;
Axyz 0, 86.27957, -16.97436, -1.016, 0, 0;

!!! BLOCKS SKIPPED HERE !!!
!!! PROGRAM IS ONLY FOR REVIEW !!!

$Message = "Start next Operation";
Condition optional_stop, 0, 1, 0, 9999;
Message $Message, 0, 0, 0;
$Message = "OK";
) Sm_contour1__3;
(
T3d 0, 0, 1, 15, 17, 10, 10, 10, 10, 10, 10;
Contour_smoothing 1, 0.01219, 0.1, 110, 1;
Axyz 1, 36.26325, -7.17721, z6p, 0, 0;
Axyz 1, 36.26325, -7.17721, 15.24, 0, 0;
Axyz 1, 36.26325, -7.17721, 15.24, 0, 0;
Axyz 1, 36.26325, -7.17721, -26.89077, 0, 0;
Feed Ramping, Ramping, Ramping, Ramping;
Axyz 0, 36.26471, -7.17844, -26.9604, 0, 0;
Axyz 0, 36.26908, -7.18213, -27.02982, 0, 0;
Axyz 0, 36.27636, -7.18827, -27.09882, 0, 0;
Axyz 0, 36.28654, -7.19681, -27.1672, 0, 0;
Axyz 0, 36.29961, -7.20772, -27.23474, 0, 0;
Axyz 0, 36.31554, -7.22093, -27.30125, 0, 0;
Axyz 0, 36.33431, -7.23638, -27.36652, 0, 0;
Axyz 0, 36.35589, -7.25399, -27.43037, 0, 0;
Axyz 0, 36.38025, -7.27367, -27.49259, 0, 0;
Axyz 0, 36.40734, -7.29531, -27.553, 0, 0;
Axyz 0, 36.43713, -7.31881, -27.61141, 0, 0;
Axyz 0, 36.46955, -7.34404, -27.66766, 0, 0;
Axyz 0, 36.50454, -7.37089, -27.72158, 0, 0;
Axyz 0, 36.54204, -7.39921, -27.77299, 0, 0;
Axyz 0, 36.58197, -7.42887, -27.82175, 0, 0;
Axyz 0, 36.62426, -7.45972, -27.86771, 0, 0;
Axyz 0, 36.66879, -7.49162, -27.91073, 0, 0;
Axyz 0, 36.71549, -7.52441, -27.95068, 0, 0;
Axyz 0, 36.76423, -7.55794, -27.98745, 0, 0;
Axyz 0, 36.8149, -7.59206, -28.02091, 0, 0;
Axyz 0, 36.86738, -7.62661, -28.05098, 0, 0;
Axyz 0, 36.92152, -7.66145, -28.07755, 0, 0;
Axyz 0, 36.97719, -7.69643, -28.10056, 0, 0;
Axyz 0, 37.03423, -7.73141, -28.11992, 0, 0;
Axyz 0, 37.09248, -7.76623, -28.13559, 0, 0;
Axyz 0, 37.15178, -7.80078, -28.14752, 0, 0;
Axyz 0, 37.21194, -7.83492, -28.15566, 0, 0;
Axyz 0, 37.2728, -7.86853, -28.16, 0, 0;
Axyz 0, 37.54869, -8.00977, -28.17083, 0, 0;
Axyz 0, 37.83148, -8.13666, -28.18165, 0, 0;
Axyz 0, 38.12041, -8.24885, -28.19247, 0, 0;
Axyz 0, 38.41471, -8.34605, -28.2033, 0, 0;
Axyz 0, 38.71363, -8.42801, -28.21412, 0, 0;
Axyz 0, 39.01636, -8.49451, -28.22495, 0, 0;
Axyz 0, 39.3221, -8.54538, -28.23577, 0, 0;
Axyz 0, 39.63005, -8.58047, -28.2466, 0, 0;
Axyz 0, 39.9394, -8.5997, -28.25742, 0, 0;
Axyz 0, 40.24933, -8.60301, -28.26825, 0, 0;
Axyz 0, 40.55902, -8.5904, -28.27907, 0, 0;
Axyz 0, 40.86765, -8.5619, -28.2899, 0, 0;
Axyz 0, 41.17441, -8.51759, -28.30072, 0, 0;
Axyz 0, 41.4785, -8.45758, -28.31155, 0, 0;
Axyz 0, 41.77909, -8.38203, -28.32237, 0, 0;
Axyz 0, 42.07541, -8.29114, -28.3332, 0, 0;
Axyz 0, 42.36667, -8.18515, -28.34402, 0, 0;
Axyz 0, 42.65211, -8.06434, -28.35485, 0, 0;

!!! BLOCKS SKIPPED HERE !!!
!!! PROGRAM IS ONLY FOR REVIEW !!!

) Sm_horizontal1__4;

; !Please make sure that the language on your control is set to "en"!
; !Number of tools in use: 3!
T1 = 1;!flat end mill D:12.7 L2:19.05 L3:25.4!
T2 = 2;!ball end mill D:5.08 L2:19.05 L3:25.4!
T3 = 3;!face mill D:50.8 L2:12.7 L3:12.7!
; !Workpiece dimensions:!
; !min:     X: -127.000; Y: - 76.200; Z: - 52.832!
; !max:     X: +127.000; Y: + 76.200; Z: +  0.000!
; !Part size X: +254.000; Y: +152.400; Z: + 52.832!
Wdef 254, 152.39999, 52.832, -127, -76.2, 0, 0;
Condition 0, 0, 0 , startOperation, startOperation;
; !##########Face1__1##########!
Label 1;
; ! ZMIN = 0!
Tool T3, 0, 0, 1, 0;
Rpm 3, 6, 0, 30;
Dynamics 4;
Cutting = 1.02;!m/min!
Finish = 1.02;!m/min!
Entry = 1.02;!m/min!
Exit = 1.02;!m/min!
Submacro Sm_face1__1;
; !##########Adaptive1__2##########!
Label 2;
; ! ZMIN = -27.93377!
Tool T1, 0, 0, 1, 0;
Rpm 3, 6, 0, 30;
Dynamics 5;
Cutting = 1.02;!m/min!
Entry = 0.51;!m/min!
Exit = 1.02;!m/min!
Direct = 1.02;!m/min!
Ramping = 0.51;!m/min!
Submacro Sm_adaptive1__2;
; !##########Contour1__3##########!
Label 3;
; ! ZMIN = -31.75!
Tool T2, 0, 0, 1, 0;
Rpm 3, 6, 0, 30;
Dynamics 4;
Cutting = 1.02;!m/min!
Entry = 0.51;!m/min!
Exit = 1.02;!m/min!
Ramping = 0.51;!m/min!
Submacro Sm_contour1__3;
; !##########Horizontal1__4##########!
Label 4;
; ! ZMIN = -29.21!
Tool T1, 0, 0, 1, 0;
Rpm 3, 6, 0, 30;
Dynamics 4;
Cutting = 1.02;!m/min!
Entry = 0.51;!m/min!
Exit = 1.02;!m/min!
Ramping = 0.51;!m/min!
Submacro Sm_horizontal1__4;
; !###############################################!
Submacro Retractzmax;
Park;