Архимедов червяк на токарном станке с ЧПУ Solex NL161H стандартным резцом DVVNN. Программа написана при помощи макросов с динамическим расчетом положения инструмента относительно контура канавки с учетом радиуса инструмента. Код программы: % O0190 G21G40G54G99 G30U0 G30W0 T0101 #100=700(ob/min) G97M3S#100 (geometrija) #101=24(start diametr######) #102=15.2(end diametr######) #103=6.283(step######) #104=0(start Z######) #105=48(dlina vitka######) (kanavka:) #106=20(ygol kanavki na storony######) #107=0.3(x step) #108=0.3(z step) (:kanavka) #109=#101(tekyshij x) #110=#104(tekysh z) #111=4.536(shirina paza vitka) #112=#104-#111(tekysh z2) #113=0.4(radiius plastini) #114=[#113*COS[#106]] (kompensatsia na radius) #110=#110-#114 #112=#112+#114 G0Z#104 G0X[#101+2] (poka tekushij diametr bolshe min:) WHILE[#109GT#102]DO1 #110=#104-[[[#101-#109]/2]*TAN[#106]](tekysh z) #112=[#104-#111]+[[[#101-#109]/2]*TAN[#106]](tekysh z2) #110=#110-#114 #112=#112+#114 G0Z#110 G0X#109 WHILE[#110GT#112]DO2 G1X#109 G1Z#110 G32W-#105F#103 G0X[#101+2] #110=#110-#108 G0Z#110 END2 G1X#109 G1Z#112 G32W-#105F#103 G0X[#101+2] G0Z#104 #109=#109-#107(tekysh x) END1 #109=#102(tekysh x = xmin) #110=#104-[[[#101-#109]/2]*TAN[20]](tekysh z) #112=[#104-#111]+[[[#101-#109]/2]*TAN[20]](tekysh z2) #110=#110-#114 #112=#112+#114 G0Z#110 G0X#109 WHILE[#110GT#112]DO2 G1X#109 G1Z#110 G32W-#105F#103 G0X[#101+2] #110=#110-#108 G0Z#110 END2 G1X#109 G1Z#112 G32W-#105F#103 G0X[#101+2] G0Z#104 M5 G30U0 G30W0 M30 %
