Ответ на пост «Как стать ЧПУшником. Продолжение.»⁠⁠1

У кого работает отрезками, виноват WHILE, IF и тома подобные операторы. Кому нужна добил спираль до ума. Пользуйтесь:

Спираль Архимеда на ЧПУ

#R0 = 10.0 (начальный радиус)

#Rmax = 50.0

#dr = 0.05 (приращение радиуса на шаг)

#ang = 0.0

#dang = 5.0 (шаг угла в градусах)

G21 G90

G0 Z5

X[#R0] Y0

G1 Z-2.0 F200

WHILE[#R0 LE #Rmax] DO1

#X = [COS[#ang] * #R0]

#Y = [SIN[#ang] * #R0]

G1 X#X Y#Y F300

#ang = [#ang + #dang]

#R0 = [#R0 + #dr]

END 1

(замыкающий круг)

#ang0 = #ang

WHILE[#ang LE [#ang0 + 360]] DO2

#X = [COS[#ang] * #Rmax]

#Y = [SIN[#ang] * #Rmax]

G1 X#X Y#Y F300

#ang = [#ang + #dang]

END 2

G0 Z5

M30

--------

#1 = 10.0 (начальный радиус)

#2 = 50.0 (конечный радиус)

#3 = 0.05 (приращение радиуса на шаг)

#4 = 0.0 (угол)

#5 = 5.0 (шаг угла в градусах)

G21 G90

G0 Z5

X[#1] Y0

G1 Z-2.0 F200

WHILE[#1 LE #2] DO1

#6 = [COS[#4] * #1]

#7 = [SIN[#4] * #1]

G1 X#6 Y#7 F300

#4 = [#4 + #5]

#1 = [#1 + #3]

END 1

(замыкающий круг)

#8 = #4

WHILE[#4 LE [#8 + 360]] DO2

#6 = [COS[#4] * #2]

#7 = [SIN[#4] * #2]

G1 X#6 Y#7 F300

#4 = [#4 + #5]

END 2

G0 Z5

M30