Фрезерование конусного отверстия

% 0002 G17G21G40G49; G94; G69; G52X0Y0Z0; G91G28Z0; G28Y0; G90; #15=3; T D ; CENTRA OTVERSTIYA); CENTRA OTVERSTIYA); GLUBINA); OBOROTY); START PO Z); POD&FREZI POSLE OKONCHANIYA); VERHNII DIAMETR); UGOL KONUSA); SHAG VINTOVII LINII); PODACHA); INSTR.); IF[#24NE#0]THEN#124=#24; IF[#25NE#0]THEN#125=#25; IF[#26NE#0]THEN#126=#26; IF[#21NE#0]THEN#121=#21; IF[#4NE#0]THEN#104=#4; IF[#7NE#0]THEN#107=#7; IF[#1NE#0]THEN#127=#1; IF[#19NE#0]THEN#119=#19; IF[#9NE#0]THEN#109=#9; #137=#100; #149=#107/2-#137; #150=0; #151=#150-[#121-#126]/#119*360; S ; #143=10; #144=#150; #145=#151; G0X#149Y0; G43H#15Z[#121+2.]; G1Z#121F#109; WHILE[ #144=#144-#143; IF[#144LT#145]THEN#144=#145; #152=#121+[#144-#150]/360*#119; #153=#149+TAN[#127]*[#152-#121]; G2X#147Y#148Z#152R#153/2; END1; G2X#147I-#147; G2X0Y0R[ G0Z#104; ; G0Z10.; ; G69; M05; M09; G91G28Z0; G28Y0; G90G0X-100.; M30; %