Код: Выделить всё
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 не переходи.
