Страница 3 из 3
Re: Mach3 и команда G31
Добавлено: 23 июн 2023, 22:28
expertboss
Kupfershcmidt писал(а): ↑02 июл 2022, 21:36
shkrab писал(а): ↑
Заранее благодарен!
Автора программы с прошлого года тут не бывало, если только он не сменил позывной...
может у кого есть без автора ... посылал же кому то.. ?
Re: Mach3 и команда G31
Добавлено: 19 авг 2023, 19:56
tester551
Написал свой скрипт для измерения, вот если кому надо
Код: Выделить всё
Sub Main()
Const ProbeSafeZ = 2
Const ProbeDepthZ = -1
Const ProbeFeed = 20
Xmax = 50
Ymax = 50
Pstep = 10
Open "C:\Users\user\Desktop\depth.txt" For Output As #1
Xcur = 0
Ycur = 0
XFlag = False
YFlag = False
Code "G0 Z" & ProbeSafeZ
WaitingMove
Code "G0 X0 Y0"
WaitingMove
Do
Do
Sleep(500)
Code("G31 Z" & ProbeDepthZ & " F" & ProbeFeed)
WaitingMove
X = GetOEMDRO(800)
Y = GetOEMDRO(801)
Z = GetOEMDRO(802)
Print #1,X, ",", Y,",",Z
Code "G0 Z" & ProbeSafeZ
WaitingMove
If Xcur = Xmax Then
XFlag = True
Else
Xcur = Xcur + Pstep
If Xcur > Xmax Then Xcur = Xmax
Code "G0 X" & Xcur
WaitingMove
End If
Loop Until XFlag
If Ycur = Ymax Then
YFlag = True
Else
XFlag = False
Xcur = 0
Ycur = Ycur + Pstep
If Ycur > Ymax Then Ycur = Ymax
Code "G0 X0 Y" & Ycur
WaitingMove
End If
Loop Until YFlag
Close #1
Code "G0 Z" & ProbeSafeZ
Code "G0 X0 Y0"
End Sub
Sub waitingMove
While (IsMoving())
Sleep(100)
Wend
End Sub