Код: Выделить всё
Dim s As Double
s = 0
DoOemButton(139)
DoOemButton(142)
While s > -100
If GetOemLed(830) = False Then
Code "G00 X" & s & "F.1"
Sleep (150)
End If
If GetOemLed(839) = False Then
Code "G00 A" & s & "F.1"
Sleep (150)
End If
s = s - .1
Wend
DoOemButton(139)
DoOemButton(142)
Пробовал SetMachZero(), тоже ноль не устанавливает, Mach3 вешает.
Пробовал программно разрывать связь между осями CoupleSlave(), тоже не выходит.
В принципе, можно, конечно, это все и руками делать, но некрасиво получается. И хоть я до этого в последний раз писал в конце девяностых, но подозрение такое, что это не я туплю, а именно программа глючит. Хоть и правда на Linux не переходи.