Используемое мною правило составление g-cede, для linux-cnc, в котором обычно использую результат генерации разных программ, среди прочего и этой, как субпрограммы, тем не менее выдаваемый резулльтат полностью работоспособынй. Суть в том, что движение по оси Z я стараюсь задвать сам - ну сами понимаете, всякие там стратегии, финишные проходы, уменьшение шага в зависимости от глубины. Потому использую от генераторов решения для 1 шага на одну глубину, далее как sub вызываю по мере надобности. А выданный программой результат для визуального контроля приемлем и для единичного прохода по одной глубине. Отличия от базовой версии - включены шаблоны длямасштаба, причем отдельно по оси Х и У, зава которые -1 можно полчать зеркальные отражения (нудно для двусторонней обработки), ну и просто можно масштабировать. В начале создваемого файла кода программы все переменные описаны, значения высот и подач в самой программе индиферентны.
Код правила -
=========================
<?xml version="1.0" encoding="utf-8"?><Rule><RuleHead Name="Тадам-2 один слой" Description="Данное правило разработано для контроллера GRBL, для возможности фрезеровки" WebLink="" GUID="c72a1c65-f29f-4bb4-bda0-89e9931f5b1e" fileExtension="ngc" AlgoritmGenerateFileName="False" ALGORITM="FORMAT:SetFormat("#0.00",".")
 FILE: Create()
 FILE: AddLine("G0 M3 X0 Y0 Z"..Zsafe)
 FILE: AddLine("G64 P0.05")
 FILE: AddLine("#<_pm> = 1000")
 FILE: AddLine("#<_pb> = 3000")
 FILE: AddLine("#<_bz> = 30")
 FILE: AddLine("#1 = 0")
 FILE: AddLine("#2 = 1 (масштаб Х)")
 FILE: AddLine("#3 = 1 (масштаб У)")

 for indx = 0, DATA.Items.Count - 1, 1 do
 primitiv = DATA.Items[indx]
 --получили первую точку примитива
 startPoint = primitiv.Items[0];

 --к первой точке быстро подойдем
 FILE: AddLine("(Начало траектории --к первой точке быстро подойдем)")
 FILE: AddLine("G0 X[#2 * "..FORMAT:Fd(startPoint.X).. "] Y[#3 * "..FORMAT:Fd(startPoint.Y).. "] Z"..Zsafe)

 --тут будем учитывать текущую высоту фрезеровки
 Zcurrent = Zstart

 

 --неспеша опустимся
 FILE: AddLine("G1 F[#<_pm>] Z"..Zcurrent)
 --установим рабочую скорость
 FILE: AddLine("G1 F[#<_pb>]")
 -- и начнем двигаться по траектории
 for indxP = 0, primitiv.Items.Count - 1, 1 do
 point = primitiv.Items[indxP]
 FILE:AddLine("X[#2 * "..FORMAT:Fd(point.X).. "] Y[#3 * "..FORMAT:Fd(point.Y).."] Z[#1]")
 end

 

 --траектория завершена поднимаемся
 FILE: AddLine("G0 Z"..Zsafe)

 FILE: AddLine("(конец траектории)")
 FILE: AddLine(" ")
 FILE: AddLine(" ")
 end

 FILE:AddLine("G0 Z"..Zsafe)
 FILE: AddLine("G0 M5 X0 Y0")
 FILE: AddLine("M30")
 FILE: Save() " /><RuleBody><Properties property0="§Fvalue|Скорость фрезеровки|3000®" property1="§Zsafe|Безопастная высота|20®" property2="§Zstart|Начальная глубина фрезеровки|0®" property3="§Zstop|Конечная грубина фрезеровки|0,1®" property4="§Zstep|Шаг заглубления фрезеровки|1®" /></RuleBody></Rule>
===================
