Первое фото- схема, второе- содержимое программы и подпрограмма.
Задав нужные параметры можно нарезать червяка без КАМ системы.
АПД:
код для копирования:
.....
(REZ CHERVYAKA)
T0101
M13P1S1000
G0G99X12.Z10.Y-1.8M8
G65P3000A10.48B3.534C3.534D11.48E15.K1F3.534Q1.5H0.04T1V10.W0Z10.
(A-VNUTR.DIAMETR)
(Q-SHIRINA_REG.KROMKI)
(B-dlina_zahoda)
(C-dlina_vihoda)
(D-narugniy_diametr)
(E-dlina_rezbi)
(K-KOL.ZAHODOV)
(F-Shag mm/ob)
(H-rez_za_prohod)
(T-kol-vo_sdviov_po_z)
(V-ugol_zahoda_grad)
(W-dlina_sdviga_po_z)
(Z-nachalo_rezbi)
.....
%
O3000(PODPROGRAMMA VINT)
G99
IF[#9LE0]GOTO70
IF[#11GTABS[#7]]GOTO80
IF[#20LT0]GOTO90
IF[[#22LT0]OR[#22GE90]]GOTO100
IF[#1EQ7]GOTO110
IF[#8EQ0]GOTO120
IF[#6LE0]GOTO130
#2=ABS[#2]
#3=ABS[#3]
#4=#1
#5=#7
#9=#9*#6
#11=ABS[#11]
#17=ABS[#17]
#18=[2*#7-#1]
#23=ABS[#23]
#21=[SIN[#22]*#11]
#29=[COS[#22]*[#11*2]]
#32=#7
#33=1
#6=360000/#6
IF[#6EQ1]THEN#6=0
IF[#1LT#7]GOTO10
#30=[[#1-#7]/#29]
#29=[-1*#29]
#4=#7
#5=#1
#33=0
GOTO20
N10#30=[[#7-#1]/#29]
N20#28=[#21*#30]
IF[#8GT0]GOTO30
#23=-1*#23
#28=-1*#28
#21=-1*#21
#17=-1*#17
#2=-1*#2
#3=-1*#3
N30#27=#18
G0X#18Z[#26-#2]
WH[#5GT#4]DO1
#7=[#7-#29]
#18=[#18-#29]
#19=0
IF[[[#4GT[#32-#29]]AND[#33EQ1]]OR[[#1LT[#32-#29]]AND[#33EQ0]]]THEN#7=#1
WH[#19LT360000]DO2
IF[#6EQ0]THEN#19=360000
IF[[[#20EQ0]OR[#23EQ0]]AND[#22EQ0]]GOTO50
#25=#26
#31=0
WH[[ABS[#28-#17/2]]GT[ABS[#31]]]DO3
#13=-1
#26=[#26+[#20*#23]]
N35IF[#13GE#20]GOTO40
G0X#18Z[#26-#2+#28-#31]
G32X#7Z[#26+#28-#31]Q#19F#9
G32Z[#8+#26+#28-#31]Q#19F#9
G32X#18Z[#3+#8+#26+#28-#31]Q#19F#9
G0X#27
G0Z[#26-#2+#28]
#13=[#13+1]
#26=[#26-#23]
GOTO35
N40#26=#25
N50G0X#18Z[#26-#2-#28+#31]
G32X#7Z[#26-#28+#31]Q#19F#9
G32Z[#8+#26-#28+#31]Q#19F#9
#32=#5001
G32X#18Z[#3+#8+#26-#28+#31]Q#19F#9
G0X#27
IF[[[#20EQ0]OR[#23EQ0]]AND[#22EQ0]]GOTO60
#31=#31+#17
END3
N60#19=[#19+#6]
G0Z[#26-#2-#28]
END2
#28=[#28-#21]
IF[#33EQ1]GOTO63
#4=#7
GOTO65
N63#5=#7
N65END1
M99
N70#3000=1(NEPRAVILNO_F)
N80#3000=1(H_BOLSHE_D)
N90#3000=1(T_MENSHE_0)
N100#3000=1(UGOL_V_OT_0GRAD_DO_90GRAD)
N110#3000=1(A_RAVNO_D)
N120#3000=1(E_RAVNO_0)
N130#3000=1(NE_ZADAN_K)
%
